Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen ob Variable leer/geöffnet

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Variable leer/geöffnet
01.12.2021 12:15:43
Nepumuk
Hallo Tobi,
versuch es so:

Sub CloseDB()
If Not cn is Nothing Then
cn.Close
Set cn = Nothing
End If
End Sub
Gruß
Nepumuk
AW: Prüfen ob Variable leer/geöffnet
01.12.2021 12:57:26
Tobi
Hallo, das habe ich auch schon versucht,
dann erscheint der Fehler "Laufzeitfehler 3704 - Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen" falls es schon geschlossen ist.
Liebe Grüße
Danke mit der Fehlerabfrage frunktioniert es owT.
02.12.2021 13:52:54
Tobi

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige