Frage Microsoft Microsoft Office
gelöst Access 2010 VBA - misslungene ODBC-Connection abfangen

27.01.2014 um 13:35 Uhr, 4553 Aufrufe, 4 Kommentare

Hi NG,

wie kann ich unter Access 2010 per VBA eine fehlerhafte MySQL ODBC Verbindung abfangen? Es soll, wenn sich ein User anmeldet, der kein MySQL User ist, eine Fehlermeldung ausgegeben werden.

Gruß
Andy

4 Antworten

LÖSUNG colinardo schreibt am 27.01.2014 um 14:00:53 Uhr
- LÖSUNG AndyAh schreibt am 28.01.2014 um 11:30:19 Uhr
  - LÖSUNG colinardo schreibt am 28.01.2014 um 16:38:54 Uhr
    - LÖSUNG AndyAh schreibt am 29.01.2014 um 12:01:04 Uhr

colinardo (Level 5) - Jetzt verbinden

LÖSUNG 27.01.2014, aktualisiert 29.01.2014

Hallo Andy,
könntest du wie in diesem Beispiel abfangen

Sub OpenConnection()
    Set conn = CreateObject("ADODB.Connection")
    On Error GoTo LogonError
    conn.Open "Driver={MySQL ODBC 5.1 Driver};Server=127.0.0.1;Database=DATABASENAME;Uid=USERNAME;Pwd=PASSWORD;"
    On Error Resume Next
   ' Hier deine Arbeit mit der Datenbank
    Exit Sub
LogonError:
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
End Sub01.
Sub OpenConnection()
02.
    Set conn = CreateObject("ADODB.Connection")
03.
    On Error GoTo LogonError
04.
    conn.Open "Driver={MySQL ODBC 5.1 Driver};Server=127.0.0.1;Database=DATABASENAME;Uid=USERNAME;Pwd=PASSWORD;"
05.
    On Error Resume Next
06.
   ' Hier deine Arbeit mit der Datenbank
07.
    Exit Sub
08.
LogonError:
09.
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
10.
End Sub

Wenn du willst kannst du auch mit der Eigenschaft Err.Number die Fehler im Errorhandler spezifischer auswerten.

Grüße Uwe

AndyAh (Level 2) - Jetzt verbinden

LÖSUNG 28.01.2014 um 11:30 Uhr

Hi Uwe,

ich hab's gerade ausprobiert. Leider musste ich feststellen, dass "LogonError" immer angesprungen wird.

Hier mal meinen Code:

Private Sub Befehl12_Click()
   Dim connstr As String
   Dim conn As New ADODB.Connection
   Dim user As String
   Dim passwort As String
   
   Text0.SetFocus
   user = Text0.Text
   Text4.SetFocus
   passwort = Text4.Text
   connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=localhost;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3"
   
   conn.ConnectionString = connstr
   On Error GoTo LogonError

    
    conn.Open


    On Error Resume Next

    MsgBox "OK"
    conn.Close

   ' Hier deine Arbeit mit der Datenbank


LogonError:


    'bei richtigem Login ist die Description leer und wird als Fehlercode 0 angezeigt
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
  
End Sub
01.
Private Sub Befehl12_Click()
02.
   Dim connstr As String
03.
   Dim conn As New ADODB.Connection
04.
   Dim user As String
05.
   Dim passwort As String
06.
   
07.
   Text0.SetFocus
08.
   user = Text0.Text
09.
   Text4.SetFocus
10.
   passwort = Text4.Text
11.
   connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=localhost;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3"
12.
   
13.
   conn.ConnectionString = connstr
14.
   On Error GoTo LogonError
15.

16.
    
17.
    conn.Open
18.

19.

20.
    On Error Resume Next
21.

22.
    MsgBox "OK"
23.
    conn.Close
24.

25.
   ' Hier deine Arbeit mit der Datenbank
26.

27.

28.
LogonError:
29.

30.

31.
    'bei richtigem Login ist die Description leer und wird als Fehlercode 0 angezeigt
32.
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
33.
  
34.
End Sub
35.

Gruß
Andy

colinardo (Level 5) - Jetzt verbinden

LÖSUNG 28.01.2014, aktualisiert 29.01.2014

Zitat von AndyAh:

Hi Uwe,

ich hab's gerade ausprobiert. Leider musste ich feststellen, dass "LogonError" immer angesprungen wird.

ach sorry, dir fehlt noch ein Exit Sub hinter MsgBox "OK"

Private Sub Befehl12_Click()
   Dim connstr As String
   Dim conn As New ADODB.Connection
   Dim user As String
   Dim passwort As String
   
   Text0.SetFocus
   user = Text0.Text
   Text4.SetFocus
   passwort = Text4.Text
   connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=localhost;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3"
   conn.ConnectionString = connstr
   On Error GoTo LogonError
    conn.Open
   On Error Resume Next

    MsgBox "OK"
    conn.Close

    Exit Sub

LogonError:
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
End Sub01.
Private Sub Befehl12_Click()
02.
   Dim connstr As String
03.
   Dim conn As New ADODB.Connection
04.
   Dim user As String
05.
   Dim passwort As String
06.
   
07.
   Text0.SetFocus
08.
   user = Text0.Text
09.
   Text4.SetFocus
10.
   passwort = Text4.Text
11.
   connstr = "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=localhost;DATABASE=adressen;" & "USER=" & user & ";" & "PASSWORD=" & passwort & "; OPTION=3"
12.
   conn.ConnectionString = connstr
13.
   On Error GoTo LogonError
14.
    conn.Open
15.
   On Error Resume Next
16.

17.
    MsgBox "OK"
18.
    conn.Close
19.

20.
    Exit Sub
21.

22.
LogonError:
23.
    MsgBox "Fehler beim Login zur Datenbank: " & Err.Description
24.
End Sub

Grüße Uwe

AndyAh (Level 2) - Jetzt verbinden

LÖSUNG 29.01.2014 um 12:01 Uhr

Hi Uwe,

danke für den Tipp. Ich hatte es schon anders gelöst. Im LoginError habe ich einfach nach err.number <> 0 abgefragt.

Gruß
Andy

Frage Microsoft Microsoft Office

Ähnliche Inhalte

Syntaxfehler VBA Access 2010

gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

VBA Code Änderung Access 2010

gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

Access 2010 - Filter für Datum funkioniert nicht VBA

Frage von Dr.CornwallisDatenbanken4 Kommentare

Liebe Gemeinde, folgendes Szenario: 2 Textfelder in einem Fomular: txtDatvon und txtDatBis mit diesen beiden Feldern möchte ich das ...

Access 2010 bedingte Formatierung in VBA eines Formulars

gelöst Frage von AximandVB for Applications3 Kommentare

In einem Formular werden mir bsplw. 3 Datensätze angezeigt. Unter anderem ist das Feld "Liefertag" pro Tupel vorhanden. Wie ...

Neue Wissensbeiträge

Preisvertipper

Information von Dilbert-MD vor 12 StundenHumor (lol)6 Kommentare

Moin! weil heute Freitag ist, zeige ich Euch den Preisvertipper der Woche: vergesst den Acer Predator 21x, der ist ...

Sicherheitsupdate für SQL Server 2014 SP3

Information von sabines vor 1 TagWindows Update2 Kommentare

Für den SQL Server 2014 existiert ein Sicherheitsupdate. Laut KB Artikel wird es als CU3 angezeigt: Server 2014 SP3 ...

Veeam Agent für MS Windows - neue Version verfügbar (bedingt jedoch offenbar .NET Framework 4.6)

Information von VGem-e vor 2 TagenBackup1 Kommentar

Moin Kollegen, einer unserer Server zeigte grad an, dass für o.g. Software ein Update verfügbar ist. Ob ein evtl. ...

Sie meinen es ja nur gut - Microsoft hilft python-Entwicklern auf unnachahmliche Weise

Information von DerWoWusste vor 4 TagenPython2 Kommentare

Stellt Euch vor, Ihr nutzt python unter Windows 10 und skriptet damit regelmäßig Dinge. Nach dem Update auf Windows ...

Heiß diskutierte Inhalte

WSUS - erforderlich Updates

Frage von emeriksWindows Update24 Kommentare

Hi, ein gängiges Verfahren, welche Updates man am WSUS-Server genehmigen soll und welche nicht, beruft sich darauf, dass man ...

Neue Serverumgebung von 0 aufbauen

Frage von JacareNetzwerkgrundlagen20 Kommentare

Hallo zusammen, ich bin noch nicht lange hier und weiß nicht, ob meine Frage daher etwas ungewöhnlich ist. Ich ...

Installationskosten Verkabelung

Frage von Xaero1982Off Topic14 Kommentare

Moin Zusammen, ich bräuchte mal ein paar Meinungen, weil ich mir da gerade echt nicht ganz sicher bin. Ich ...

Ich möchte mein Heimnetz umbauen. Welches ist die beste Variante?

Frage von s.burgerLAN, WAN, Wireless13 Kommentare

Schönen guten Tag liebe Admin-Community, ich wollte schon seit geraumer Zeit mein Heimnetzwerk etwas aufräumen und wollte euch um ...

Frage Microsoft Microsoft Office gelöst Access 2010 VBA - misslungene ODBC-Connection abfangen