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.