Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Datenbank-Metainformationen abfragen schlägt fehl

  Alt 16. Mär 2016, 14:39
Gerade nochmal getestet, auch mit dem Close kommt nach der fünften Tabelle die Exception.

Delphi-Quellcode:
procedure TDbStructureExporter.ExportTable(const ATableName: string);
var
  LTable: TFDTable;
begin
  LTable := TFDTable.Create(nil);
  try
    LTable.Connection := FConnectionWrapper.Connecton;
    LTable.Open(ATableName);
    try
      LTable.FieldDefs.Update;
      if LTable.FieldDefs.Updated then
        Self.SaveSchema(LTable, ATableName);
    finally
      LTable.Close;
    end;
  finally
    LTable.Free;
  end;
end;
Aber lasst gut sein, mit den Query komm ich ohne Probleme an Ziel.
  Mit Zitat antworten Zitat