Discussion :

[kaouane]

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 :

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

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 :

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

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.

[evarisnea]

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 SQL :

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

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

[kaouane]

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.

[evarisnea]

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

[kaouane]

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 :

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

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 :

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

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"

[qi130]

OPEN avant de filtrer

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 ?

[castorcharly]

Et avec un code comme ça ?

Code :

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

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