Discussion :

[Shibron]

Bonjour à tous,

j'ai construit une requête paramètrée dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
requete :='SELECT REFERENCE_CLIENT_PIE as "Réference" FROM PIECE WHERE TYPE_PIE||"2610"||NUM_PIE =: NumFacture';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(requete);
Query1.ParamByName('NumFacture').AsString := lblNumFacture.Caption;
Query1.Open;
Query1.ExecSQL;
Edit1.Text := Query1.ParamByName('NumFacture').AsString;

et l'erreur est la suivante :

'Query1 : paramètres 'NumFacture' non trouvés'

sachant que c'est une requète de type TADOQuery

je suis un peut perdu la,je débute en delphi et je ne voit pas ce qui cloche dans mon code

Merci d'avance

[qi130]

Dans la requète, il ne faut pas d'espace entre ":" et le paramètre.
"=:" n'est pas l'équivalent SQL de l'affectation en Pascal.

Code :

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

requete :='SELECT ...  = :NumFacture';

[Shibron]

merci !
cependant maintenant j'ai une autre erreur
si je ne précise pas le nom de ma base qui est une base SAP DB il me dit qu'il ne trouve pas la table ce qui semble logique sauf que ma connexion a la base est faite dès l'ouverture du programme.

et si je précise le nom de la base il me demande le nom d'utilisateur et le mot de passe a chaque compilation pour m'afficher un résultat qui ne correspond pas au résultat de la requète
il m'affiche le numéro de facture qui ressemble a .2610.... alors que je veux qu'il m'affiche prestation 2008 par exemple

NB : j'ai testé ma requète sur sql studio ( qui est l'editeur sql de SAP DB ) en remplaçant le paramètre par une valeure connue et elle fonctionne

[Shibron]

problème résolu !

le souci était dans la requête voici mon code :

Code :

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

1
2
3
4
5
6
7
requete := 'SELECT REFERENCE_CLIENT_PIE FROM  PIECE WHERE TYPE_PIE ||'+QuotedStr('2610')+'|| NUM_PIE = :NumFacture';
QueryRefCliPie.Close;
QueryRefCliPie.SQL.Clear;
QueryRefCliPie.SQL.Add(requete);
QueryRefCliPie.ParamByName('NumFacture').AsString := lblNumFacture.Caption;
QueryRefCliPie.Open;
Edit1.Text := QueryRefCliPie.FieldByName('REFERENCE_CLIENT_PIE').AsString;