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]