Discussion :

[akli_agha]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

Une contrainte quelconque qui n'est pas respectée (clé en double etc...)

[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.

[akli_agha]

J'essaie d'insérer un seul record et je n'ai aucun message d'erreur !!

[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"

[akli_agha]

Merci Sergio.

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

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[docdu92]

Bonjour,
ParamByName('ID_DEPOT').AsInteger := -1;
Cette ligne est douteuse !

[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é

[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.