marabu sein Vorschlag ist super. Danke!
@Meta777, wenn wir hier von einer
DB ausgehen mit 100 Objecten (Table, usw.) ist es einfacher, die in einer Tabelle zu speichern und eine Versionnr zu führen. Ich selber habe vor dem gleichen Problem gestanden.
Ich wollte das so realisieren, das bei einem Programmupdate und Änderung der
DB-Struktur, diese automatisch überprüpft und ggf. aktualisiert wird. Aber dazu must in den Systemtabellen von Firebird hinein um die Domains, Tabellen, Procedure usw. ranzukommen. Und um Änderungen vorzunehmen wirst Du dann logischer Weise ebenfalls diese direkt in den Systemtabellen vornehmen (ABER VORSICHT). Da du ja die Zeichenlänge z.Bsp. nicht mehr verändern kannst, wenn bereits Daten in der
DB vorliegen, somit muss die Änderung in der Systemtabelle erfolgen.
Wenn Du also die Zusammenhänge in den Systemtabellen nicht genau kennst, dann lasse die Finger davon.
Hier mal was zum probieren.
Table auslesen:
SQL-Code:
SELECT RDB$RELATION_NAME, RDB$INDEX_NAME, RDB$INDEX_INACTIVE
FROM RDB$INDICES WHERE RDB$RELATION_NAME NOT STARTING 'RDB$'
ORDER BY RDB$RELATION_NAME
Table-Fields auslesen:
SQL-Code:
Select RDB$FIELD_NAME from RDB$RELATION_FIELDS
where RDB$RELATION_NAME='Table_NAME'
order by RDB$FIELD_POSITION
Primary-Key auslesen:
SQL-Code:
select i.rdb$field_name
from rdb$relation_constraints r, rdb$index_segments i
where r.rdb$relation_name= 'DB_AKTEN' and
r.rdb$constraint_type='PRIMARY KEY' and
r.rdb$index_name=i.rdb$index_name
order by i.rdb$field_position
Procedure auslesen:
Select rdb$procedure_name From rdb$procedures
Procedure-Parameter auslesen:
SQL-Code:
select RDB$PARAMETER_NAME,
RDB$PARAMETER_NUMBER,
RDB$PARAMETER_TYPE
from RDB$PROCEDURE_PARAMETERS
WHERE RDB$PROCEDURE_NAME = 'Procedure_Name'
Index auslesen:
SQL-Code:
select * from rdb$index_segments
where rdb$index_name not starting 'RDB$'
order by rdb$index_name
Generatoren auslesen:
SQL-Code:
SELECT RDB$GENERATOR_NAME
FROM RDB$GENERATORS
WHERE rdb$generator_Name
Not Like '
RDB$%'
AND
(rdb$generator_Name
Not Like '
SQL$%')