Número de registros en un Dbgrid

[cloayza]

Empezado por ecfisa

Código Delphi [-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
  Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;

Le agregaria lo siguiente:

Código Delphi [-]
function NroRegistros(ADBGrid: TDBGrid): Integer;
begin
       Result:=0;       
       If Not Assigned(ADBGrid.DataSource) then Exit; //Valida si el grid tiene asignado un TDatasource
       if Not Assigned(ADBGrid.DataSource.Dataset) then exit;  //Valida si el Datasource tiene asignado un Dataset
       If Not  ADBGrid.DataSource.DataSet.Active then Exit;  //Valida si el Dataset esta abierto

      Result:= ADBGrid.DataSource.DataSet.RecordCount;
end;

Siempre es bueno tomar algunas precauciones...

Saludos

[ecfisa]

Empezado por cloayza

Siempre es bueno tomar algunas precauciones...

Nunca está de más

Saludos.

[buca1678]

mostrar en un label el numero de filas de la columna de un dbgid

sqlquery1.Close;
sqlquery1.SQL.Text := 'select * from accesorio where VERIFICADO IS NULL';
sqlquery1.Open;
sqlquery1.last;
sqlquery1.first;
label1.Caption := 'IntToStr(sqlquery1.RecordCount);

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias