Discussion :

[checkrymo]

Bonjour a tout le monde et bonne année,
Voila, je plante depuis quelques jours sur l'utilisation d'un filtre (avec delphi6) d'une table créée sur un serveur Interbase6 (je suis débutant en interbase).
Pour filtrer une colonne "Nom" suivant un Edit1.text j'utilise ceci sur son évènement OnKeyPress:

Code :

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

1
2
3
IBTable1.Filter:='Nom='''+Edit1.Text+'*''';
IBTable1.Filtered:=True;
Edit1.SetFocus  ;

J'ai quatre tables (4 IBtables fonctionnent en jointure),
mais ca donne rien (ca fonctionne en Monoposte mais pas en client/server)
et quand je mets le filtre a false le DBGrid m'affiche tous les enregistrements.
Je précise que j'utilise un IBQuery, IBTransaction, IBUpdatesql et IBClientDataSet
Est ce qu'il y a quelqu'un qui peut m'orienter, c'est urgent.
et merci d'avance

[ShaiLeTroll]

ton exemple est sur IBTable1, ce n'est pas un IBQuery
Evite d'utiliser le IBTable en Client\Server mais utilise le TIBQuery pour lancer un SQL avec ton Filtre dans le WHERE !
Sur l'IBQuery, un Filtre n'est pas très justifié, tu récupéres toute la table par un SELECT * puis tu appliques le Filtre ? C'est n'est pas très performant !

Ensuite, pour la syntaxe, je n'ai pas utilisé de Filter depuis Paradox avec BDE, donc je ne pourrais pas dire son Filter est bon ...

Vérifie si FilterOptions contient foPartialCompare pour gérer le * dans Filter

mais j'écrirais ceci

Code :

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

1
2
3
IBTable1.Filter:= Format('Nom LIKE ''%s%%''', [Edit1.Text]);
IBTable1.Filtered:=True;
Edit1.SetFocus  ;

essayer aussi " au lieu de '

Code :

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

IBTable1.Filter:= Format('Nom LIKE "%s%%"', [Edit1.Text]);

[edam]

je n'utilise jamais IBTable depuis que j'ai lu le livre de olivier et Paul et j'utilise surtout IBDataset et IBsql,

mais ca donne rien (ca fonctionne en Monoposte mais pas en client/server)
et quand je mets le filtre a false le DBGrid m'affiche tous les enregistrements.
Je précise que j'utilise un IBQuery, IBTransaction, IBUpdatesql et IBClientDataSet

quelque fois j'utilise TClientdataset, mais jamais TIBClientDataset, mais je crois que je vais me remettre après la lecture de ce text pour bénificier des aggrégas de TClientDatset et de al puissance de TIBDataset , 3 en un, coul non?? et en peut ajouter le filtrage par Filter et filtred de TClientDataset alors on 4 en 1

[checkrymo]

Merci ShaiLeTroll et edam pour votre aide.
ShaiLeTroll , j'ai utilisé ta commande finalement ca marche, mais comment ajouter [locaseinsensitive] la commande pour qu'il ne fasse pas de différence entre minus et majus.
Edam, ca sera très gentil de ta part si tu me donne plus de détails sur l'utilisation de IBDataset, IBsql et filtrage par TClientDataset. je pense qu'en utilisant plusieurs postes clients, comme a dit ShaiLeTroll, il faut utiliser les IBQuery et IBTransaction (avec commit et Rollback) pour soulager le serveur.
Merci une autre fois.

[Just-Soft]

comment ajouter [locaseinsensitive] la commande pour qu'il ne fasse pas de différence entre minus et majus.

Pour FilterOptions voilà ce que dit aide Delphi :

Par défaut, FilterOptions contient un ensemble vide. Pour les filtres basés sur des champs chaîne, affectez la valeur foCaseInsensitive à FilterOptions pour obtenir toutes les variations de la chaîne sans tenir compte des différences majuscule/minuscule.

ainsi pour tenir compte de la différence on fait :

Code :

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

IBTable1.FilterOptions := [foCaseInsensitive];

pour retourner à l'état par défaut on fait :

Code :

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

IBTable1.FilterOptions := [];

[checkrymo]

Merci bcp Just-Soft,

[checkrymo]

Je pense que c'est l'inverse non?