Rubrik: Datenbanken | VB-Versionen: VB5, VB6 | 01.11.02 |
Zugriff auf MySQL-Datenbanken (ADO) Dieser Workshop zeigt Ihnen, welche Schritte im Einzelnen notwendig sind, um mit Visual Basic oder direkt aus MS-Access heraus auf eine MySQL-Datenbank zuzugreifen. | ||
Autor: Martin Riedl | Bewertung: | Views: 72.171 |
Dieser Workshop zeigt Ihnen, welche Schritte im Einzelnen notwendig sind, um mit Visual Basic oder direkt aus MS-Access heraus auf eine MySQL-Datenbank zuzugreifen.
ODBC-Treiber downloaden und installieren
Bevor Sie auf eine MySQL-Datenbank zugreifen können, müssen zunächst folgende Schritte ausgeführt werden:
- Download und Installation des MySQL ODBC-Treibers
MySQL ODBC-Treibers 3.51.12
Unter der URL http://www.mysql.com/downloads/index.html können Sie jederzeit nachschauen, ob eine neuere Version von MyODBC vorhanden ist.
- Öffnen Sie nun über "Start - Einstellungen" die Systemsteuerung und doppelklicken dort auf Verwaltung. Doppelklicken Sie auf das Icon Datenquellen (ODBC) und erstellen im Register System DNS eine neue Systemdatenquelle.
- Klicken Sie hierzu auf "Hinzufügen" und wählen Sie dann den "MySQL ODBC 3.51 Driver " aus.
- Als Data Source Name geben Sie einen beliebigen Namen für die Verbindung ein.
- Im Feld Host/Server geben Sie die IP oder den Hostnamen an.
- Und im Feld Database Name tragen abschließend den Namen der Datenbank ein.
- Speichern Sie die Angaben, indem Sie auf OK klicken.
Verknüpfung der MySQL-Datenbank mit Access
Die MySQL Datenbank muss jetzt mit Access verknüpft werden. Starten Sie MS-Access und führen hierzu folgende Schritte aus:
- Klicken Sie auf Neu und wählen Sie dann
- Tabelle verknüpfen
- Wählen Sie als Dateityp "ODBC Database" aus
- Wählen Sie unter Computerdatenquelle Ihre Systemdatenquelle aus, die Sie zuvor erstellt haben und klicken Sie auf OK.
- Das DSN Configurations-Fenster wird geöffnet. Dieses bestätigen Sie mit einem Klick auf OK.
- Wählen Sie eine Tabelle aus.
- Eine neue Verknüpfung wurde erstellt.
Zugriff auf eine MySQL-Datenbank in VB
Möchten Sie aus Ihrer VB-Anwendung heraus auf eine MySQL-Datenbank zugreifen? Auch kein Problem. Das ganze geht fast noch einfacher als unter MS-Access. Hierzu bedarf es zunächst einen Verweis auf die Microsoft ActiveX DataObject 2.5 Library, den Sie unter Projekt - Verweise aktivieren können.
Der Code für den MySQL-Datenbankzugriff ist relativ kurz:
' Deklaration der DB-Objektvarialen ' Connection-Objekt Dim oConn As ADODB.Connection ' Instanzierung des Objekts Set oConn = New ADODB.Connection ' Recordset-Objekt Dim oRS As Recordset ' Recordset erstellen Set oRS = New ADODB.Recordset ' Öffnen der ODBC Schnittstelle ' DSN ist der DataSourceName oConn.Open "Provider=MSDASQL;DSN=http://localhost/phpMyAdmin" ' Jetzt kann es losgehen... ' z.B. eine Abfrage erstellen... oRS.Open "SELECT * FROM t_test", oConn
Die weitere Handhabung des Datenbank-Zugriffs entspricht dem gewohnten Access-Datenbankzugriff.