Discussion :

[tomguiss]

bonsoir,

j'obtiens l'erreur suivante : "Erreur de syntaxe près de 'where bon.datelivraison = '2007-11-28'' à la ligne 4.

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
 
AnsiString format = "yyyy-mm-dd";
AnsiString s = NFeuilleRoute->DateTimePicker1->Date.FormatString(format);
Query1->Close() ;
Query1->SQL->Clear() ;
Query1->SQL->Add("select bon.refbon, bon.datelivraison, bon.refclient, client.nomclient, client.cpclient, client.villeclient") ;
Query1->SQL->Add("from client INNER JOIN bon ON client.refclient = bon.refclient") ;
Query1->SQL->Add("order by refbon ASC") ;
Query1->SQL->Add("where bon.datelivraison = :datelivraison") ;
Query1->ParamByName("datelivraison")->AsString = s;
Query1->Prepare();
Query1->Open() ;

Quelqu'un aurait-il une suggestion ?

merci,

[swirtel]

1. ORDER BY se trouve toujours APRES une clause WHERE
2. Il faut des espaces à la fin de chaque ligne que tu ajoutes parce que la méthode Add de ton TStrings ( Query::SQL ) ne le fait pas elle-même. Elle ne fait que concaténer tes chaines de caractères pour former ta requête SQL.

exemple:

Code :

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

1
2
3
4
5
 
query->SQL->Clear();
query->SQL->Add("SELECT * ");
query->SQL->Add("FROM TABLE ");
query->Active = true;

Pour ma part, j'utilise la property Text pour être certains du contenu.

Code :

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

1
2
3
4
5
6
 
query->SQL->Text = 
  "select bon.refbon, bon.datelivraison, bon.refclient, client.nomclient, client.cpclient, client.villeclient "
  "from client INNER JOIN bon ON client.refclient = bon.refclient "
  "where bon.datelivraison = :datelivraison order by refbon ASC";
Query1->ParamByName("datelivraison")->AsString = s;

[tomguiss]

évidemment ..... je pense à tout sauf à cela.

merci et bonne soirée.