Discussion :

[melles]

Bonjour à tous,

Une question surement fort simple pour vous
Il faudrait que je filtre ma TAdoQuery en fonction d'une variable local utilisée dans une de mes unités. Comment dois-je écrire mon code SQL ?

J'ai essayé des truks du genre :

select * from commande
where Cat = fiche1_commande.cat

Bien sur : fiche1_commande est mon unité ou se trouve la variable "cat".

D'avance merci

[Just-Soft]

Salut;

la réponse est dans l'utilisation des paramètres :

Code :

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

1
2
select * from commande
where Cat =:varLocal

ensuite :

Code :

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

1
2
3
4
 
ADOQuery1.Close;
ADOQuery1.SQL.Params[0].Value := fiche1_commande.cat;
ADOQuery1.Open;

je crois que c'est tout.

Bon codage.

[hazamor]

Tu peut encore formé la requete dynamiquement:

Code :

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

1
2
3
4
5
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
rsql:= 'select * from commande where Cat =' + varLocal.valu;
ADOQuery1.SQL.Add(rsql);
ADOQuery1.Open;

[melles]

Tu peut encore formé la requete dynamiquement:

Code :

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

1
2
3
4
5
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
rsql:= 'select * from commande where Cat =' + varLocal.valu;
ADOQuery1.SQL.Add(rsql);
ADOQuery1.Open;

ça ne fonctionne pas! Delphi demande de déclarer la variable 'rsql' de la ligne :

Code :

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

rsql:= 'select * from commande where Cat =' + varLocal.valu;

J'ai essayé de remplacer 'rsql' par 'sql' au cas ou il y aurait une faute de frappe mais non!!!



J'ai donc utilisé la méthode fourni par Just-Soft mais là également Delphi me demande de déclarer 'Params' de la ligne :

Code :

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

ADOQuery1.SQL.Params[0].Value := fiche1_commande.cat;

Il n'y a aucune procedure commençant par un 'p' aprés : 'ADOQuery1.SQL'

[SergioMaster]

tout simplement parque rsql est une variable string à déclarer
mais

Code :

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

1
2
3
4
5
 
ADOQuery1.Close;
ADOQuery1.SQL.Clear; 
ADOQuery1.SQL.Add('select * from commande where Cat =' + varLocale);
ADOQuery1.Open;

doit fonctionner, cependant passer par un paramètre est fortement recommandé , en effet si cat est un entier et varlocale aussi il faudrait écrire
Cat='+inttostr(varlocale)
dans le cas de chaine de car il faudrait soit mettre de " en plus
CAT="'+varlocale+'"'
soit mettre
Cat='+quotedstr(varlocale)
je passe sur les dates et différents formats , les Floats etc ....

[melles]

Je venais tout juste de comprendre qu'il fallait déclarer 'rsql' en tant que string.

En tout cas : bien vu pour le reste SergioMaster!!!
Tu as deviné juste sur tout : L'ajout de double guillemet, l'utilisation de 'inttostr'.
Impressionné!!!

Maintenant ça fonctionne à merveille

[melles]

J'ai oublié d'ajouter que :

Code :

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

ADOQuery1.Close;

m'a générer une erreur alors que :

Code :

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

ADOQuery1.Active:= false;

focntionne.
Je ne sais pas trop pourquoi mais bon vu que ça marche

Encore merci à tous

[Cl@udius]

Salut

Tu es sûr ?

Cela m'étonne puisque la méthode Close de TDataSet se résume mettre Active à False.

@+ Claudius