offene Datenbank-Sessions

[TomDooley]

Hier mal mein aktueller Code...

Delphi-Quellcode:

Query := TADOQuery.Create(nil);
with Query do begin
  Close;
  Connection := ADOConnection;
  ...
  SQL.Clear;
  SQL.Add(SQLStmt);
  ExecSQL;
  ...
  Close;
  Free;
end;
Query := nil;

....

if assigned(ADOConnection) then begin
  ADOConnection.Close;
  ADOConnection.free;
  ADOConnection := nil;
...