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:
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
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;
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]
Partager