Discussion :

[Arsiezis]

Bonjour à tous,

Je galère un tout petit peu sur une requete SQL via ADO qui interroge 2 tables paradox.

Ca doit etre un truc tout bete mais je trouve pas et j'aimerai bien comprendre

Je sais que la requete suivante marche.

Code :

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

1
2
3
4
5
6
7
8
 
with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef ');
    SQL.Add('FROM PLU INNER JOIN SUPPPROD ON PLU.ProductNumber = SUPPPROD.ProductNumber ');
    SQL.Add('WHERE (((SUPPPROD.SupplierNumber)=' + edt1.text +' )) GROUP BY SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef ');
    Active:=True;
end;

Or j'aimerai rajouter à cette requete le champ Plu.Descriptor (seul champ dont les données seraient des strings) .

J'ai donc essayé plusieurs solutions et rien ne va et je me retrouve avec un message "erreur non spécifiée".

Merci d'avance à tous ceux qui prendront le temps de me répondre

[Cl@udius]

Salut

Montre-nous plutôt la requête qui ne fonctionne pas.

Mais a priori tu as peut-être oublié de mettre la valeur string entre quotes.

Code :

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

'... where .. and Plu.Descriptor = ' + QuotedStr(Edt2.Text) + ' ...'

@+ Claudius

[chaplin]

Code :

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

   SQL.Add('WHERE (((SUPPPROD.SupplierNumber)=' + edt1.text +' ))

A quoi servent toutes ces paranthèses après le where ?

[Arsiezis]

Voici 2 essais parmis les nombreux que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef, PLU.Descriptor ');
    SQL.Add('FROM PLU INNER JOIN SUPPPROD ON PLU.ProductNumber = SUPPPROD.ProductNumber ');
    SQL.Add('WHERE (((SUPPPROD.SupplierNumber)=' + edt1.text +' )) GROUP BY SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef ');
    Active:=True;
  end;

Et

Code :

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

1
2
3
4
5
6
7
8
  with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef, PLU.Descriptor ');
    SQL.Add('FROM PLU INNER JOIN SUPPPROD ON PLU.ProductNumber = SUPPPROD.ProductNumber ');
    SQL.Add('WHERE (((SUPPPROD.SupplierNumber)=' + edt1.text +' )) GROUP BY SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef, PLU.Descriptor ');
    Active:=True;
  end;

Plu.Descriptor est un champ de ma table que je veux simplement afficher. J'aime bien chercher mais sur ce coup je desespere surtout que je sens que ça va etre tout bete

@chaplin : Moui y'a surement aussi un peu de ménage à faire

[Cl@udius]

Pourquoi utiliser un group by sans fonction d'agrégat ?

Un order by suffit si le but est de trier le résulat.

[Andnotor]

SUPPPROD est la table jointe. N'aurais-tu pas un problème avec la clause WHERE

Essaye en faisant la jointure inverse. (Et comme dit Claudius, le GROUP BY ne sert à rien !)

Code :

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

1
2
3
4
5
6
7
with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef, PLU.Descriptor');
    SQL.Add('FROM SUPPPROD INNER JOIN PLU ON PLU.ProductNumber = SUPPPROD.ProductNumber');
    SQL.Add('WHERE SUPPPROD.SupplierNumber=' + edt1.text);
    Active:=True;
  end;

[Arsiezis]

Merci pour le GROUP BY, en effet un ORDER BY suffit.

Comme dit sans ce champ la requete fonctionne bien mais dès qu'il rentre en jeu c'est le bordel.

Meme avec la jointure inverse ça bloque, d'ailleurs ça bloque aussi si j'enlève le WHERE.

J'ai testé la requete avec Access et la aucun soucis.

Bon j'ai une solution pour contourner le problème mais j'aimerai bien savoir d'où ça vient

[Arsiezis]

Gniii je l'ai eu

Apparement Descriptor est un mot réservé et il suffit de rajouter une contre cote (`) pour que ça passe.

Voici le code qui tourne :

Code :

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

1
2
3
4
5
6
7
8
 
with ADOQuery1 do begin
    SQL.Clear;
    SQL.Add('SELECT SUPPPROD.SupplierNumber, SUPPPROD.SupplierProductCode, PLU.PluCode, PLU.Coef, PLU.`Descriptor` ');
    SQL.Add('FROM SUPPPROD INNER JOIN PLU ON PLU.ProductNumber = SUPPPROD.ProductNumber');
    SQL.Add('WHERE SUPPPROD.SupplierNumber=' + edt1.text);
    Active:=True;
  end;

Merci pour la rapidité de vos réponses et pour l'épuration de mes quelques lignes de code