Discussion :

[koukitou]

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 :

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

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;

[Ph. B.]

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

Code :

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

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 :

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

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));

[SergioMaster]

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 :

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

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));

[koukitou]

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