Discussion :

[aityahia]

salut a tous vous avez cette requete

Code :

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

1
2
3
SELECT *
FROM LigneSortie
WHERE (LigneSortie.Article = :PAtrticle) AND (LigneSortie.NumBon= (SELECT Num FROM Sortie Where Dest = :PDest));

lorsque je l'exécute sou access elle renvoi un résultat ce qui est normal mais avec un ADOQuery j'ai aucun résultat trés bizard.

le plus beau c'est lorsque j'appel la requette sans paramettre elle me retourne un résultat.

Code :

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

1
2
3
SELECT *
FROM LigneSortie
WHERE (LigneSortie.Article = 870) AND (LigneSortie.NumBon= (SELECT Num FROM Sortie Where Dest = "P06199"));

[Fabrice ROUXEL 1]

Le probleme vient du fait que le second parametre est une chaine.
Generalement on utilise QuotedStr.
J'ai fait un test en creant 2 tables sous access, mais en bidouillant avec/sans QuotedStr() je ne trouve pas la solution.

Exmple du code qui plante avec type de données incompatibles 'comme s'il attendait une chaine et qu'on lui donnait autre chose) :

Code :

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

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

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT TableTest2.Nom AS Resultat FROM TableTest2' +
                  ' WHERE (  ( valeur= :truc) AND nom = ' +
                  ' (SELECT TableTest1.Champ1  FROM TableTest1 WHERE'+
                  '  (( champ2= 1)   AND' +
                  ' ( champ1=' + quotedstr(' :bidule') + ')) ) )');// pas bon

  ADOQuery1.Parameters[0].Value := 24.70;  // c'est bon
  ADOQuery1.Parameters[1].DataType := ftString;
  ADOQuery1.Parameters[1].Value := 'b';          // pas bon
  ADOQuery1.Open;
end;

Si on enleve QuotedSTr ou que l'on ecrit ADOQuery1.Parameters[1].Value := QuotedSTr('b'); cela ne fonctionne pas mieux.