Débutant : Filtre dans un base de donnée access.

**Brain3D** · 21/05/2006, 05h39

Salut a tous,

J'ai une basé de donnée access que j'affiche dans un Dbgrid.
j'utilise les composantes Adoconnection, Adotable et Datasource.

Je veut faire un filtre dans la table et que mon dbgrid affiche TOUT les résultats contenant la chaine de charactère demandé.

Code :

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

1
2
adotable.Filter := 'Villes = ' + QuotedStr(edit1.text);
adotable.Filtered := true;

Le programme affiche seulement la ligne dont jai entré le nom exactement comment il est écrit dans la table. Si j'utilise une chaine de charactère partiel il retourne rien. je veux par exemple demandé : 'ST' et que le programme me retourne toutes le villes contenant la chaine 'ST'.

Merci!!

**Rayek** · 22/05/2006, 08h32

Code :

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

1
2
adotable.Filter := 'Villes = ' + QuotedStr('*' + edit1.text + '*');
adotable.Filtered := true;

Correction dans le code

**Brain3D** · 22/05/2006, 17h41

Merci, Mais ca ne fonctionne pas, peut-importe ce que j'écris dans edit1
le programme me retourne aucun enregistrement

Brain3d

**Rayek** · 23/05/2006, 08h17

Le filter est sensible à la casse, donc si tu cherches 'ST' et qu'il n'existe pas dans la base de données, il ne te le trouvera pas.
Sinon comment tu mets à jours le filtre ? sur le onchange du TEdit ou par un bouton ?

**Brain3D** · 23/05/2006, 18h54

J'écris tel que c'est ecris dans ma table et il ne retourne rien,

Je met a jour le filtre en cliquant sur un bouton.

**digital prophecy** · 25/05/2006, 14h13

En principe, le filtre d'ado ne permet pas de caractère générique. Les autres composants peuvent spécifié la propriété filteroption à "loPartialKey". Pour ado, je te proposerai de tout mettre dans une requête et d'exécuter ta requête avec un paramètre.

**aityahia** · 25/05/2006, 19h14

essai de désactiver le filtrer avant de faire le filtre,
parce que le filtrer et appliquer a la table qui est déja filtrer .

**Brain3D** · 26/05/2006, 03h48

Aityahia, J'ai essayer et ca ne fonctionne pas...

Digital Prophecy,

''Je te proposerai de tout mettre dans une requête et d'exécuter ta requête avec un paramètre''

Comment je fait ca?

Désolé je suis vraiment débutant, Dans ce jai fait
j'ai jamais eu a utilisé de requête Sql... Peut-être me suggérer un piste pour y arrivé ?

Merci

**Rayek** · 26/05/2006, 08h28

Quel version de delphi utilises tu ?

**Brain3D** · 27/05/2006, 04h08

Delphi 7

**kaouane** · 27/05/2006, 12h38

1- Il faut libérer la table ---> table.filtered:=false
2- saisir le filtre -----------> table.filter:=??????
3- Enfin, filtrer la table ----------> table.filtered:=true

Ca va marcher sans aucun doute.
Bon courrage.

**aityahia** · 27/05/2006, 16h06

essai un peut d'utiliser des requettes SQL moi personnellement je n'utilise plus les filtes c'est extrement delicat a gérer avec les quottes, en bien avoir le meme resultat avec des query

**Brain3D** · 28/05/2006, 06h09

Kaouane, jai essayer mais ca ne fonctionne pas, le programme me retourne seulement un enregistremement si ma recherche est exacte (partiel ne retourne rien)

aityahia, Je n'ai jamais utilise Sql, donc je ne sais pas du tout par ou commence pour faire une requete sql, est-ce que tu pourrais m'aider ?
(du moin me donne un bon point de depart)

Merci

**aityahia** · 28/05/2006, 09h53

ok dite nous quel version de delphi et type de base de données vous utiliser et on vous aidera a construire ta premiere requette.

**kaouane** · 28/05/2006, 10h53

Si tu veux faire un filtre partiel, il faut saisir :
(ma_table.filtre>="??????") or (ma_table.filtre<="??????");
Ca doit marcher sans aucun doute.

**Brain3D** · 28/05/2006, 17h13

Kaouane : peut-tu me donner un exemple de code, je suis pas sur de la syntaxe de ce que tu veux me faire essayer.

Aityahia : J'utilise Delphi 7, Ma base de donnee est en Access (.MDB)
et j'utilise ces composante pour me connecte : Adoconnection, Adotable, et un Datasource, la table est afficher dans un Dbgrid. et je veux faire un filtre partiel dans la table et que le dbgrid affaiche tout les enregistrement correspondant a la chaine de caracteres que jai inscrit dans un edit1.
le filtre se fait en cliquand sur un bouton.

Merci

**aityahia** · 28/05/2006, 19h59

Envoyé par kaouane

Si tu veux faire un filtre partiel, il faut saisir :
(ma_table.filtre>="??????") or (ma_table.filtre<="??????");
Ca doit marcher sans aucun doute.

on ne peut pas utiliser lopérateur < et > pour les valeur chaine Braind3d essai de faire un filtre avec une valeur partiel
pour utiliser une requette :

a la place de ton ADOTable insert un objet TADOQuery ou TADODatatset

et dans la propriété SQL ou CommandText tu insert le code suivant.
il faut spécifier la connection de la requette

Code :

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

1
2
 SELECT * FROM le_nom_table 
WHERE (Ville LIKE :MonParam)

MomParam est un parametre pour pouvoir donnée des valeur

et dans votre code Onclick du boutton

Code :

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

1
2
3
4
5
6
7
 
 if Edit1.Text <>'' Then
  Begin
   MyQuery.Close;
   MyQuery.Parametres.ParamByName('MonParam').value :=Edit1.Text+'%';
   MyQuery.Open;
  End;

le % et le caractère générique.

**kaouane** · 29/05/2006, 09h41

Envoyé par aityahia

on ne peut pas utiliser lopérateur < et > pour les valeur chaine

Mon ami;
Je t'assure que c'est très fesable et tu n'as qu'à l'essayer.
J'utilise cela dand chaque besoin et ça marche toujours.

**Brain3D** · 04/06/2006, 05h44

Aityahia, Ca fonction mais :

MyQuery.Parametres.ParamByName('monparam').value :=Edit1.Text+'%';

sinon le programme me retournais une erreur : Parametre non trouvés.
Ca fonctionne mais pas exactement comme je le voudrais, 2 choses:

1- A l'ouverture que de la table aucun enregistrement apparait. (DBGrid)
si je fait ma recherche les enregistrement voulu apparaissent, je veux qu'a l'ouverture de la table tout les enregistrements apparaissent avant de faire une recherche.

2- Lors de la Recherche, Seulement les enregistrement commencant par la chaine de caractere apparaissent, ce que je veux c'est tout les enregistrement contenant la chaine de caractere voulu, qu'elle soit un debut, millieu ou a la fin d'un enregistrement.

Merci!!
Brain3d

**aityahia** · 04/06/2006, 12h52

oui c'est un oublie vous devez donné le nom du paramettre bon vous pouvez essayer sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
if Edit1.text = '' then
begin 
 MyQuery.Close;
 MyQuery.CommandText:='SELECT * FROM le_nom_table ';
 MyQuery.Open;
end
 else
begin
MyQuery.Close;
MyQuery.CommandText:='SELECT * FROM le_nom_table WHERE (Ville LIKE :MonParam)';
MyQuery.Parametres.ParamByName('MonParam').value :='%'+Edit1.Text+'%'; 
MyQuery.Open;
end;