Discussion :

[yacinew]

Bonjour,
j'ai un problème avec l'utilisation d'un TTable et DBgrid,
1er / je veux calculer le nombre d'enregistrement total de la table;
2eme/ après l'utilisation de cette procédure :

Code :

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

1
2
3
4
5
procedure TForm1.Button5Click(Sender: TObject);
begin
Table1.Filter:='DD='+chr(39)+'SEN'+chr(39);
Table1.Filtered:= True;
end;

je veux le nombre d’enregistrement à chaque opération de TTable.
3eme/ je cherche toute les possibilités avec TTable et aussi autre composant pour bien manipuler une table DBF (Recherche, Filtrache, Fonction,..)
Merci

[Ph. B.]

Bonjour,

Compter les lignes d'une table (valables avec ou sans filtre) : propriété RecordCount de la classe TTable

Ne pas utiliser Chr(39) dans l'expression de filtre (ou des requêtes SQL) mais plutôt la fonction QuotedStr de l'unité SysUtils :

Code :

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

1
2
// Table1.Filter:='DD='+chr(39)+'SEN'+chr(39); à remplacer par
Table1.Filter := 'DD=' + QuotedStr('SEN');

Pour accélérer l'affichage des grilles et éviter des rafraichissements intermédiaires pénalisants, utiliser les méthodes DisableControls et EnableControls :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button5Click(Sender: TObject);
begin
  Table1.DisableControls;
  try
    Table1.Filtered := False;
    Table1.Filter := 'DD=' + QuotedStr('SEN');
    Table1.Filtered := True;
    // Eventuellement, appeler RecordCount pour connaître le nombre de lignes concernées
  finally
    Table1.EnableControls;
  end;
end;

--
Philippe.

[yacinew]

Bonjour,

Compter les lignes d'une table (valables avec ou sans filtre) : propriété RecordCount de la classe TTable

Ne pas utiliser Chr(39) dans l'expression de filtre (ou des requêtes SQL) mais plutôt la fonction QuotedStr de l'unité SysUtils :

Pour accélérer l'affichage des grilles et éviter des rafraichissements intermédiaires pénalisants, utiliser les méthodes DisableControls et EnableControls :

--
Philippe.

Merci Mr.Philippe,
ça bien marché
il me reste de découvrire les méthode de TTable et leur utilisation si c'est possible, pour qu'elle me permet de bien utiliser ce composant ( qu'est ce que je peux faire avec TTable et DBgrid?...)