TAdoConnection disconnecten

**Ducksoul**

Hallo,

ich erstelle eine temporäre Datenbank, welche ich am Funktionsende wieder löschen möchte. Dazu darf sie vom Programm allerdings nicht mehr benutzt werden.

Meine Disconnect Funktion sieht wie folgt aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tdbu.dbDisconnect;

begin

    // falls connected, dann Verbindung abbrechen und Objekte freigeben

  if connected then

    try

      dbcon.Connected := false;

      connected := false;

    finally

      if not connected then

      begin

        FreeAndNil(dbcon);

        FreeAndNil(dbcomm);

        FreeAndNil(dbquery);

      end;

    end;

end;

Rufe ich danach den Löschbefehl auf, so meldet Windows dass die Datei nicht gelöscht werden kann, da sie noch in Benutzung ist. Warum? Es greifen keine anderen Komponenten auf die DB zu.

Gruß

TAdoConnection disconnecten

TAdoConnection disconnecten

Forumregeln