Probleme avec sql FireBird

Bonjour tout le monde;
J'ai un champ dans une table; ce champ peut avoir soit une valeur 'P' soit une valeur 'R' soit rien c-a-d Null.
Je veut exécuter la requette suivante :

Code:

---

select * from Table where champ <> 'P'

---

Le problème c'est que la requette ne retourne rien même qu'ils existes des champs avec des valeurs 'P' et d'autres non;
Par contre si j'écris :

Code:

---

select * from Table where champ = 'P'

---

j'obtiens le résultat attendu.
Je n'arrive pas à résoudre le problème, j'espère qu'on va tirer quelque chose de ce problème et qu'il ne soit pas une bêtise de ma part.

:salut:

bizarre, cela devrait fonctionner sans problème pourtant, j'ai fait le même test et tout marche sans souci.

peux tu donner la définition de ta table, notamment le type de "champ"

tu peux aussi essayer ceci qui revient à ta première requête :

Code:

---

SELECT * FROM TABLE WHERE not(champ = 'P')

---

Je pense que c'est du au composant ADO. Quant je lance la requette à partir de IBEasy, elle marche normalement mais quant je la lance depuis l'application par le biais d'un composant ADOQuery j'ai un message d'erreur;
Je pense qu'il vaut mieux larguer ADO vers autres choses.

Et avec un code comme ça ?

Code:

---

select * from Table where champ <> 'P' and NOT (champ IS NULL )

---

Citation:

---

Envoyé par kaouane

mais quant je la lance depuis l'application par le biais d'un composant ADOQuery j'ai un message d'erreur;

---

ce serai bien que tu nous poste le message d'erreur ici

Citation:

---

Envoyé par evarisnea

ce serai bien que tu nous poste le message d'erreur ici

---

si dans ma table j'ai plusieurs champs avec une valeur 'P', si je lance :

Code:

---

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

Procedure TFomr1.Button1Click(sender TObject) var Q:TADOQuery; begin Q:=TADOQuery.Create(nil) Q.Connection:=dm.ADOConnection1; Q.sql.Add('Select * from table where (champ<>'+QuotedStr('P')+') or (champ is Null)'); Q.Open; Showmessage(IntToStr(Q.recordount)); Q.close; Q.Free; end;

---

j'ai le bon résultat; mais si j'écris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Procedure TFomr1.Button1Click(sender TObject) var Q:TADOQuery; begin Q:=TADOQuery.Create(nil) Q.Connection:=dm.ADOConnection1; Q.sql.Add('Select * from table'); Q.Open; Showmessage(IntToStr(Q.recordount)); // jusque là c bon, mais si je continu Q.filter=' (champ<>'+QuotedStr('P')+') or (champ is Null)'; Q.filtered:=true; Showmessage(IntToStr(Q.recordount)); Q.close; Q.Free; end;

---

le message d'erreur apparait :
"Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

OPEN avant de filtrer :koi:

L'open déclenche l'exécution de la requète. "Bricoler" les autres paramètres du ADOquery après l'exécution... je m'y hasarderais pas.

Pourquoi ne mets tu pas toute la requête dans le sql ?

Personnellement j'ai horreur des filtres et je m'arrange pour les éviter .
C'est peut être une erreur mais il faudra m'en convaincre :)

En tout cas ce n'est pas un problème Firebird mais bien ADO

Citation:

---

Envoyé par qi130

OPEN avant de filtrer :koi:

---

Et que voulez vous? filtrer avant Open????

Citation:

---

Envoyé par qi130

L'open déclenche l'exécution de la requète. "Bricoler" les autres paramètres du ADOquery après l'exécution... je m'y hasarderais pas.

---

non cher ami, mais si le filtre était sur une champ différent ça ne cause aucun problème; si par exemple, on met :

Code:

---

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

Procedure TFomr1.Button1Click(sender TObject) var Q:TADOQuery; begin Q:=TADOQuery.CREATE(nil) Q.Connection:=dm.ADOConnection1; Q.sql.ADD('Select * from table'); Q.Open; Showmessage(IntToStr(Q.recordount)); Q.filter=' (champ<>1 or (champ is Null)'; Q.filtered:=true; Showmessage(IntToStr(Q.recordount)); Q.close; Q.Free; end;

---

tout marche bien. Que dite vous??

Citation:

---

Envoyé par qi130

Pourquoi ne mets tu pas toute la requête dans le sql ?

---

C'est le besoin qui impose des choix fréquemment.

Citation:

---

Envoyé par SergioMaster

Personnellement j'ai horreur des filtres et je m'arrange pour les éviter .
C'est peut être une erreur mais il faudra m'en convaincre :)

---

C'est une erreur, mais c'est un choix aussi; vous pouvez bricoler pour éviter d'utiliser une fonctionnalité qui se trouve un critère de choix des moyens de connexion au données.

Citation:

---

Envoyé par SergioMaster

En tout cas ce n'est pas un problème Firebird mais bien ADO

---

Oui c'est sûr, la preuve que si j'utilise un autre moyen de connexion par exemple dbExpress, tout va bien.

Citation:

---

Envoyé par qi130

OPEN avant de filtrer :koi:

L'open déclenche l'exécution de la requète. "Bricoler" les autres paramètres du ADOquery après l'exécution... je m'y hasarderais pas.

Pourquoi ne mets tu pas toute la requête dans le sql ?

---

Le champ Filter peut tout aussi bien être défini à la conception (mais dans ce cas s'il ne doit pas changer il faut préférer 1000 fois l'intégrer à la requete.) ou bien à l'exécution.
Dans ce dernier cas ca peut se faire avant l'open (pas trop d'intérêt autant appliquer les critère dans la requête encore une fois) ou après.

Et donc je dirais le seul vrai intérêt c'est de la faire après le Open de manière dynamique.

Cependant il faut connaitre les limites de ce filtre. Il est purement local, ce qui veut dire que l'intégralité des enregistrements de la requête sont demandés (enfin si on balaye toute la requête). Et c'est donc en local que le composant va décider de fournir ou non l'enregistrement suivant ce filtre.

Donc je dirais que c'est une manière assez simple de créer des filtres utilisateurs dynamiques.

Pour revenir au problème originel, essayez ceci :

Code:

---

Q.filter=' (champ <> 1 or (champ is Null)';

---

Mettez impérativement un espace apres le nom du champ et avant l'opérateur de comparaison.

Code:

---

Q.filter=' (champ <> '+QuotedStr('P')+') or (champ is Null)';

---

Ca ne marche pas avec ADO cher Barbibulle, peut être parce que ADO essai de convertir le contenu du champ du filtre avant de le comparer; ce qui provoquera surement des erreurs à chaque fois.
Si par exemple le champ dans la table et de valeur null, il va essayer de la convertir avant de la comparer à la condition du filtre :
Q.filter='champ='+QuotedStr('P');
Je ne sais pas exactement, c juste une hypothèse.

Citation:

---

Envoyé par kaouane

Q.filter='champ='+QuotedStr('P');

---

Ne peut pas fonctionner. Comme je l'ai dit précédemment il faut mettre impérativement un espace après le nom des champs...

Citation:

---

Envoyé par kaouane

Q.filter='champ = '+QuotedStr('P');

---

Le même message apparait même avec l'astuce que vous m'avez proposé.

Ce n'est pas une astuce, c'est ce qui est écrit dans la documentation :

Citation:

---

Remarque*: Placez un espace entre les valeurs comparées et les opérateurs de comparaison dans les expressions de filtre.En particulier,vous devez vous assurer qu'il y a un espace après le nom de champ et avant l'opérateur.

---

De plus il me semble que pour tester un champ à null il ne faut pas faire comme en SQL : "Champ is NULL" mais "champ =NULL"

C'est quoi le message exactement ?

Citation:

---

Envoyé par kaouane

Et que voulez vous? filtrer avant Open????


non cher ami, mais si le filtre était sur une champ différent ça ne cause aucun problème; si par exemple, on met :

Code:

---

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

Procedure TFomr1.Button1Click(sender TObject) var Q:TADOQuery; begin Q:=TADOQuery.CREATE(nil) Q.Connection:=dm.ADOConnection1; Q.sql.ADD('Select * from table'); Q.Open; Showmessage(IntToStr(Q.recordount)); Q.filter=' (champ<>1 or (champ is Null)'; Q.filtered:=true; Showmessage(IntToStr(Q.recordount)); Q.close; Q.Free; end;

---

tout marche bien. Que dite vous??.

---

Je dis qu'une colonne ne peut être à la fois numérique (champ<>1) et alpha (champ <> '+QuotedStr('P')) :aie:
Trêve de... Il faudrait + de précisions, l'endroit exact où l'exception est lévée, etc... (en fait le code ci-dessus ne peut marcher car il manque 1 parenthèse fermante, alors j'ai un doute sur le "tout marche bien"...

@Barbibulle: oui, je comprends bien dans le cas où le query est cablé à un autre compo... mais là :roll:

Citation:

---

Envoyé par Barbibulle

De plus il me semble que pour tester un champ à null il ne faut pas faire comme en SQL : "Champ is NULL" mais "champ =NULL"

---

Non, ça marche aussi.

Citation:

---

Envoyé par Barbibulle

C'est quoi le message exactement ?

---

Le message d'erreur est le suivant:
"Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

Citation:

---

Envoyé par kaouane

Le message d'erreur est le suivant:
"Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

---

Bonjour,
il me semble (j'ai pas l'habitude d'ADO...), qu'il y a une erreur de syntaxe ici:

Code:

---

1 2	Q.filter=' (champ<>1 or (champ is Null)';

---

et il faudrait faire

Code:

---

1 2	Q.filter=' ((champ <>1) or (champ is Null)) ';

---

Mais encore une fois je ne suis pas rompu à ADO