Bonjour,
j'utilise avec delphi interbase.
je voudrai juste ajouter un enregistrement dans une table contacts .
voici mon code :
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
procedure TAjout_contact.Button1Click(Sender: TObject);
var id_contact :integer;
num_serveur:integer;
 
begin
num_serveur:=1;
DMcode.DONNE_NUM_CONTACT.ExecProc;
id_contact:= DMcode.DONNE_NUM_CONTACT.ParamByName('ID_CONTACT').AsInteger;
DMcode.DONNE_NUM_CONTACT.close;
 
//DMcode.contacts.close;
DMCode.IBSQL1.SQL.Clear;
DMCode.IBSQL1.SQL.Add('insert into CONTACTS (ID_CONTACT, SERVEUR, SIRET,SERVEUR_SIRET,NOM,PRENOM,CIVILITE,TELEPHONE,PORTABLE,EMAIL,FONCTION) VALUES ('+ inttostr(id_contact) + ','+ inttostr(num_serveur) +',' + DMCode.Prospects.FieldByName('SIRET').AsString + ','+ DMCode.Prospects.FieldByName('serveur').Asstring +','+NOM.text+','+PRENOM.text+','+ComboBox1.text+','+TEL.text+','+PORT.text+','+EMAIL.text+','+Fonction.text+' )');
DMCode.IBSQL1.ExecQuery;
DMCode.IBSQL1.Close;
id_contact est un générateur, siret et serveur_siret viennent d'une autre base et les autres proviennent d'un TEdit que l'on doit remplir...

Mon message d'erreur est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dynamic error SQL
SQL error code =-206
column unknow
BERTRAND
AT line 1, column 149
merci beaucoup