Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Access 2010 VBA - misslungene ODBC-Connection abfangen

Frage Microsoft Microsoft Office

Mitglied: AndyAh

AndyAh (Level 2) - Jetzt verbinden

27.01.2014 um 13:35 Uhr, 3474 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
Mitglied: colinardo
LÖSUNG 27.01.2014, aktualisiert 29.01.2014
Hallo Andy,
könntest du wie in diesem Beispiel abfangen
01.
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
Bitte warten ..
Mitglied: AndyAh
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:

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
Bitte warten ..
Mitglied: colinardo
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"

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.
   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
Bitte warten ..
Mitglied: AndyAh
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
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access 2010 Abfrage erster Werktag (10)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Access 2010 komplizierte Abfrage (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
gelöst Hilfe bei "Distinct" Befehl in Access 2010 (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...