filtre dbgrid avec sql

Version imprimable

Voir 40 message(s) de cette discussion en une page

Filtre dbgrid avec 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.
Code:

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

19/10/2012, 10h59
Rayek

Citation:

Envoyé par SergioMaster

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)

Citation:

Envoyé par 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.

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

Filtre dbgrid avec sql

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:

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);

19/10/2012, 11h22
kasrimus

Filtre dbgrid avec sql

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.
19/10/2012, 12h19
Rayek

Citation:

Envoyé par 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.

Désoler c'est le QuotedStr

Enfin il nous manque une grosse information.

Quelles sont les types de champs de la base de données ?
Année = Integer ? String ? DateTime ?
Situation = idem ?
19/10/2012, 15h52
kasrimus

Filtre dbgrid avec sql

Bonsoir,
merci pour votre réponse, en fait les champs sont de types String, Integer et datetime. base access 2007
merci encore

:arf: on est content de savoir qu'il y a des

Citation:

les champs sont de types String, Integer et datetime

mais cela nous dit pas quel est le type du Champ année et du champ situation
(ceux de la clause WHERE)

donc , je répète (résume) les solutions proposées par Ph.B. et Buzz
Code:

1 2 3 4 5 ADOQuery1.Active := false ; ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année=:A and situation =:S'; ADOQUERY1.Parameters.ParamByName('A').Value:=combobox3.Text; ADOQUERY1.Parameters.ParamByName('S').Value:=edit3.Text; ADOQuery1.Active:=True;
Vérifiez le type des champs Année et Situation et typez les paramètres en conséquence sera un + (voir post de Buzz) . Transformez si besoin les valeurs des zones de saisie .

par exemple : Annee devrait être un Entier donc je mettrais le code suivant
Code:

1 2 ADOQUERY1.Parameters.ParamByName('A').DataType :=ftInteger; ADOQUERY1.Parameters.ParamByName('A').Value:=StrtointDef(combobox3.Text,0);
c'est un peu plus compliqué ? je vous l'accorde , mais c'est certainement plus 'carré'

pour ce qui est de votre Query non paramétrée c'est qu'il manque tout simplement un espace devant le and , chose que vous auriez évité avec une requête paramétrée .

Prenez de bonnes habitudes.

PS. je suis étonné de voir une discussion de ce genre prendre 4 * sans aucun :plusser: mais encore plus de voir que la solution a été proposée des le début et que 2 semaines plus tard on nous re-serve le même code

19/10/2012, 17h32
kasrimus

Filtre dbgrid avec sql

Bonsoir
merci pour votre réponse, cela ne marche pas toujours,
merci pour le tout
19/10/2012, 21h13
BuzzLeclaire

Citation:

Envoyé par SergioMaster

PS. je suis étonné de voir une discussion de ce genre prendre 4 * sans aucun :plusser: mais encore plus de voir que la solution a été proposée des le début et que 2 semaines plus tard on nous re-serve le même code

La cela mérite un :plusser: , d'ailleurs j'avais pas réondu desuite pour qu'on moins il relise les solutions...:aie:
19/10/2012, 21h47
kasrimus

Filtre dbgrid avec sql

Bonsoir,
je remercie toute les personnes qui ont tout fait pour m'aider, je ne maitrise pas beaucoup ado et mois les requêtes sql.
j'ai toujours le même problème.
c'est vrai que cela mérite:ccool:
la question reste ouverte.
20/10/2012, 07h00
SergioMaster

Quand nous fournirez vous (enfin) le code que vous essayez et ce que nous demandons depuis le début : les types de champs de année et situation ?
:roll:

Citation:

cela ne marche pas toujours,

ne veut pas dire que cela ne fonctionne (marche) pas .
Donc : un peu de rigueur !

Répondez aux questions suivantes

1-Dans la table nommée table1 , Année est de type ?
2-Dans la table nommée table1 , Situation est de type ?

3-Le code ?

4-le résultat ou le message d'erreur ?

5-le jeu d'essai ?

6-Ce qui devrait être obtenu ?
20/10/2012, 10h58
kasrimus

Filtre dbgrid avec sql
Bonjour
merci pour votre réponse,

1-Dans la table nommée table1 , Année est de type Integer
2-Dans la table nommée table1 , Situation est de type String

3-Le code:
Code:

1 2 3 ADOQuery1.Active := false ; ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+QuotedStr(combobox3.Text)+ 'and situation ='+QuotedStr(edit3.Text); ADOQuery1.Active := true ;
4-le résultat ou le message d'erreur ? Aucun message d'erreur

5-le jeu d'essai ? je ne comprend pas c'est quoi le jeu d'essai

6-Ce qui devrait être obtenu ? filtrer un dbgrid sur de champs:
Champ [situation] : soit AP ou AD
Champ [Année] : 2008, 2009, 2010, 2011 et 2012

dans les Items du combobox3 sont : AP et AD - 2008, 2009, 2010, 2011 et 2012.

Merci pour l'aide.
c'est gentil.

Voilà quelquechose de plus précis...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
With ADOQuery1 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 := ftInteger;
  Parameters.ParamByName('xSituation').DataType := ftString;
  Parameters.ParamByName('xAnnée').Value := StrToIntDef(ComboBox3.text,'2008');
// Possible aussi pour Combobox3
// if ComboBox.itemIndex <> - 1 
// then Parameters.ParamByName('xAnnée').Value := StrToInt(ComboBox3.Strings[ComboBox3.itemIndex])
// else Parameters.ParamByName('xAnnée').Value := 2008;
  Parameters.ParamByName('xSituation').Value := Edit3.text;
 
  Try
   Open;
   // ... ici fait ton traitement
 
  Finally
   Close;
  end;
 
end;

;)

20/10/2012, 11h45
SergioMaster
:arf: Nous nous évertuons a vous donner une solution avec des paramètres que vous n'utilisez pas :roll:

Correction de votre code :
Code:

1 2 3 4 ADOQuery1.Active := false ; ADOQuery1.SQL.Text := 'SELECT * FROM table1 WHERE année='+combobox3.Text+ ' and situation ='+QuotedStr(edit3.Text); ADOQuery1.Active := true ;
:arf:
de plus dans les messages d'hier
- Rayek vous a indiquer de supprimer QuotedStr pour la partie année
- je vous ai indiqué qu'il manquait un espace devant le 'and situation'

et :arf: je pense également vous avoir donné en code la solution en utilisant des paramètres , un simple copié/collé est-il trop demander ?

PS. pour info , un jeu d'essai un ensemble de données test (soit une partie du contenu de la table1)
20/10/2012, 14h08
kasrimus

Filtre dbgrid avec sql

Bonsoir
je vous remercie pour l’intérêt particulier que vous accorder à mon problème.
si on vous sollicite c'est pour que nous puissions améliorer nos connaissances.
et je dirais que le rôle vous jouer, seul dieu pourras vous récompenser.
personnellement avec de l'argent je n'ai pas pu régler mon problème et cela fait plus de 25 jours que je galère.
donc merci encore.
s'agissant du code il m'affiche une erreur au niveau :

Code:

Parameters.ParamByName('xAnnée').Value := StrToIntDef (form1.ComboBox7.Text);//,'2008');

pour votre information j'utilise adoquery avec delphi
Merci encore et bon courage.
20/10/2012, 14h28
Ph. B.
Bonjour,

Citation:

Envoyé par kasrimus

si on vous sollicite c'est pour que nous puissions améliorer nos connaissances.

Je vais jouer les grincheux :evil:,mais je n'ai pas l'impression après avoir parcouru l'ensemble de la discussion que vous avez pris en compte les remarques ou les solutions que l'on vous a fournies... :(

Citation:

Envoyé par kasrimus

s'agissant du code il m'affiche une erreur au niveau :

Code:

Parameters.ParamByName('xAnnée').Value := StrToIntDef (form1.ComboBox7.Text);//,'2008');
1. Vous n'avez pas donné le libellé de l'erreur :roll:
2. En regardant le code, je peux déjà dire que j'écrirais
  
  Code:
  
  Parameters.ParamByName('xAnnée').Value := StrToIntDef(form1.ComboBox7.Text, 2008);
  
  ou encore
  
  Code:
  
  Parameters.ParamByName('xAnnée').Value := StrToInt(form1.ComboBox7.Text);
Mais je ne suis pas sur vu les hypothèses partielles, que cela résolve votre problème...

Filtre dbgrid avec sql

Bonjours mes amis.
Enfin j'ai pu régler mon problème et cela grâce à vous mes amis. c'est vraiment très gentil, et je m'excuse pour la lenteur dans la compréhension. En fait je suis beaucoup plus access que delphi. merci encore
une autre question si c'est possible, comment peut extraire uniquement l'année d'un champ date svp.
en acces [VBA] code est:
Code:

1 2 3 4 5 6 Private Sub DateDépôt_Exit(Cancel As Integer) Dim myAnnée As Variant 'déclaration de la variable myAnnée = DatePart("yyyy", [DateDépôt]) 'extrait l'année de la date courante. Me.[Texte3] = Me.[Texte3] & " /" & myAnnée Me.Année = myAnnée End Sub
merci encore.

21/10/2012, 14h25
BuzzLeclaire

Utilise la function YearOf de l'unité DateUtils.

Créé un autre topic se serait mieux.
21/10/2012, 16h23
kasrimus

Filtre dbgrid avec sql

Bonsoir
merci pour la réponse, svp un exemple si ce n'est trop demandé
merci encore

Voir 40 message(s) de cette discussion en une page