Discussion :

[jojo86]

Bonjour,

Je souhaite filtrer sur mon TSQLQuery. Je n'ai pas de problème pour le faire sur tous mes autres champs, mais j'ai un champ qui est calculé lors du select, et ce champ-là ne me permet pas de filtrer dessus.

Voici ma requête :

Code :

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

Select Nom, Prenom, iif(ChampTest<TestChamp, 'Super', 'Pas cool') as Statut From MyTable

J'utilise une base Firebird.
Si je filtre sur Statut = Super, je n'ai aucune ligne alors que je vois bien qu'il y a des lignes dans mon tableau...
Le filtre fonctionne pour tous les autres champs. Je pense que le souci vient du champ calculé...

Code :

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

1
2
3
    IBQuery1.Filtered:=False;
    IBQuery1.Filter:= 'Statut = ' + QuotedStr('Super');
    IBQuery1.Filtered:=True;

Comment contourner ce problème ?

Merci d'avance,

[BeanzMaster]

Salut je ne suis pas un pro des BDD

Pourquoi vouloir passer par un filtre pour une requête si simple ?

Code :

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

SQLCommand :=  'select Nom, Prenom where Statut = ' + iif(ChampTest<TestChamp, 'Super', 'Pas cool')+' From MyTable';

Par contre je ne me souviens plus si il faut "quoter" les valeurs (Super, Pacool) ce qui donnerait

Code :

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

QuoteStr(iif(ChampTest<TestChamp, 'Super', 'Pas cool'));

En plus j'ai un doute sur la construction de ta commande SQL parce que le résultat donnerait

Code :

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

Select Nom, Prenom, Super as Statut From MyTable

Vraiment pas sûr de la validité de cette commande.

Sinon vu que tu "filtres" à mon sens, j'aurais plutôt fais comme ceci : (comme je l'ai dit, je suis pas un pro avec les BDD et Lazarus, c'est donc peut-être faux) :

Code :

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

1
2
3
4
5
6
 
    SQLCommand :=  'select Nom, Prenom From MyTable';
 
    IBQuery1.Filtered:=False;
    IBQuery1.Filter:= 'Statut = ' + QuotedStr iif(ChampTest<TestChamp, 'Super', 'Pas cool'));
    IBQuery1.Filtered:=True;

J'ai également trouvé cette discussion : https://www.developpez.net/forums/d1...ery-numerique/ qui pourrait t'aider.

A+

[jojo86]

Bonjour,

Effectivement, soit on ne s'est pas compris, soit ta réponse est fausse...
J'utilise les bases de données depuis des années (Access, mysql, firebird), et il est tout a fait possible de calculer un critère dans un select de la manière suivante :
Par exemple, une requête qui détermine en fonction de la date de naissance, si l'utilisateur est mineur ou adulte :

Code :

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

Select Nom, Prenom, iif(Cast('Now' as date)-DateNaissance<18, 'Mineur', 'Adulte') as StatutAge from TableUsers

Cette requête permettrait d'afficher dans un dbgrid tous les utilisateurs de la table TableUsers avec le Nom, Prenom et le StatutAge qui serait "Mineur" ou "Adulte".
La difficulté est maintenant d'utiliser la propriété filter du TSQLQuery pour filtrer sur cette requête...

Alors bien évidement, si je test en direct sur ma base de donnée et que je filtre avec un Where, je ne peux pas le faire directement sur la requête principale. Je dois faire :

Code :

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

Select * from (Select Nom, Prenom, iif(Cast('Now' as date)-DateNaissance<18, 'Mineur', 'Adulte') as StatutAge from TableUsers) Where StatutAge = 'Mineur'

Cette requête fonctionne en direct sur la base.

Si je l'applique dans Lazarus sans le Where donc juste avec :

Code :

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

Select * from (Select Nom, Prenom, iif(Cast('Now' as date)-DateNaissance<18, 'Mineur', 'Adulte') as StatutAge from TableUsers)

Le filtre sur StatutAge ne fonctionne pas.

Je pense qu'il faudrait peut être que le champ soit calculé directement depuis la base, mais je ne trouve rien là dessus. Si quelqu'un avait une piste je suis preneur.

Merci d'avance,

[BeanzMaster]

Ok je n'avais pas bien compris effectivement.

Je me pose quelques questions. Est-ce que ce champ 'Status' doit-il être déclaré pour être exploité ? Le champ 'Status' est-il déclaré dans le SQLQuery (clic Droit editeur de champs) ou l'initialises tu à la main ?

Une discussion sous Delphi qui se rapproche https://www.developpez.net/forums/d1...champ-calcule/

Sinon peut-être utiliser l'événement OnCalcField et activer le filtre dedans. mais à mon avis il faut passer par l'événement OnFilterRecord pour faire ce que tu souhaites

[jojo86]

Salut,
Je créer tous les composants à la main donc je n'ai pas de TSQLQuery sur mon form. Je fais tout dans le code.
Je creuse pour l'instant du côté de la base de données, en créant une vue dans la base, mais ça ne veut toujours pas fonctionner sous lazarus alors qu'en SQL direct sur la base je n'ai pas de problème...

Sinon j'ai une solution de bourrin qui n'est pas optimisée, ça serait de relancer une nouvelle requete avec un Where, mais j'aimerai pouvoir filtrer sur la query déjà ouverte...

[jojo86]

Bonsoir,
J'ai résolu tous mes problème en utilisant IBX4Lazarus. J'utilisais ce composant par le passé parce que lazarus n'avait pas de prise en charge pour les bases Firebird. Depuis quelques temps, j'utilise les composants standard de lazarus pour me connecter à firebird. Je constatais souvent des incohérences dans l'execution des requêtes.

Avec ce composant sur mesure pour Interbase/firebird, je n'ai plus de problème !!!
De plus, comme tous mes composants étaient créés dynamiquement, je n'ai eu que 2 minutes d'adaptation ! Comme quoi, ça a du bon de se faire mal dès le début d'un programme !

Pour telecharger cette bibliothèque : http://www.mwasoftware.co.uk

[alanglet]

Bonsoir,

Un exemple pour utiliser les filtres avec un TSQLQuery:

Code :

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

1
2
3
    MonSQLQuery.FilterOptions:=MonSQLQuery.FilterOptions-[foCaseInsensitive];
    MonSQLQuery.Filter:='nom_conjoint=''TRUC*'' or nom=''MACHIN''';
    MonSQLQuery.Filtered:=True;

FilterOptions=[foCaseInsensitive,foNoPartialCompare] par défaut.
foNoPartialCompare permet en mettant * à la fin de TRUC de trouver les nom_conjoint commençant par TRUC.
Le filtrage intervient sur les résultats de la requête, donc indépendamment du texte de cette requête.

Mais comme beaucoup je préfère utiliser le filtrage dans la requête, et il n'existe pas que les TSQLQuery et les IBX pour les bases Firebird. Il y a aussi les ZEOS et les UIB.

André

PS: Dans vos exemples, ça m'étonnerai que

Code :

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

iif(Cast('Now' as date)-DateNaissance<18, 'Mineur', 'Adulte') as StatutAge

donne satisfaction puisque Cast('Now' as date)-DateNaissance retourne un nombre de jours.
Par contre avec

Code :

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

1
2
select iif(cast('today' as date)>=dateadd(18 year to cast('12 19 1945' as date)),'Majeur','Mineur')
 from rdb$database

je suis rassuré d'apprendre que je suis majeur

[FOCUS77]

Bonjour à tous

@ jojo86

j'ai refais ton exemple dans les mêmes conditions et le code a fonctionnait convenablement

à condition que:

Le Sise du champ 'Statut' doit être égal à la longueur de la chaîne 'Super' soit 5.

mais l’inconvénient est que la deuxième chaîne 'Pas cool' ne va pas marcher car

sa longueur dépasse 5.

Afin de remédier à ce problème on va fixer le sise à 10.

et le code devient:

Code :

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

1
2
3
4
5
6
procedure TF_MAINFORM.Button2Click(Sender: TObject);
begin
MDT.SqlQuery.Filtered:=False;
MDT.SqlQuery.Filter:='Statut='+ QuotedStr('pas*');
MDT.SqlQuery.Filtered:=True
end;