Base de données TQuery filtre

Bonjour à tous!

Ma question a probablement et malheureusement déjà été traitée, mais je ne trouve pas ce que je veux, même après de nombreuses minutes de recherche (disons 40 min). Alors voilà ma question :

Je veux faire un filtre dans une base de donnée avec un TQuery. Chose simple et fonctionnel.

Code:

---

Query->Filtre = "ID = '" + Id_Filtre->Text + "*' ";

---

Ensuite je l'active.

Je mets ce code dans l'action OnKeyUp de sorte qu'il rafraichit le filtre à chaque lettre.

Ma deuxième étape non-fonctionnelle vient lorsque je veux garder ce filtre et ajouter le filtre dans une autre colonne.

Code:

---

Query->Filtre = "No = '" + No_Filtre->Text + "*' ";

---

J'aimerais qu'il garde en mémoire le premier filtre, alors :

Code:

---

Query->Filtre = "ID = '" + ID_Filtre->Text + "*' && " + Query->Filtre ;

---

Donc, j'imagine que de la sorte, il gardera le filtre précédent. Malheureusement pas...

Vous voyez bien que je suis un codeur de base gamme... mais j'apprécierais un peu d'aide ;)

Merci,

Bonne journée!

antoine

Salut,
alors, déjà une petit remarque sur ton filtre SQL :
Tu met une étoile derrière le texte de ton filtre, je suppose que c'est pour dire que tu veut tout ce qui commence par ce texte. En SQL il faut alors utiliser l'attribut LIKE pour faire cela, ton code

Code:

---

Query->Filtre = "ID = '" + Id_Filtre->Text + "*' ";

---

devient donc

Code:

---

Query->Filtre = "ID LIKE %" + Id_Filtre->Text + "*% ";

---

Ensuite il faut a mon avis que tu fasse pointer le même événement OnKeyUp pour tes deux TEdit et que tu y met ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

AnsiString filter; if(Id_Filtre->Text != "") { filter = "ID LIKE %" + Id_Filtre->Text + "*%"; } if(No_Filtre->Text != "") { if(filter != "") filter += " && "; filter += "No LIKE %" + No_Filtre->Text + "*%"; }

---

Tout d'abord, merci!

Ensuite, le premier code que j'utilisais :

Code:

---

Query->Filtre = "ID = '" + Id_Filtre->Text + "*' ";

---

Fonctionnait, et provenait de :

http://lberne.developpez.com/bcb/paradox/

Mais, ce n'est peut-être pas la meilleure méthode.

Alors, j'ai tenter de mettre en oeuvre le code que vous m'avez donner de la façon suivante :

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 25 26

void __fastcall TForm2::ID_FiltreKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { AnsiString filter;     if(Id_Filtre->Text != "") { filter = "ID LIKE %" + Id_Filtre->Text + "*%"; Query1->Filter = filter; Query1->Filtered = true; } if(No_Filtre->Text != "") { if(filter != "") filter += " && "; filter += "No LIKE %" + No_Filtre->Text + "*%"; Query1->Filter = filter; Query1->Filtered = true; } if(No_Filtre->Text == "" && Id_Filtre->Text == "") { Query1->Filtered = false; }   }

---

Comme vous me l'avez suggérez (ce qui est une très bonne idée d'ailleurs) j'ai faite pointer les deux évènement de "OnKeyUp" vers la même fonction.

Cependant, il y a un problème :

Lorsque j'entre du text dans ma boîte Id_Filtre (dans la boîte No_Filtre tout va bien, ça filtre) l'erreur suivante survient :

"Invalid filter expression character : '%'."

Je vais continuer d'essayer de trouver le problème en vous attendant.

merci,

antoine

Bonjour,
je vient de vérifier et mes souvenir en SQL été quelque peut erroné, voici la bonne syntaxe :

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 25 26

void __fastcall TForm2::ID_FiltreKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { AnsiString filter;     if(Id_Filtre->Text != "") { filter = "ID LIKE '" + Id_Filtre->Text + "%'"; Query1->Filter = filter; Query1->Filtered = true; } if(No_Filtre->Text != "") { if(filter != "") filter += " && "; filter += "No LIKE '" + No_Filtre->Text + "%'"; Query1->Filter = filter; Query1->Filtered = true; } if(No_Filtre->Text == "" && Id_Filtre->Text == "") { Query1->Filtered = false; }   }

---

En fait, en SQL on utilise le % à la place du * avec le LIKE pour signaler que c'est un contenu partielle

Bonjour,

J'ai essayé avec modifications, et j'ai toujours une erreur :

"Operation not applicable."

(J'ai reviser mon code pour me rendre compte que le No_filtre OnKeyUp pointait vers la mauvaise fonction ce qui explique qu'un des deux fonctionnait, désormais, les deux sont non-fonctionnel)

La même erreur survient dans les deux cas :

"Operation not applicable."

Peut-être que ce n'est pas dans la propriété "Filter"

Code:

---

Query1->Filter = filtre;

---

Mais plutôt dans la propriété SQL qu'il faudrait attribuer le code?

Code:

---

Query1-SQL = filtre;

---

Si c'est le cas, j'ai un petit problème puisque j'utilise déjà cette propriété pour me faire une Grid à partir de différente table (requête SQl en bref).

Je vais essayer avec le SQL tout en gardant mes anciennes requêtes.

merci,

antoine

Salut,
dans la propriété SQL, tu doit mettre une requête complète, or la tu n'as qu'une clause WHERE d'une requête, ce qui correspond au filtre, par contre il est possible que la propriété Filter ne gère pas le LIKE, mais cela m'étonnerai, à voir.

Après quelques lecture de l'aide Borland voici la réponse tant cherchée :

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 25 26 27

void __fastcall TForm2::Id_FiltreKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { AnsiString filter;   if(Id_Filtre->Text != "") { filter = "ID = '" + Id_Filtre->Text + "*'"; Query1->Filter = filter; Query1->Filtered = true;   } if(No_Filtre->Text != "") { if(filter != "") filter += " and "; // Voici la ligne qui fait toute la différence 8-) filter += "No = '" + No_Filtre->Text + "*'"; Query1->Filter = filter; Query1->Filtered = true;   } if(No_Filtre->Text == "" && Id_Filtre->Text == "") {   Query1->Filtered = false; } }

---

La syntaxe est " and " plutôt que " && ".

Merci de votre intérêt!

Antoine

Citation:

---

Envoyé par antoinelac

La syntaxe est " and " plutôt que " && ".

Merci de votre intérêt!

Antoine

---

Houla, je suis vraiment désolé, j'aurai pas du mettre cette connerie, je suis trop habitué au C++, j'ai mélangé, vraiment désolé de cette grossière erreur.

Pas de problème! Votre aide m'a permis de me rendre à la solution!

Antoine