[interbase6]probleme d'insertion dans une table

**macadam314** · 21/02/2005, 16h00

bonjour ,
voila j ai une base de données interbase, le dataset s appele IBDpatient
j y ais remplit l insertsql,le selectsql et le deletesql correctement.
j ai creé un bouton pour entrer les données a partir de differents tbedits,
voila le code du bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.Button1Click(Sender: TObject);
begin
 if (datamodule.DataModule1.IBDpatient.locate('NOM',NomPatient.Text,[])) then
  begin
datamodule.DataModule1.IBDpatient.append;
datamodule.DataModule1.IBDpatient.Fieldvalues['NOM']:= NomPatient.Text;
datamodule.DataModule1.IBDpatient.FieldValues['PRENOM']:=PrenomPatient.Text;
datamodule.DataModule1.IBDpatient.FieldValues['ADRESSE']:= AdressePatient.Text;
datamodule.DataModule1.IBDpatient.FieldValues['VILLE']:= VillePatient.Text;
//datamodule.DataModule1.IBDpatient.FieldValues['CP'].asinteger:= strtoint(CPPatient.Text);
datamodule.DataModule1.IBTpatient.CommitRetaining;

tout fonctionne tant que je laisse l insertion duCP en commentaire mais quand j enleve le commentaire et que j essaye d inserer le CP ca me donne EconvertError with message "is not a valid integer value" alors que dans ma table CP est bien un integer
quel est mon erreur?
je voudrai aussi savoir si ma procedure d'insertion de données est correct ou si il y a plus simple sans utilser ibquery ou ibupdate?
d'avance merci. [/color][/i][/u]

**Barbibulle** · 21/02/2005, 16h12

Normal vous utilisez mal les composants de delphi orienté base de données.

Ce qui se passe est simple vous utilisez la prorpriété Text qui renvoie une chaine cette chaine est exactement ce qui est affiché dans votre DBEdit. Donc pour un code postal 12345 il vous retourne 12 345 car vous avez surement dans les paramètres de windows l'affichage des nombres qui utilise le séparateur de millier.

Or si vous essayez de convertir 12 345 en integer il provoque une exception.

Si vous utilisez bien le IBDataSet (ou couple IBQuery/IBUpdate) et les DBEdit correctement dans votre bouton de validation vous ne devez avoir que le code de vérification/validation et un

Code :

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

IBDataSet.Post;

suivi d'un

Code :

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

IBDataSet.Transaction.Commit;

Vous vous compliquez innutilement la tache et devez coder plus de code que la normal. Consultez les différents tutos afin de bien utilisez les composants vous éviterez de réinventer ce qui existe déjà et surtout qui fonctionne bien.

**macadam314** · 21/02/2005, 16h28

ok merci,
j ai déja lu toutes les FAQ et je crois que je vais recommencer;

**macadam314** · 21/02/2005, 16h36

bon ben l insertion a partir d un db navigator fonctionne
par contre dans les FAQ je vois surtout l insertion avec dbnavigator
pourriez vous me donner un exemple simple d une insertion dans une table sans passer par dbnavigator merci

**Barbibulle** · 21/02/2005, 17h06

Vous supprimez le dbnavigator si vous voulez.

Lorsque vous souhaitez que l'utilisateur insère un nouvel enregistrement il suffit juste de faire :

Code :

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

IBDataSet.Insert;

Et dans un bouton de validation :

Code :

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

1
2
IBDataSet.Post;
IBDataSet.transaction.Commit;

Le DBNanigator ne fait qu'appeler les méthodes du dataset qui lui est attaché :

Code :

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

1
2
3
4
5
6
7
8
9
10
First;
Prior;
Next;
Last;
Insert;
Delete;
Edit;
Post;
Cancel;
Refresh;

**macadam314** · 21/02/2005, 17h34

donc si j ai bien compris il suffit de faire
ibdataset.insert
avec ibdataset.post;ibdataset.transactio.commit;
et si dans mes tbedit j ai bien regler les datafield et datasource
je n ai plus a utiliser fieldvalue, tout se fera automatiquement
merci de votre patience

**Barbibulle** · 21/02/2005, 17h42

Oui tout a fait.
C'est tellement simple qu'on a du mal à y croire non ??

Remerciez les composants Delphi de la VCL qui sont très bien étudiés facilite le travail des développeurs

**macadam314** · 21/02/2005, 18h08

bon alors j ai regler tt mes boutons avec les datafield et les datasources
ensuite mon code est

Code :

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

1
2
3
4
 
datamodule.DataModule1.IBDpatient.Insert;
datamodule.DataModule1.IBDpatient.post;
datamodule.DataModule1.IBDpatient.Transaction.commit;

et ca me donne lock conflict on no wait transaction
j ai aussi essayer de creer un autre formulaire ou la cle primaire qui est integer doit etre remplie par un tbeedit dont j ai reglé le datafield et le datasource mais il me dit quand j insere que le champs de la cle primaire doit avoir une valeur alors que je le rentre pourtant dans le tbedit
Peut etre les vcl sont la pour faciliter la vie mais il ne sont pas si simples.

enfin ca ne fait jamais que deux jours que je suis la dessus et je sens que ce n est pas fini

**Barbibulle** · 21/02/2005, 18h28

Je n'ai jamais dit qu'il fallait mettre ces trois instructions à la suite.

Le IBDataSet.Insert;

Permet de se mettre en mode INSERT : Les DbEdit sont initialisés.

Votre utilisateur peut donc remplir les DBEdit.

Ensuite dans votre bouton Valider vous faites les vérifications générales sur vos données et quand tout est OK vous faites le IBDataSet.Post et le commit.

**macadam314** · 21/02/2005, 19h45

bon cette fois ci c est mon dernier essai car ca fait trop longtemps que j essaye et je vais remplacer l insertion par un navigator,dommage j aurais quand meme bien aimer reussir.
voici ce que je met

Code :

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

1
2
3
4
5
6
 
ibdataset.insert;
ibdataset.Fieldvalues('NOM'):=TBEEdit1.text;
ibdataset.fieldvalues('CP').asinteger:=(strtoint(TBEEdit2.text));
IBDataSet.Post; 
IBDataSet.transaction.Commit;

j ai bien compris que CP ne pouvait pas marcher car quand on le transforme en integer la conversion se base sur les paramas windows et ne le transforme donc pas bien en integer
alors comment faire pour passer la valeur de mon tbeedit2 en un integer que CP acceptera
De plus j ai toujours l erreur suivante lock conflict on no wait transaction
Cette fois si j en ai vraiment marre et j ai l impression d etre tro nul et de rien comprendre
de plus je trouve ca completement absurde car dans un autre formulaire ou j utilise ibstoredproc a qui j envoi un tbeedit transformé en integer comme parametre il l accepte sans probleme
tant pis j aurais essayer