Problème de filtre avec SQLQuery et numérique

Version imprimable

23/11/2015, 22h51
Patrick25300

1 pièce(s) jointe(s)

Problème de filtre avec SQLQuery et numérique
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:

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.
Pièce jointe 193421

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

Merci de vos réponses.

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

Citation:

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:

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

24/11/2015, 10h38
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

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:

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:

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:

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

25/11/2015, 15h52
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.
25/11/2015, 17h26
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
30/11/2015, 18h03
jurassic pork

1 pièce(s) jointe(s)

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