Verbindung zu mySQL schliessen

[M.Z]

Versuchs mal damit:

Code: Alles auswählen

Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Datenbankname")
Connection = DataSource.GetConnection("","")
Connection.close()

Das könntest du z.B. über Extras/Anpassen/ bei Ansicht wurde geschlossen oder Dokument wurde geschlossen einbinden falls es funktioniert.

Grüße,

M.Z