Discussion :

[kasrimus]

Bonjour
pouvez vous m'orienter (aide) svp
je viens de m'intersser à delphi pour réaliser une application de gestion, mais là je bute sur sql, et ce pour filtrer une dbgrid sur 02 champs: voila le code:

Code :

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

1
2
3
4
ADOQuery1.Active := false ;
ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+QuotedStr(combobox3.Text)+ 'and situation ='+QuotedStr(edit3.Text);
ADOQuery1.Active := true ;
form1.Edit1.Text := IntToStr(ADOQuery1.RecordCount);

une fois compilé aucun résultas, même pas un message d'erreur...!
merci pour votre aide.

[Ph. B.]

Bonjour,

une fois compilé aucun résultas, même pas un message d'erreur...!

C'est à dire ? Rien ne s'affiche ? Avez vous tracé le code pour être sur qu'il est réellement exécuté ?
Sinon, j'éviterais de construire votre requête comme vous l'avez fait. J'utiliserais des paramètres, cela éviterait tout problème de conversion de type lors de l'évaluation de la requête et peut être des résultats autres que ceux attendus...
J'écrirais :

Code :

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

1
2
3
4
5
6
7
8
9
10
ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année = :PAnnee  and situation = :PSituation';
ADOQuery1.Parameters.ParamValues['PAnnee'] := ComboBox3.Text;
ADOQuery1.Parameters.ParamValues['PSituation'] := Edit3.Text;
ADOQuery1.Active := True ;
// form1.Edit1.Text := IntToStr(ADOQuery1.RecordCount);
// Le code est très certainement dans une méthode de la classe TForm1,
// aussi, éviter d'appeler une variable d'instanciation de cette classe,
// mais utiliser Self
Self.Edit1.Text := IntToStr(ADOQuery1.RecordCount);

La colonne "année", c'est pour l'exemple car je ne suis pas sur qu'ADO apprécie....
Dernière chose, n'oubliez pas à l'avenir de préciser quelle moteur de base de données vous utilisez.

[BuzzLeclaire]

Salut

Essai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
With ADOQuery do
begin
  Sql.Clear;
  Sql.Add('SELECT * FROM table1 ');
  Sql.Add('Where Année= :xAnnée ');
  Sql.Add('And Situation= :xSituation ');
  Parameters.ParamByName('xAnnée').DataType := ftString;
  Parameters.ParamByName('xSituation').DataType := ftString;
  Parameters.ParamByName('xAnnée').Value := combobox3.Text;
  Parameters.ParamByName('xSituation').Value := edit3.Text;
  Try
   Open;
   Edit1.Text := IntToStr(RecordSet.RecordCount);
  Finally
   Close;
  end;
 
end;

Grillé par Ph. lloll

[Ph. B.]

Grillé par Ph. lloll

Meuh non...
De plus, l'approche sur les paramètres est plus précise que celle que j'avais donnée.

[kasrimus]

Bonsoir
Oh...! Merci pour vos réponse, je suis vraiment très touché c'est gentil de votre part.
S'agissant de mon problème, je effectué les corrections (code) toujour le même problème rien ne s'affiche, par contre quand je filtre sur un seul champ ca marche :
code :

Code :

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

1
2
3
4
ADOQuery1.Active := false ;
ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+QuotedStr(combobox3.Text);
ADOQuery1.Active := true ;
form1.Edit1.Text := IntToStr(ADOQuery1.RecordCount);

base de donnée access 2007 delphi 2010
merci encore pour l'aide.

[Ph. B.]

S'agissant de mon problème, je effectué les corrections (code) toujour le même problème rien ne s'affiche, par contre quand je filtre sur un seul champ ca marche :

Quand vous filtrez seulement sur l'autre colonne ? ça fonctionne ?
Êtes vous sur que le jeu d'essai doit renvoyer une réponse à vos conditions de filtre ?

[kasrimus]

Bonsoir
effectivement, quand je filtre uniquement sur un champ cela fonctionne.
je vous remercie bien pour l’intérêt que vous accorder à mon problème
Merci

[masterdash]

Salut tous le monde, est je remercie tous qui ont participé ce se sujet.

Je remercie surtout [SergioMaster] et [Buzleclair] de leur aide précieuse et je confirme que cette solution donnée par les amis et après le test que j'ai fait elle marche très bien, il y'a qu'il faut faire la différence entre ADOQUERY et TQUERY elle change au niveau des Paramètre exemple :

1 - Pour ADOQUERY il faut mettre:
ADOQUERY1.Parameters.ParamByName('xnom').Value := edit1.Text;
2 - pour TQUERY ca change faite attention:
Qry1.ParamByName('xnom').asString := edit1.text;

Il faut ne pas oublier les guillemets à mettre dans parambyname de la variable. ici dans l'exemple 'xnom', bonne chance à tous.

[kasrimus]

Bonsoir
j'ai toujours pas réglé mon problème, svp est ce possible de m'orienter svp
merci d'avance

[masterdash]

Salut,

donne t'a requête pour voir ou sa ne va pas?

[kasrimus]

Bonjour
Mon problème c'est que je veux filtrer un dbgrid à l'aide d'un combobox sur 2 colonnes [situation] et [année]. je n'arrive pas, mais sur une seule colonne cela marche.

Code :

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

1
2
3
4
ADOQuery1.Active := false ;
ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+QuotedStr(combobox3.Text)+ 'and situation ='+QuotedStr(edit3.Text);
ADOQuery1.Active := true ;
form1.Edit1.Text := IntToStr(ADOQuery1.RecordCount);

merci pour votre aide

[Rayek]

en plus des avantages sus-cités par Phillipe , je rajouterais qu'avec une requête paramétrée on ne se souciera plus du format de la date (dans le cas de son dernier SQL)

Bonjour
Mon problème c'est que je veux filtrer un dbgrid à l'aide d'un combobox sur 2 colonnes [situation] et [année]. je n'arrive pas, mais sur une seule colonne cela marche.

Comme dit plus haut, le passage de paramètre est la meilleure solution, surtout que tu gères une date et que selon les bases de données il faut un format spécifique (Ex: Access : MM/DD/YYYY, MYSQL : YYYY-MM-DD, etc ...)

Après Année est il un champ numérique ou alphanumérique ?
Si numérique alors faut enlever le Quoted

[kasrimus]

Bonjour,
j'ai toujours le même problème. je filtre sur un seul champ cela fonctionne, mais sur 02 champs cela coince, j'utilise BD access 2007.
champs : situation et année. voilà, mes amis, et je remercie l’ensemble des intervenants.

code:

Code sql :

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

1
2
3
4
ADOQuery1.Active := false ;
ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+QuotedStr(combobox3.Text)+ 'and situation ='+QuotedStr(edit3.Text);
ADOQuery1.Active := true ;
form1.Edit1.Text := IntToStr(ADOQuery1.RecordCount);

[kasrimus]

bonjour,
merci pour votre réponse
comment enlever le quoted svp, un exemple svp
je filtre sur 2 champs sitution et année.
merci d'avance pour votre aide.