Firebird 2.0 Metadaten extrahieren

[raphaelm]

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).