Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Objetos de interbase (https://www.clubdelphi.com/foros/showthread.php?t=39563)

el_barto 24-01-2007 03:19:29

Objetos de interbase
 
Buenas noches:

En sql es comun usar un llamado a la vista sysobjects para visualizar las tablas, contraints y demas objetos que se han creado en la base de datos, lo mismo se hace en oracle cuando se llama la vista all_objects, quisiera saber si en interbase existe una vista como estas para ver todas las tablas creadasy asi poder usarlo en un procedure para traer el total de registros de cada tabla.

mi version de interbase es la 6

Gracias por su Colaboracion.

ArdiIIa 24-01-2007 07:04:06

Cita:

Empezado por el_barto
Buenas noches:
..... para ver todas las tablas creadas y asi poder usarlo en un procedure para traer el total de registros de cada tabla.....

Hola, creo que podrías hacer algo como esto:
Código SQL [-]
SELECT RDB$RELATION_NAME  FROM RDB$RELATIONS
WHERE RDB$SYSTEM_FLAG = 0



En Firebird2 este procedimiento hace lo que creo que quieres, y funciona bien:

Código SQL [-]
CREATE PROCEDURE TOTAL_REGISTROS
RETURNS(
  TABLA CHAR(31) CHARACTER SET NONE,
  RECORDCOUNT INTEGER)
AS
BEGIN
FOR SELECT RDB$RELATION_NAME  FROM RDB$RELATIONS
WHERE RDB$SYSTEM_FLAG = 0
INTO :TABLA DO
FOR EXECUTE STATEMENT  'SELECT COUNT(*) FROM  ' || TABLA
INTO :RecordCount
DO
  SUSPEND;
END
Ya me contarás... ;)


La franja horaria es GMT +2. Ahora son las 15:16:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi