Bonjour,
J'utilise ce bout de code pour insérer des données dans une table (base de données interbase)
L'insertion avec des valeurs de champs vide. je n'ai pas pu trouver la cause de cela. J'ai affiché les valeurs de :
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
20
21
22
23 with DataModuleFrame1.IBDataSet1 do begin if not Locate('Libelle', self.libelle,[]) then begin try if not Transaction.InTransaction then begin Transaction.StartTransaction; end; Append; FieldByName('Libelle').AsString := self.libelle; FieldByName('Description').AsString := self.description; FieldByName('Date_Debut').AsString := self.date_creation; Post; Transaction.CommitRetaining; Close; open; result := Lookup('Libelle', self.libelle, 'Id_Projet'); except on e:Exception do Transaction.RollbackRetaining; end; end
j'ai remarqué qu'il se mette à vide après l'instruction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 FieldByName('Libelle').AsString; FieldByName('Description').AsString; FieldByName('Date_Debut').AsString;
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Post;
Partager