ich habe zwei Variablen für die Datenbank.
Die möchte ich am Ende der Methode schließen.
Dim cn As ADODB.Connection
Sub ConnectDB()
uDB = "erfassung"
uIP = "192.168.178.23"
uUser = "user"
uPW = "admin"
Set cn = New ADODB.Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & "SERVER=" & uIP & "; DATABASE=" & uDB & "; UID=" & uUser & "; PWD=" & uPW & "; OPTION=3"
cn.CursorLocation = adUseClient
cn.Open
End Sub
Am Ende Schließe ich es mit call closeDBSub CloseDB()
cn.Close
Set cn = Nothing
End Sub
Aber es kommt zeitweise zu Fehlern.
Wie kann ich Abfragen ob die cn Datei geöffnet ist?
Liebe Grüße
Tobi