Hallo,
alternativ kannst du dir die Metadaten z.B via FlameRobin holen oder hiermit direkt mit Delphi:
uses ... IBExtract ...
Delphi-Quellcode:
procedure ExtractMetaData(Database : TIBDatabase;Transaction : TIBTransaction;List : TStringList);
begin
with TIBExtract.Create(nil) do begin
try
Database := Database;
Transaction := TransAction;
ExtractObject(eoDatabase);
List.AddStrings(Items);
finally
free;
end;
end;
end;
Aufruf dann in etwa so:
Delphi-Quellcode:
procedure TfMain.Button1Click(Sender: TObject);
var sl : TStringlist;
begin
sl := TStringlist.create;
try
ExtractMetaData(dm.ibdb,dm.ibtrans,sl);
showmessage(sl.text);
finally
sl.free;
end;
end;
Beide Möglichkeiten verursachen bei mir keine Fehler bei den Datentypen (Firebird 1.5/2.1/2.5).