Mit deser kleine Routine kann auf eine MySQL-Datenbank lesend zugegriffen werden.

 

Voraussetzung:

MySQL Server muss installiert sein. Hier auf dem lokalen Rechner (localhost). Kann aber auch jeder andere Rechner im Netzwerk sein.

MySQL-ODBC-Treiber muss installiert sein hier im BSP: Version 3.51

 

Verbindungsparameter:

ODBC-Treibername: {MySQL ODBC 3.51 Driver}
Datenbank: testdb
Server-Name: localhost (127.0.0.1)
Benutzer: root
Passwort: geheim
Verbindungsparameter: 3 (1 ->Don't optimize Column with 2->Return matching Rows)
PORT: muss nicht angegebenwweden wenn default (3306)

In das Object RS werden die Datensätze per SQL-Abfrage geladen und mit der Loop durchlaufen.

Sub Connect_to_MySQL()
  Dim DB As Object
  Dim DBEngine As Object
  Dim RS As Object
  Dim csConnect$
    
  'Welcher DAO-Treiber installiert ist kann in diesem Ornder festgestellt werden.
  'c:\Programme\Gemeinsame Dateien\Microsoft Shared\DAO\dao360.dll
  'Hier MicroSoft DAO Version 3.6 Object Library
  Set DBEngine = CreateObject("DAO.DBEngine.36")
  'Verbindung zur Datenbank öffnen
  csConnect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};DATABASE=testdb;SERVER=localhost;UID=root;PWD=geheim;PORT=;OPTION=3;"
  Set DB = DBEngine.OpenDatabase("", False, True, csConnect)
  Set RS = DB.OpenRecordSet("SELECT * FROM adressen WHERE KUNDENGRUPPE = 999")
  
  If Not (RS.BOF And RS.EOF) Then ' Recordset ist nicht leer
    RS.MoveFirst
    Do
      Debug.Print RS("MATCHCODE").Value
      RS.MoveNext
    Loop Until RS.EOF
  End If
  Debug.Print "Betroffene Datensätze : " & RS.RecordCount
  RS.Close
  Set RS = Nothing
  DB.Close
  Set DB = Nothing
  Set DBE = Nothing
End Sub

 

Wir nutzen Cookies auf unserer Website. Einige von ihnen sind essenziell für den Betrieb der Seite, während andere uns helfen, diese Website und die Nutzererfahrung zu verbessern (Tracking Cookies). Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.