ich dachte es gibt schon etwas fertiges.
Was ist schon fertig ?
Prinzipiell brauchst Du doch nur über die einzelnen Tabellen zu wandern. Das geht so : Dataset anlegen und auf die Systemtabelle der Table-Names zugreifen. Also z.B.:
Delphi-Quellcode:
while not DbDS.Eof do begin
TableName := DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
// hier Daten den Tablename an weiteres Dataset zuweisen und Daten exportieren
DetailDS.Close;
DetailDS.SelectSQL.Text := 'select count (*) AS ANZAHL from ' + TableName;
DetailDS.Open;
Anzahl := DetailDS.FieldByName ('ANZAHL').AsString;
DbDS.Next;
end;
Müsste doch eigentlich so gehen.
