Cuantos registros tienen las tablas de una BD

[cloayza]

Estimado, podría ser así

Código SQL [-]
create or alter procedure ALL_RECORD_TABLES
returns (
    tablename varchar(63),
    recorcount integer)
as
BEGIN
  FOR
    select distinct
       RF.RDB$RELATION_NAME
    FROM RDB$RELATIONS RF
    WHERE (RF.rdb$relation_type= 0) and
          (RF.rdb$system_flag= 0)
    INTO :TABLENAME
  DO
  BEGIN
       EXECUTE STATEMENT 'SELECT COUNT(*) FROM '||:TABLENAME
       INTO :RECORCOUNT;

       SUSPEND;
  END
END

Saludos cordiales

[manelb]

Yo lo hago como Cloayza, pero con una pequeña variación para no tener que crear un procedimiento almacenado y poderlo lanzar como una simple consulta sql:

Código SQL [-]
execute block
RETURNS (
    TABLA VARCHAR(31),
    CANTIDAD INTEGER)
AS
Begin
  /* spRegistros.  Procedimiento almacenado para obtener la cantidad de
     registros que contiene cada una de las tablas de la base de datos. */

  For Select RDB$Relation_Name From RDB$Relations
  Where (RDB$System_Flag = 0) And (RDB$View_BLR Is Null)
  Order By RDB$Relation_Name Into :Tabla Do
  Begin
    Execute Statement 'Select Count (*) From ' || :Tabla Into :Cantidad;
    Suspend;
  End
End

Saludos a todos