Problème avec INSERT

Version imprimable

Bonjour à tous,

Il m'est arrivé une bizarrerie à laquelle je n'ai rien compris !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
           SQL.Text := 'INSERT INTO T_STK_INIT '+
                       '      (ID_ART, ID_DEPOT, DLC, '+
                       '       DATE_SLD, QTE, P_UNIT) '+
                       'VALUES(:ID_ART, :ID_DEPOT, :DLC, '+
                       '       :DATE_SLD, :QTE, :P_UNIT)';
 
            ParamByName('ID_ART').AsInteger      := 1323;
            ParamByName('ID_DEPOT').AsInteger  := -1;
            ParamByName('QTE').AsCurrency        := 12;
            ParamByName('P_UNIT').AsCurrency     := 84;
            ParamByName('DATE_SLD').AsDateTime := StrToDate('01/01/2023');
            ParamByName('DLC').Clear;
            ExecSQL;

Cette requête ne m'insère pas l'enregistrement dans ma base de données alors qu'il s'insère très bien dans une autre base, de même description !!

Une idée ??

Win 10, D7, FB 2.5, Zeos 7.2

03/01/2023, 13h48
SergioMaster

Une contrainte quelconque qui n'est pas respectée (clé en double etc...)
03/01/2023, 14h04
al1_24

Bonjour,

Toute requête qui ne se termine pas correctement émet un message d'erreur.
Il est important de le récupérer pour pouvoir comprendre l'anomalie et envisager sa correction.
03/01/2023, 15h29
akli_agha

J'essaie d'insérer un seul record et je n'ai aucun message d'erreur !!
03/01/2023, 15h45
SergioMaster

Il serait quand même simple de faire le test via un GUI quelconque, ou de vérifier que l'enregistrement n'existe pas déjà dans la BDD mais aussi de vérifier l'état de santé de la base de données "fautive"
03/01/2023, 16h18
akli_agha

Merci Sergio.

Evidemment que j'ai essayé avec Flame Robin et c'est pareil !!! La base vient d'être créée !

Alors là, je doute qu'avec Flamerobin ce soit pareil et qu'aucune erreur ne soit affichée.
Au lieu de gémir, un script création de table + SQL insert serait plus efficace.

exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 CREATE TABLE T_STK_INIT ( ID_ART INTEGER NOT NULL, ID_DEPOT INTEGER, QTE NUMERIC(10,2), PU NUMERIC(10,2), DATE_SLD DATE, DLC VARCHAR(40), CONSTRAINT PK_ART PRIMARY KEY (ID_ART) ); COMMIT; INSERT INTO T_STK_INIT(ID_ART, ID_DEPOT, DLC,DATE_SLD, QTE, PU) VALUES (1323, 1, NULL, CURRENT_DATE, 12,84); SELECT * FROM T_STK_INIT;
PS. ce script, plus ou moins déduit, fonctionne parfaitement

03/01/2023, 16h55
escartefigue
Autres pistes :
- l'ordre SQL n'est pas commité (ROLLBACK transaction)
- l'INSERT est bien réalisé, mais la connexion n'est pas faite sur la bonne base de données
06/01/2023, 09h45
docdu92

Bonjour,
ParamByName('ID_DEPOT').AsInteger := -1;
Cette ligne est douteuse !
06/01/2023, 12h13
SergioMaster

En quoi le -1 serait douteux ?
Bien sûr de mon côté un dépot serait codifié dans une table et il y aurait une contrainte de relation, mais la colonne ID_DEPOT étant un entier la valeur peut très bien être négative.

Un seul doute : nommer les paramètres identiquement aux noms de colonnes (ce qui n'est pas nécessaire) peut être sujet à confusion, mais nous sommes dans le forum Firebird donc, la partie "Delphi", je la mets de côté
10/01/2023, 12h14
akli_agha

Désolé mes amis de vous apporter, aussi tardivement, la clé du problème !

Au fait, la table en question était temporaire !!

Comment ai-je pu la créer de façon temporaire, aucune idée !

Merci à tous.