Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 3834 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Microsoft Office
Access DB: ODBC-Verbindung zu Datenbank fehlgeschlagen (2)

Frage von potshock zum Thema Microsoft Office ...

Microsoft Office
gelöst Access 2016: keine Verbindung zu 32-bit ODBC Datenquelle (4)

Frage von masteruser0815 zum Thema Microsoft Office ...

Datenbanken
Access 2010 - Filter für Datum funkioniert nicht VBA (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Firewall

PfSense Repository für Version 2.3.x

(2)

Information von Dobby zum Thema Firewall ...

LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(4)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Hardware

GPD Pocket: Winziger Laptop für Wenig Tipper

(1)

Information von pelzfrucht zum Thema Hardware ...

Windows 10

Microsoft veröffentlicht das "Fall Creators Update

(10)

Information von Penny.Cilin zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (20)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...