Discussion :

[FOCUS77]

Bonjour à tous

Je veut connaître le nombre d'enregistrements d'une table filtrée, mais le code suivant donne un nombre constant
égale au nombre d’enregistrement d'une table sans filtre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TMAINFORM.RadioGroup1Click(Sender: TObject);
begin
   umdt.MDT.TABLE.Close;
  case  MAINFORM.RadioGroup1.ItemIndex of
   0: begin umdt.MDT.TABLE.Filter:='SRT_ELV=0'; RadioGroup1.Color:=$00F15645 end;
   1: begin umdt.MDT.TABLE.Filter:='SRT_ELV=1'; RadioGroup1.Color:=$005933F0 end;
   2: begin umdt.MDT.TABLE.Filter:='SRT_ELV<2'; RadioGroup1.Color:=$003EE1E6 end;
   end;
  umdt.MDT.TABLE.Open;
  umdt.MDT.TABLE.Filtered:=True;
 
  Label12.Caption:=IntToStr(umdt.MDT.TABLE.RecordCount);
end;

merci

[mm_71]

Il me semble que recordcount devrait être remplacé par exactrecordcount ( Ça marche au moins pour le le format DBF ).

PS: C'est vraiment nécessaire de fermer et ré-ouvrir la table avant de la filtrer ?

[FOCUS77]

Bonjour à tous

@mm_71

Il me semble que recordcount devrait être remplacé par exactrecordcount ( Ça marche au moins pour le le format DBF ).

J'ai vérifié tous les DataSets natifs de Laz 1.8 rc5 mais seulement le Dbf possède cette propriété (ExactRecordCount), moi j'utilise SqlQuery.

PS: C'est vraiment nécessaire de fermer et ré-ouvrir la table avant de la filtrer ?

AMHA ce qui est nécessaire d'être entre Table.Close et Table.Open est uniquement la définition du filtre ici (TABLE.Filter:='SRT_ELV=N')
mais le placement de l'activation du filtre ici (TABLE.Filtered:=True) n'a pas d'importance.


merci

[mm_71]

Je connais moins bien SQL que DBF mais je n'ai jamais eu besoin d'utiliser filter, je me demande même si ça marche ? Si tu affiches le résultat dans une grille ou le mets dans un tstringlist après il est filtré ou pas ? Si oui tu pourrais compter les lignes reçues après l'opération mais c'est un peu vicelard.

Pour tout ce que j'ai eu à faire en SQL j'ai toujours employé un truc du genre:

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
Sql_DoIt(Fmain.SQLQuery, 'Select * FROM '+TableSQL_Name+' where CODE="'+C_Code+'"'); 
Et au retour de la fonction  Fmain.SQLQuery.RecordCount donne un résultat correct.
 
Function Sql_DoIt ( Query:TZQuery; Instru:String ):Boolean;
Begin
  Result:=False;
  with Query do
  begin
    Close;
    SQL.Text:=Instru;
    try
      Open;
      Result:=True;
    except
      ShowMessage ('Erreur '+Query.SQL.Text );
    end;
  end;
end;

[FOCUS77]

Bonjour

1. En fait j'évite d'utiliser une table comme requête paramétrée, ce n'est pas très pratique.
une table fonction mieux avec les filtres.

si je cherche à trouver une solution je la ferai en une seule ligne:

Code :

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

1
2
begin umdt.MDT.TABLE.Last; a:=umdt.MDT.TABLE.RecNo; umdt.MDT.TABLE.First; b:=umdt.MDT.TABLE.RecNo end;
  Label12.Caption:=IntToStr(a-b+1);   //a,b:integer;

mais ce n'est pas pratique non plus du moment qu'il existe une fonction destinée pour ça (recordCount),
Donc la question est pour quelle raison cette fonction ne fonctionne pas correctement?

merci

[ThWilliam]

Bonjour.

Cela fait longtemps que je ne fais plus de programmation bases de données, mais pour autant que je me souvienne:
j'ai toujours préféré l'événement OnFilterRecord à la propriété Filter. L'événement est appelé dès table.filtered = true.
En plaçant, dans cet événement, une variable "compteur" qui s'incrémente quand Accept = true, cela devrait te donner le nombre d'enregistrements filtrés.

Cordialement
Thierry

[FOCUS77]

Bonsoir Thierry

en fait j'ai fais une bonne série d'exemples avec OnFilterRecord() et je suis parvenu à une conclusion:

Recordcount fonctionne indépendamment d'un filtre.
C'est comme si ils fonctionnent à deux niveaux différents.

merci Thierry.

[ovni76]

Bonjour,
J'utilise des bases de données avec sqlite et les composants natifs et pour rechercher certaines données j'utilise un filtre pour ouvrir la table puis j'affiche le nombre d'enregistrements comme ci-dessous et ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
MFILTRE:='NON';
  FermeGrid;
  PTitre.Caption:=MTITRE+ ' DE BANK NON VERIFIEES';
  PTitre.Update;
  data.bank.close;
  data.bank.SQL:='select * from BANK WHERE VERIFIE='+quotedstr(MFILTRE); // ok
  data.bank.open;
  TotalNonpointer;
  Navigateur.DataSource:=data.SourceBank;
  GridBank.Visible:=True;
  Edit1.Text:=IntToStr(data.bank.RecordCount);

A+

[FOCUS77]

Bonjour à tous,

@ Ovni76

Oui effectivement le recordcount d'une table est exacte en exécutant SQL,
c'est ce que d'ailleur à proposé mm_71.

J'évitais d'appliquer SQL à une table,
mais il s'avère que c'est inévitable, à moins que on utilise la 2 ème méthode.

Code :

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

1
2
3
4
5
 Table.DisableControls;
 Table.Last; a:=Table.RecNo; Table.First; b:=Table.RecNo ;
 Table.EnableControls;
 
 Label1.Caption:=IntToStr(a-b+1);   //a,b:integer

je mets cette discussion comme résolue.

merci à vous tous

[mm_71]

Un ultime truc qui vaut ce qu'il vaut: Mettre les enregistrements filtrés dans un dbgrid avec visible à false et récupérer le nombre de lignes de cette grille.