connaître le nombre de lignes d'un ensemble de résultats

La propriété recordCount permet de connaître le nombre de lignes d'un ensemble de résultats. Malheureusement, dans certains cas cette propriété échoue. Il est alors recommandé de résoudre le problème par requête grâce à l'instruction SQL Count.

Nous vous fournissons deux exemples mettant en oeuvre cette instruction.

1) Avec les composants de connection par le BDE.
La fonction BDEenregCount permet de connaître le nombre de lignes d'une table. Cette fonction attend en entrée le nom de la base de données ainsi que le nom de la table. Cette fonction retourne -1 en cas d'échec.

Code:

function BDEenregCount(_dataBaseName, _tableName: string):longInt;
begin
  with TQuery.Create(nil) do
  try
    DatabaseName := _databaseName;
    sql.Text := 'SELECT COUNT(*) FROM '+ _tableName;
    try
      Active := true;
      result := fields[0].AsInteger;
    except
      result := -1;
    end;
  finally
    free;
  end;
end;

2) Avec les composants de connexion ADO
La fonction ADOenregCount permet de connaître le nombre de lignes d'une table. Cette fonction attend la valeur de la chaîne de connexion ADO ainsi que le nom de la table. Cette fonction retourne -1 en cas d'échec.

Code:

function ADOenregCount(_connectionString, _tableName: string):longInt;
begin
  with TADOQuery.Create(nil) do
  try
    ConnectionString := _connectionString;
    sql.Add('SELECT COUNT(*) FROM '+ _tableName);
    try
      Open;
      result := fields[0].AsInteger;
    except
      result := -1;
    end;
  finally
    free;
  end;
end;