Execution une requete Sql sur delphi

Bonjour
je travail sur un SGBD sql server 2012 et sur delphi7 comme EDI
je voulais exécuter une requete SQL et afficher le resultat sur un dbgrid ,toutes est relier (Datasource et Adoquery)
mais le probleme quand je compile le programme une erreur comme celle là (Syntaxe incorrecte vers le mot clé 'Where')
voila mon code source

Code:

---

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

procedure TFMouvement_art.SpeedButton1Click(Sender: TObject); begin with query1 do begin sql.Clear; SQL.Text :='select agent.nom_agent, agent.prénom, art.code_ar, decharge.num_dech, utilisateur.code_utilisateur, utilisateur.nom_util '; sql.Text:='from agent, art, decharge, ligne_decharge, utilisateur'; sql.Text:='where agent.code_agent=decharge.code_agent and art.code_ar=ligne_decharge.code_ar and decharge.num_dech=ligne_decharge.num_dech and utilisateur.code_utilisateur=decharge.code_utilisateur and art.code_ar='''+dblookupcombobox1.text+''''; active:=true; end; end;

---

Bonjour,
L'affectation de valeur à la propriété Text la réinitialise (Text est de type TStrings)
2 possibilités :

Code:

---

1 2 3

SQL.Text := 'select agent.nom_agent, agent.prénom, art.code_ar, decharge.num_dech, utilisateur.code_utilisateur, utilisateur.nom_util'#13#10 + 'from agent, art, decharge, ligne_decharge, utilisateur'#13#10 + 'where agent.code_agent=decharge.code_agent and art.code_ar=ligne_decharge.code_ar and decharge.num_dech=ligne_decharge.num_dech and utilisateur.code_utilisateur=decharge.code_utilisateur and art.code_ar=' + QuotedStr(dblookupcombobox1.Text);

---

ou

Code:

---

1 2 3 4

SQL.Clear; SQL.Add('select agent.nom_agent, agent.prénom, art.code_ar, decharge.num_dech, utilisateur.code_utilisateur, utilisateur.nom_util'); SQL.Add('from agent, art, decharge, ligne_decharge, utilisateur'); SQL.Add('where agent.code_agent=decharge.code_agent and art.code_ar=ligne_decharge.code_ar and decharge.num_dech=ligne_decharge.num_dech and utilisateur.code_utilisateur=decharge.code_utilisateur and art.code_ar=' + QuotedStr(dblookupcombobox1.Text));

---

Bonjour,

l'erreur vient de l'utilisation de SQL.Text:= au lieu de SQL.Add(); en fait en utilisant SQL.text le texte du SQL est uniquement celui de la ligne 9

Autres remarques en vrac :
préférez un SQL plus normé (et donc plus facile à lire) : Utilisez les clauses de jointure <table1> JOIN <table2> ON table1.champ=table2.champ
préférez une requête paramétrée ou utilisez quotedStr() plutôt que de risquer un problème de '
optimisez vos jointures (l'ordre de ces dernières à de l'importance)
et utiliser des nom alias plus court pour les tables ne serait peut être pas un luxe

Code:

---

1 2 3 4 5 6 7

SQL.Add('select agent.nom_agent, agent.prénom, art.code_ar, decharge.num_dech, utilisateur.code_utilisateur, utilisateur.nom_util '); sql.Add('from agent join decharge on agent.code_agent=decharge.code_agent'); sql.add(' join ligne_Decharge on decharge.num_dech=ligne_decharge.num_dech'); SQL.Add(' join art on ligne_decharge.code_ar=art.code_ar'); sql.add(' join utilisateur on decharge.code_utilisateur=utilisateur.code_utilisateur'); sql.add('where art.code_ar='+QuotedStr(dblookupcombobox1.text));

---

Merci bcp mes amis,grace à vous je m'avance plus en plus