Discussion :

[franky_miky]

Bonjour

J'ai pour objectif de filtrer les données du dataset.
La procédure ci-dessous ne filtre rien du tout :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
  s := '79410';
  sdfdataset1.active := false;
  sdfdataset1.Filter:= 'Field1='+QuotedStr(s);
  sdfdataset1.Filtered:=true;
  sdfdataset1.active := true;
end;

Si quelqu'un peut m'aider, grand merci à lui.
Salutations à tous.

[Gouyon]

Alors comme ça il me vient tout un tas de questions

Y a t'il '79410' dans Field1?
Pourquoi ne pas le faire directement dans la requête
Ta base est elle bien initialisée
As tu des données sans filtrage

[franky_miky]

bonjour
sympa de s'intéresser à mon problème.

réponse à Gouyon :
- il y a bien '79410' dans Field1?
- il n'y a pas de requête de type sql de ce type de composant
- il n'y a pas d'initialisation de base
- j'ai des données sans filtrage visibles dans un TDBGrid
---------------------------------------------------------------------------

je pense que le problème est dans la syntaxe du filtre.

merci à tous ceux qui voudront bien m'éclairer

salutations

[Ph. B.]

Bonjour,

je pense que le problème est dans la syntaxe du filtre.

Je ne le pense pas. L'expression est syntaxiquement correcte.
J'ai repris votre exemple et j'obtiens le même résultat...
Aussi, j'ai remonté le code, et à moins que je n'ai loupé quelque chose, je constate que la propriété Filter ne fait qu'affecter la valeur et rien de plus.
Or, cette page sur sourceforge le confirme : "Filter is not implemented by TDataset. It is up to descendent classes to implement actual filtering"
Et, aussi surprenant que cela soit, il se trouve qu'elle n'est pas implémentée dans son descendant TSdfDataSet !

N.B.: Lazarus 0.9.30.4 / FPC 2.6.0 / Win32 XP Home SP3
--
Philippe.

[franky_miky]

bonjour

la réponse de Ph. B. n'est pas très plaisante mais semble clore le sujet

merci à tous