Discussion :

[Laurent Dardenne]

Salut,
utilisant la grille TSMDBGrid je rencontre un petit soucis sur la mise en place de filtre, je dois récupérer la liste des filtres d'une colonne avant de pouvoir l'affecter sinon j'obtiens une AV :

Code :

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

1
2
3
4
5
6
7
8
9
 
const 
 cstRqstFiltreDuns='Select distinct tmondiale FROM Sites WHERE Orphelin<>0 and tmondiale is not null';
begin
...
    TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;
    LstDuns3:=TStringList.Create;
    dmPrincipal.GetListOfDistinctValue(cstRqstFiltreDuns,LstDuns3);
    OrphelinSMDBGrid.Columns[Index].FilterList:=LstDuns3;

Existe-t-il une approche particuliére pour éviter ce pb ?

Merci.

[LadyWasky]

Qu'entend tu par filtre ici donc ? tu parles des cases à cocher ou bien d'autre chose ?

[edam]

il y a un grand hic,non??
tu affecte la lste à un variable TStringlist puis tu le crée????

Code :

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

1
2
3
4
5
6
7
 
const 
 cstRqstFiltreDuns='Select distinct tmondiale FROM Sites WHERE Orphelin<>0 and tmondiale is not null';
begin
...
    TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;
    LstDuns3:=TStringList.Create;

[LadyWasky]

Ha si, ça y'est, j'entrevois la chose...

[LadyWasky]

Edam --> avec les FilterList de SmDBGrid, le code de Laurent est normal. Mais c'est vrai que ça a de quoi être surprenant.....


Bon prenons la méthodes GetFilterList :

Code :

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

1
2
3
4
5
6
function TSMDBColumn.GetFilterList : TStrings;
begin
  if FFilterList = nil then
    FFilterList := TStringList.Create;
  Result := FFilterList;
end;

Donc, en effet, par défaut, FFilterList n'est pas créée, elle est créée à partir du moment où tu la lit une première fois.

Donc si tu n'éffectue pas cette opération, au moment ou tu lui affectes une liste que tu as créé toi :

Code :

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

1
2
3
4
5
6
7
8
 if Value = nil then   //ignoré puisque tu  affectes avec value<>nil
  begin
    FFilterList.Free;
    FFilterList := nil;
    exit;
  end;
 
  FFilterList.Assign(Value); //Access Violation puisque FFilterList=nil (si tu ne l'as pas créé en la lisant une première fois)

Du coup, ce que je fais en général, c'est que j'initialise tous mes FilterList de colonnes dont je puisse avoir besoin dans mon FormCreate :

Code :

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

1
2
3
4
5
var AList:TStringList;
begin
  for i:=0 to SMDBGrid1.ColCount-1 do
      AList:=SMDBGrid1.Columns[i].FilterList; //L'appel en lecture à pour effet de créer la liste de filtre de la colonne
end;

Après et à partir de là, pour l'affectation, c'est "bateau"

[edam]

waskol là j'ai rien pigé
pour la fonction GetFilterList j'ai pigé,
je préfère:

Code :

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

1
2
3
4
5
6
 
Procedure TSMDBColumn.GetFilterList(var FFilterList : TStrings);
begin
  if FFilterList = nil then 
    FFilterList := TStringList.Create;
end;

pour celle là rien ,

Code :

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

1
2
3
4
5
var AList:TStringList;
begin
  for i:=0 to SMDBGrid1.ColCount-1 do
      AList:=SMDBGrid1.Columns[i].FilterList; //L'appel en lecture à pour effet de créer la liste de filtre de la colonne
end;

Alist aura à la fin quel valeur exactement
j'ai jamai utlisé TSMDBgrid, alors c'est pourquoi -peut être- j'ai rien compris .

[edit] je veux dire quel est la relation avec le probléme
{edit}
je croix comprendre un peut ce que tu veux dire waskol, je pense que j'était un peut
alors récapitulant

Code :

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

TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;

ce ligne affect lstduns3 par Filterlist et en même temps si ce Filterlist n'existe pas (=nil) il est crée,,, c'est sa
si c'est vrait alors sa sert à quoi ce ligne

Code :

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

   LstDuns3:=TStringList.Create;

[LadyWasky]

Oui edam, le soucis, c'est que dans le composant TSMDBGrid, on peut utiliser à une propriété des colonnes appelée FilterList, qui permet de gérer une liste de filtres pour une table d'une base de données.

la propriété FilterList définie comme suit :

Code :

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

property FilterList:TStrings read GetFilterList write SetFilterList;

permet donc d'accéder en Lecture et en écriture à la variable FFilterList de type TString, ce qui se fait via les deux méthodes que j'ai exposé plus haut.

Vu comme sont écrites ces méthodes, la manipulation de la propriété FilterList est piégeante à souhait...

[LadyWasky]

je croix comprendre un peut ce que tu veux dire waskol, je pense que j'était un peut
alors récapitulant

Code :

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

TStrings(LstDuns3):=OrphelinSMDBGrid.Columns[Index].FilterList;

ce ligne affect lstduns3 par Filterlist et en même temps si ce Filterlist n'existe pas (=nil) il est crée,,, c'est sa
si c'est vrait alors sa sert à quoi ce ligne

Code :

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

   LstDuns3:=TStringList.Create;

Oui tu as parfaitement compris, et pour la dernière question, celà permet d'avoir un TStringList à manipuler, plutôt qu'un bête TStrings, classes virtuelle avec laquelle on ne peut pas tout faire (tri, gérer les éléments dupliqués ou non, etc...).

[edam]

Oui tu as parfaitement compris, et pour la dernière question, celà permet d'avoir un TStringList à manipuler, plutôt qu'un bête TStrings, classes virtuelle avec laquelle on ne peut pas tout faire (tri, gérer les éléments dupliqués ou non, etc...).

pas compris, ce que je sait c'est que creat initialise tout ,(fait clear, un nouveau pointeur,...)

[Laurent Dardenne]

Ha si, ça y'est, j'entrevois la chose...

Oui désolé j'ai été un peu sec sur les explications

Vu comme sont écrites ces méthodes, la manipulation de la propriété FilterList est piégeante à souhait

Tu m'étonnes !
C'est en traçant le code que je me suis aperçu de ce "pb", c'est vrai que c'est pas courant comme approche.Mais si on ne souhaite pas créer d'objet inutilement cela ce comprend.
Un pb de documentation tout compte, fait comme d'hab

Merci Waskol pour l'idée de l'initialisation.
Edam je comprend ton désarroi devant ce code peu courant.

Bon j'espére ne pas tomber sur d'autre "finesse" de genre....
Merci à vous.

[LadyWasky]

Bon j'espére ne pas tomber sur d'autre "finesse" de genre....
Merci à vous.

Quelle idée aussi de vouloir tirer toute la quintescence de ce formidable composant...

[Laurent Dardenne]

Pendant que j'y suis.
Peut-on, pour récupérer les valeurs distinctes d'une colonne, éviter d'effectuer 2 fois la même requête ?
La 1er pour obtenir la totalité des données et la seconde pour récupérer uniquement les valeur distincts (ou inversement) afin de les proposer dans la combox associée au filtre d'une colonne ?
(Access +ADO)

[LadyWasky]

tu peux toujours créer une TQuery au run-time qui te fais ça

Ce qui est bon à savoir, c'est que tu peux créer une TQuery dans un "OnCalcField", qui crées un texte de formattage html (par exemple), en vue d'afficher via le champ calculé une sorte de tableau détail sans avoir à mettre en place une relation maitre/détail.

Le rapport avec la choucroute Irlandaise :
Là, dans ton cas, tu utilises le résultat d'une TQuery dans le OnDataChange (ou ailleurs : dans un OnAfterPost, un OnBrowse, c'est toi qui voit là où ça aura le moins d'impact côté perfos) de ton TDataSource pour alimenter et mettre à jour ta combobox

c'est une façon de faire

[Laurent Dardenne]

Pas mieux Waskol , mais j'ai tjr 2 requêtes.
Dans ce cas le pb est d'avoir un sous ensemble de la 1 er requête.
Je n'ai jamais essayé de mettre un distinct dans la propriété mais de toute façon le code interne utilise déjà le filtre du dataset (j'ai regardé rapidement)

C'est peut être du coté SQL que je dois regarder, ADO propose des datasets imbriqués je vais regardé de ce coté là aussi.

Je te remercie.

[LadyWasky]

C'est vrai qu'une query d'une query ce serait vraiment bien....