Discussion :

[krole57]

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

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
9
10
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; 
//  Gros doute que ca focntionne comme çà. a mon avis tu aurais un meilleur resulat avec FieldByName.
DMcode.DONNE_NUM_CONTACT.close;

T'as pas plus long comme ligne ?

Code :

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

1
2
 
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+' )');

en fait, ta requete est fausse car tu n'indiques pas dans ton insert si tu insère un champ numérique ou alphanumérique.
Quand tu as beaucoup de champ à insérer les paramètres sont de rigueur

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
 
//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)');
DMCode.IBSQL1.SQL.Add('VALUES (:CONTACT,:NSERVEUR,:SIRET,:SERVEUR,:NOM,:PRENOM,:LACOMBO,:TELEPHONE,:PORT,:MAIL,:FONCTION)');
DMCODE.IBSQL1.ParamByName('CONTACT').Value := id_contact;
DMCODE.IBSQL1.ParamByName('NSERVEUR').Value :=  num_serveur;
DMCODE.IBSQL1.ParamByName('SIRET').Value := DMCode.Prospects.FieldByName('SIRET').AsString;
DMCODE.IBSQL1.ParamByName('SERVEUR').Value := DMCode.Prospects.FieldByName('serveur').Asstring
DMCODE.IBSQL1.ParamByName('NOM').Value := NOM.text;
DMCODE.IBSQL1.ParamByName('PRENOM').Value := PRENOM.text;
DMCODE.IBSQL1.ParamByName('LACOMBO').Value := ComboBox1.text;
DMCODE.IBSQL1.ParamByName('TELEPHONE').Value := TEL.text;
DMCODE.IBSQL1.ParamByName('PORT').Value := PORT.text;
DMCODE.IBSQL1.ParamByName('MAIL').Value := EMAIL.text;
DMCODE.IBSQL1.ParamByName('FONCTION').Value := Fonction.text;
DMCode.IBSQL1.ExecQuery;
DMCode.IBSQL1.Close;

Essai comme ca, si ca ne fonctionne pas, remplace (si possible) les Value par des AsString,Asinteger, etc... selon le type de champ.

[krole57]

Avec ta méthode il met une erreur :

Code :

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

violation of foreign key constraint "FK_SIRER_CONTACTS" on table contacts

les deux champs SIRET et SERVEUR_SIRET sont des clés étrangères.

[krole57]

Je vous récris l'erreur :
Avec ta méthode il met une erreur :

Code :

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

1
2
3
 
violation of foreign key constraint "FK_SIRER_CONTACTS" 
on table contacts

les deux champs SIRET et SERVEUR_SIRET sont des clés étrangères.