requête d'insertion sous delphi

Bonjour à tous,
voilà mon problème, je veux remplir les champs d'une table dans sql server2008 à partir des contenus des composants dans delphi.
dans mon bouton enregistrer j'ai le code suivant:

Code:

---

1 2 3 4 5 6 7

procedure TForm2.enregistrerClick(Sender: TObject); var dte: TDateTime; begin dte := Date(); adocommand1.CommandText := 'Insert into Performance (Date, Type_Requête, Requête, Nombre_Exécution,commentaire_Requête, Nombre_Enregistrement,Chargement_BDE, Chargement_ADO, Chargement_DBExpress) values ('+dateToStr(dte)+','+DBEdit1.text+','+dbmemo1.text+','+dbedit18.Text+','+dbmemo2.text+','+DBEdit2.text+','+dbedit15.Text+','+dbedit10.Text+','+dbedit7.Text +');'; adocommand1.Execute; end;

---

à l'exécution lorsque je clique sur ce bouton j'ai l'erreur suivante:
<< Incorrect syntax near the keyword 'Select'>>

je sais pas pourquoi il m'affiche ce message pourtant j'ai pas de select dans ma requête, ou c'est parce que la query n'est pas appropriée?
merci de m'aider

une petit erreur, j'ai parlé d'une query alors que dans le code que j'ai transmis il y a un adocommand au lieu d'un adoquery, mais je vous signale que j'ai la même erreur avec adoquery

Salut

Que donne CommandText en mode pas-à-pas ? ou via un ShowMessage ?

@+

j'ai toujours le même message d'erreur

Citation:

---

Envoyé par nakry

j'ai toujours le même message d'erreur

---

Euuh :aie:

Citation:

---

Envoyé par Cl@udius

Salut

Que donne CommandText en mode pas-à-pas ? ou via un ShowMessage ?

@+

---

en mode pas à pas, il n'affiche d'exception dans le code du programme et l'exécution continue jusqu'à la fin de la procedure puis s'arrete, et dans l'application le message d'erreur est affiché, je clique sur le ok du message, il disparait mais les données ne sont pas enregistrer dans la table;
et si je reclick sur enregistrer c'est la même qui se passe

Nous nous sommes mal compris, je souhaite voir l'instruction SQL construite.

Dans ton code juste avant ADOCommand1.Execute tu insères cette ligne:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm2.enregistrerClick(Sender: TObject); var dte: TDateTime; begin dte := Date(); adocommand1.CommandText := 'Insert into ...'; ShowMessage(ADOCommand1.CommandText); // <-- adocommand1.Execute; end;

---

Tu fais un copier (Ctrl+C) sur la boite de dialogue et tu postes le contenu.

@+

---------------------------
Mdiapp
---------------------------
Insert into Performance (Date, Type_Requête, Requête, Nombre_Exécution,commentaire_Requête, Nombre_Enregistrement,Chargement_BDE, Chargement_ADO, Chargement_DBExpress) values (23/06/2010,Simple,select * from famille_client
,1,faire un commentaire sur la requête
,4,4 ms -> 0,004 s,128 ms -> 0,128 s,102 ms -> 0,102 s);
---------------------------
OK
---------------------------

Ta requête devrait plutôt ressembler à ceci, car il ne faut pas oublier de "formater" les données: Quotes pour les CHAR/VARCHAR, format des dates, etc...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Insert into Performance ( Date, Type_Requête, Requête, Nombre_Exécution, commentaire_Requête, Nombre_Enregistrement, Chargement_BDE, Chargement_ADO, Chargement_DBExpress) values ( '2010-06-23', 'Simple', 'select * from famille_client', 1, 'faire un commentaire sur la requête', 4, '4 ms -> 0,004 s', '128 ms -> 0,128 s', '102 ms -> 0,102 s');

---

C'est le: select * from famille_client sans les quotes qui donne ce message: << Incorrect syntax near the keyword 'Select'>>

@+

je pense que je l'ai déjà fait, parce qu' au niveau de la date j'ai utilisé la fonction dateToStr pour la mettre sous forme de String, et pour les contenus des composants ils sont tous dans le bon format.
Peut être que j'ai pas bien compris, STP peux-tu me dire comment les "formater" si c'est le cas

excusez moi mais je dois partir maintenant, vous pouvez me laisser vos propositions, je les essayerai demain matin
je vous remercie

Pour envoyer des données de types string, il faut encadrer la chaine avec des guillemets simples (quotes), exemple: 'Ton texte'. Pour cela tu peux utiliser QuotedStr:

Pour les dates, il faut également les encadrer avec des quotes, mais également utiliser un format de date interprétable par le sgbd. Le format le plus reconnus est de la forme 'YYYY-MM-DD'.
Tu peux utiliser FormatDateTime, par exemple:

Code:

---

QuotedStr(FormatDateTime('YYYY-MM-DD', Date))

---

Ce qui donne:

Code:

---

1 2 3 4 5 6 7 8

ADOCommand1.CommandText := 'Insert into Performance (' + 'Date, Type_Requête, Requête, Nombre_Exécution,commentaire_Requête, ' + 'Nombre_Enregistrement,Chargement_BDE, Chargement_ADO, Chargement_DBExpress) ' + 'values(' + QuotedStr(FormatDateTime('YYYY-MM-DD', dte)) + ',' + QuotedStr(DBEdit1.text) +', ' + QuotedStr(dbmemo1.text) + ',' + dbedit18.Text + ', ' + QuotedStr(dbmemo2.text) + ', ' + DBEdit2.text + ',' + QuotedStr(dbedit15.Text) + ',' + QuotedStr(dbedit10.Text) +',' + QuotedStr(dbedit7.Text) +');';

---

A tester.

@+

Bonjour,

je m'excuse de ne pas être venu sur le forum hier, j'ai pas pu venir au bureau à cause de la grêve de la sncf (mdr!)

au fait je viens d'essayer le code que tu avais proposé, mais sa ne marche j'ai ce message << String or binary data would be truncate>>

j'ai changer le format de la date en remplaçant

Code:

---

QuotedStr(FormatDateTime('YYYY-DD-MM', dte))

---

par

Code:

---

QuotedStr(FormatDateTime('DD-MM-YYYY', dte))

---

et j'ai le message suivant

Code:

---

Conversion failed when converting date and/or time from character string

---

Le problème ne vient pas de la date, mais doit venir d'un des champs dans lequel tu veux mettre une valeur qui est trop grande par rapport à la taille du champ.

Sinon le passage avec une Query avec des paramètres réglerait pas mal de problème.

Bonjour,

Et en passant par la lorraine.... Oups euh Mdr

En passant par un query avec parameters !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

// N'oublis pas de créer ton ADOTQuery With Qry do begin SQL.Clear; SQL.Add('Insert into [Performance] '); SQL.Add('([Date],[Type_Requête],[Requête],[Nombre_Exécution],[Commentaire_Requête],[Nombre_Enregistrement],[Chargement_BDE],[Chargement_ADO],[Chargement_DBExpress]) '); SQL.Add(' Values '); SQL.Add('(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9 )'); Parameters.ParamByName('p1').Value := FormatDateTime('dd/mm/yyyy', dte); // ou FormatDateTime('yyyy/mm/dd', dte); Parameters.ParamByName('p2').Value := DbEdit1.text; Parameters.ParamByName('p3').Value := DbMemo1.text; Parameters.ParamByName('p4').Value := DbEdit18.Text; Parameters.ParamByName('p5').Value := DbMemo2.text; Parameters.ParamByName('p6').Value := DbEdit2.text; Parameters.ParamByName('p7').Value := DbEdit5.text; Parameters.ParamByName('p8').Value := DbEdit10.text; Parameters.ParamByName('p9').Value := DbEdit7.text; Try ExecSQL; Except showmessage('Oh bon dieu de bouse, une big erreur est arrivée.'); end;

---

Il est cent fois plus pratique d'utiliser les parameters dans 90% des cas...

PS : Par expérience, evite d'utiliser des nom de champs avec des caractères accentués !!!!

Bye

j'ai essayé avec la query mais il m'a affiché le même message d'erreur, j'ai remplacé le code par celui-ci *

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

adoquery2.Open; adoquery2.Insert; adoquery2.FieldByName( 'Date' ).AsDateTime := dte; adoquery2.FieldByName( 'Type_Requête' ).AsString := DBEdit1.text; adoquery2.FieldByName( 'Requête' ).AsString := dbmemo1.text; adoquery2.FieldByName( 'Nombre_Exécution' ).AsInteger := StrToInt(dbedit18.Text); adoquery2.FieldByName( 'commentaire_Requête' ).AsString := dbmemo2.text; adoquery2.FieldByName( 'Nombre_Enregistrement' ).AsInteger := StrToInt(DBEdit2.text); adoquery2.FieldByName( 'Chargement_BDE' ).AsString := dbedit15.Text; adoquery2.FieldByName( 'Chargement_ADO' ).AsString := dbedit10.Text; adoquery2.FieldByName( 'Chargement_DBExpress' ).AsString := dbedit7.Text;   adoQuery2.Post; adoquery1.Close;

---

toujours le meme message d'erreur, je ne comprends pas pourquoi il n'arrive pas à convertir la date pourtant dans le showMessage la date est bien entre quote

Citation:

---

Envoyé par Rayek

Le problème ne vient pas de la date, mais doit venir d'un des champs dans lequel tu veux mettre une valeur qui est trop grande par rapport à la taille du champ.

---

j'ai augmenté la taille
les champs qui reçoivent le contenu des 2 memos sont de type text
j'ai 2 champs de type int
le reste des champs sont de type varchar(50)

jai encore essayé avec le code de BuzzLeclaire mais jai toujours le meme message d'erreur

Citation:

---

Envoyé par nakry

j'ai augmenté la taille
les champs qui reçoivent le contenu des 2 memos sont de type text
j'ai 2 champs de type int
le reste des champs sont de type varchar(50)

jai encore essayé avec le code de BuzzLeclaire mais jai toujours le meme message d'erreur

---

bon, Il n'y a pas de secret, cela viens plus probablement d'un probleme sur un champ, et aux vues de tes derniers messages, on est même pas sur duquel.

Donc, il faut que tu découpe ton probleme.
Commence à inserer qu'une valeur par champs, dès que tu tombe sur l'erreur, continue sur un autre champ afin d'isoler, de cibler sur quels champs on a l'erreur ensuite on pourras plus t'aider.

Ce que je t'ai mis fonctionnera (enfin faut corriger pour les integer) chose qu'on ne savais pas avant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

With Qry do begin SQL.Clear; SQL.Add('Insert into [Performance] '); SQL.Add('([Date],[Type_Requête],[Requête],[Nombre_Exécution],[Commentaire_Requête],[Nombre_Enregistrement],[Chargement_BDE],[Chargement_ADO],[Chargement_DBExpress]) '); SQL.Add(' Values '); SQL.Add('(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9 )'); Parameters.ParamByName('p1').Value := FormatDateTime('dd/mm/yyyy', dte); // ou FormatDateTime('yyyy/mm/dd', dte); Parameters.ParamByName('p2').Value := DbEdit1.text; Parameters.ParamByName('p3').Value := DbMemo1.text; Parameters.ParamByName('p4').Value := StrToInt(DbEdit18.Text); Parameters.ParamByName('p5').Value := DbMemo2.text; Parameters.ParamByName('p6').Value := StrToInt(DbEdit2.text); Parameters.ParamByName('p7').Value := DbEdit5.text; Parameters.ParamByName('p8').Value := DbEdit10.text; Parameters.ParamByName('p9').Value := DbEdit7.text; Try ExecSQL; Except showmessage('Oh bon dieu de bouse, une big erreur est arrivée.'); end;

---