Datenbank-Metainformationen abfragen schlägt fehl

[p80286]

Ich habe mir zur Angewohnheit gemacht, auf jeden .Open ein .Close folgen zu lassen:

Delphi-Quellcode:

LQuery.Open;
{get querydata]
LQuery.Close;

U.U. ist es so besser (keine Ahnung ob es geht, ich greife nie auf Tabellen zu)

Delphi-Quellcode:

  LTable.Open(LTableName); 
  LTable.FieldDefs.Update;
  if LTable.FieldDefs.Updated then
    LTable.SaveToFile('C:\Temp\' + LTableName + '.xml', TFDStorageFormat.sfXML);
  LTable.close; {----------------- !!!! }
end;

Gruß
K-H

[TiGü]

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.