Prüfen ob Variable leer/geöffnet
01.12.2021 12:09:08
Tobi
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
Sub 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
Anzeige