Discussion :

[Patrick25300]

Bonjour à tous
Je passe une application de Delphi à Lazarus et je rencontre un problème avec le filtrage d'une table avec les valeurs numériques, c'est pas la première fois que je fais des filtres.
J'utilise SQLQuery. Mis à part le filtrage pas de soucis pour gérer les données, ça va bien. Voici le bout de code.

Code :

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

1
2
3
4
5
 
UnitBase1.Data.SQLQuery1.Filtered := false;
UnitBase1.Data.SQLQuery1.Filter:= 'ART_QTE <= 2';
UnitBase1.Data.SQLQuery1.FilterOptions:= [];
UnitBase1.Data.SQLQuery1.Filtered := true;

J'ai beau chercher sur le net ou ici même, personne parait être ennuyé avec le filtrage, je n'ai pas de réponse.

Voici le message affiché, suite à l'erreur.


Si vous pouvez aussi m'expliquer pour les dates éventuellement.

Merci de vos réponses.

[jurassic pork]

hello,
tu as du tomber sur le problème qu'avait FOCUS77 le 1er Septembre :

J'ai tenté de définir un filtre pour une SqlQuery, basé sur un champ de type BCD,
défini au niveau de serveur de base de données :NUMERIC(10,2).
mais un message d'erreur apparait 'field "QTE_STK" has an invalid field type (BCD) to index on'
Le ClientDataset traduit automatiquement NUMERIC en FMTBcd (formatted BCD) c'est pour cette raison qu'il peut l'utilisé comme filtre,
cependant le sqlquery le traduit en BCD(forme brute)
ya-t-il pas un moyen de le transformer en FMTBcd?

Enfin, j'ai réglé ça avec une SQL , il ma fallut procéder ainsi dès le début.

Ami calmant, J.P

EDIT : C'est ici que l'exception se déclenche :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TBufDatasetParser.HandleUnknownVariable(VarName: string);
var
  FieldInfo: TField;
  TempFieldVar: TFieldVar;
begin
  // is this variable a fieldname?
  FieldInfo := GetVariableInfo(VarName);
  if FieldInfo = nil then
    raise EDatabaseError.CreateFmt(SErrIndexBasedOnUnkField, [VarName]);
 
  // define field in parser
  case FieldInfo.DataType of
    ftString, ftFixedChar:
      begin
      TempFieldVar := TStringFieldVar.Create(FieldInfo);
      TempFieldVar.FExprWord := DefineStringVariable(VarName, TempFieldVar.FieldVal);
      TempFieldVar.FExprWord.fixedlen := Fieldinfo.Size;
      end;
    ftBoolean:
      begin
        TempFieldVar := TBooleanFieldVar.Create(FieldInfo);
        TempFieldVar.FExprWord := DefineBooleanVariable(VarName, TempFieldVar.FieldVal);
      end;
    ftFloat:
      begin
        TempFieldVar := TFloatFieldVar.Create(FieldInfo);
        TempFieldVar.FExprWord := DefineFloatVariable(VarName, TempFieldVar.FieldVal);
      end;
    ftAutoInc, ftInteger, ftSmallInt:
      begin
        TempFieldVar := TIntegerFieldVar.Create(FieldInfo);
        TempFieldVar.FExprWord := DefineIntegerVariable(VarName, TempFieldVar.FieldVal);
      end;
    ftLargeInt:
      begin
        TempFieldVar := TLargeIntFieldVar.Create(FieldInfo);
        TempFieldVar.FExprWord := DefineLargeIntVariable(VarName, TempFieldVar.FieldVal);
      end;
    ftDate, ftDateTime:
      begin
        TempFieldVar := TDateTimeFieldVar.Create(FieldInfo);
        TempFieldVar.FExprWord := DefineDateTimeVariable(VarName, TempFieldVar.FieldVal);
      end;
  else
    raise EDatabaseError.CreateFmt(SErrIndexBasedOnInvField, [VarName,Fieldtypenames[FieldInfo.DataType]]);
  end;
 
  // add to our own list
  FFieldVarList.AddObject(VarName, TempFieldVar);
end;

fichier fpc\2.6.4\source\packages\fcl-db\src\base\bufdataset_parser.pp

pas de ftBCD prévu

[e-ric]

Salut à tous

(Sans pouvoir le tester moi-même) peux-tu remplacer l'expression de filtre par un gestionnaire OnFilterRecord, comme cela tu pourras réaliser la condition de filtrage avec du code Pascal. L'inconvénient de cette approche est qu'elle exprime la condition en dur.

Cdlt

[jurassic pork]

hello,
e-ric, je viens d'essayer ce que tu as suggéré : Le filtre est bien effectif et je n'ai plus d'erreur invalid field type (BCD) ...

code qui génére l'erreur :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.bt_filtrerClick(Sender: TObject);
begin
SQLQuery1.Filtered := false;
SQLQuery1.Filter:= 'SALARY <=  2100';
SQLQuery1.FilterOptions:= [];
SQLQuery1.Filtered := true;
end;

utilisation de l'événement OnFilterRecord :

Code :

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

1
2
3
4
procedure TForm1.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := SQLQuery1.FieldByName('SALARY').AsFloat <= 2100;
end;

Le filtre est mis en route par :

Code :

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

1
2
3
4
5
6
procedure TForm1.bt_filtrerClick(Sender: TObject);
begin
SQLQuery1.Filtered := false;
SQLQuery1.FilterOptions:= [];
SQLQuery1.Filtered := true;
end;

Ami calmant, J.P

[Patrick25300]

Bonjour et merci à vous tous

Je vais me résigner à programmer mes filtres avec OnFilterRecord ou des requêtes SQL, c'est dommage, les filtres étaient très suffisant pour mes besoins.

[e-ric]

Encore moi...

Petite observation: pas besoin de résignation dans cela, les filtres par OnFilterRecord ont de grandes chances d'être plus rapides que par les filtres par expression (propriété filter) car le code est compilé et ne passe pas par l'évaluation de l'expression.

Le seul blocage réside dans des expressions de filtres personnalisables par l'utilisateur. L'événement OnFilterRecord peut sembler être alors un blocage que l'on peut contourner par des filtres prédéfinis (souvent suffisants) implémentés sous forme de gestionnaires d'événement affectés dynamiquement.

Bon dév.

Cdlt

[jurassic pork]

hello,
LacaK dans le forum officiel Free Pascal Lazarus a fabriqué un patch pour traiter le cas des ftBCD. Le patch concerne le fichier bufdataset_parser.pp.
En pièce jointe le patch, le fichier modifié pour le fpc 2.6.4. J'ai aussi mis l'unité compilée pour i386-win32.

Ami calmant, J.P