Top-Themen

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

Mitglied: AndyAh

AndyAh (Level 2) - Jetzt verbinden

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
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
Datenbanken
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 ...

VB for Applications
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 ...

Datenbanken

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 ...

VB for Applications

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
Humor (lol)
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 ...

Windows Update
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 ...

Backup

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. ...

Python

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
Windows Update
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 ...

Netzwerkgrundlagen
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 ...

Off Topic
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 ...

LAN, WAN, Wireless
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 ...