<\/p>\n
Für viele Anwender fällt ein ODBC-Zugriff auf eine MySQL-Datenbank flach, weil sie auf ihrem Rechner keine zusätzliche Software wie etwa MyODBC installieren dürfen. Mit einer speziellen MySQL-DLL und einigen Klassen einer Open Source-Bibliothek gelingt dies auch ohne Installation von MyODBC – Sie brauchen nur noch eine einzige DLL in das Verzeichnis zu kopieren, in dem sich auch Ihre Datenbankdatei befindet. Dieser Beitrag zeigt die Möglichkeiten dieser Lösung auf.<\/b><\/p>\n
Den Großteil der Arbeit der in diesem Beitrag vorgestellten Lösung übernimmt das Projekt vbmysqldirect<\/b>, das Sie unter http:\/\/www.vbmysql.com\/projects\/vbmysqldirect <\/b>herunterladen können. Gleich vorneweg der Hinweis, dass die in der hier vorgestellten Lösung verwendeten Klassen der GNU Library General Public License <\/b>unterliegen. Das bedeutet unter anderem, dass Sie Anwendungen, welche diese frei verfügbaren Klassen nutzen, nicht kommerziell vertreiben dürfen.<\/p>\n
Voraussetzungen<\/b><\/p>\n
Einzige Voraussetzung für den Einsatz der in diesem Beitrag vorgestellten Lösung ist das Vorhandensein der Bibliothek libmysql.dll <\/b>im Verzeichnis der Datenbankdatei. Diese DLL gelangt üblicherweise mit der Installation von MySQL auf den Rechner, kann aber auch anderweitig bezogen werden – zum Beispiel von dieser Seite: http:\/\/www.mysql.com\/downloads\/connector\/c\/<\/b>. Die Beispieldatenbank enthält diese DLL in einem OLE-Feld der Tabelle tblTools<\/b>, von wo aus sie mit der Prozedur ExportDLL <\/b>in das aktuelle Datenbankverzeichnis exportiert werden kann. Vom Projekt vbmysqldirect<\/b> importieren Sie einige Klassen und ein Standardmodul in die Datenbank, von der aus Sie direkt auf eine MySQL-Datenbank zugreifen möchten. In Bild 1 sehen Sie diese Module. Wenn Sie die Module importiert und die DLL in das Anwendungszeichnis exportiert haben, können Sie loslegen. Wie das geht, zeigt das folgende Beispiel.<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_01\/MySQLAdmin-web-images\/pic002.png\")
<\/p>\n
Bild 1: Das Modul modDeclare und die Klassen dieses Projekts enthalten die Methoden für den Zugriff auf MySQL-Datenbanken.<\/span><\/b><\/p>\n Datenbanken ausgeben<\/b><\/p>\n Die Objekte und Methoden von vbmysqldirect<\/b> lehnen sich stark an das ADO-Objektmodell an. Dennoch liefern sie einige MySQL-spezifische Methoden. Mit der ersten zeigen wir, wie Sie alle Datenbanken eines angegebenen MySQL-Servers anzeigen. Die Prozedur aus Bild 2). Dieses Formular ist an die Tabelle tblConnections <\/b>gebunden, welche Verbindungsdaten für den Zugriff auf die einzelnen Datenbanken enthält. Dabei deklariert und erstellt sie zunächst ein Objekt namens conn<\/b> auf Basis der Klasse MYSQL_CONNECTION<\/b>. Diese wird mit den im aktuellen Datensatz des Formulars gespeicherten Daten geöffnet. Außerdem verwendet die Prozedur ein Objekt des Typs MYSQL_RS<\/b>, welches dem Recordset<\/b>-Objekt entspricht.<\/p>\n Listing 1: Zusammenstellen einer Liste aller Datenbanken eines MySQL-Servers<\/p>\n Bild 2: Das Formular frmMySQL zeigt einige Datenbank-Informationen an.<\/span><\/b><\/p>\n <\/p>\n Für das Füllen des Recordsets mit den Namen der Datenbanken der mit der Connection referenzierten MySQL-Instanz gibt es eine spezielle Methode namens Show mit dem Parameter MY_SHOW_DATABASES<\/b>. Das so gefüllte Recordset<\/b>-Objekt lässt sich per Do While<\/b>-Schleife und der MoveNext<\/b>-Anweisung durchlaufen und gibt die Namen der enthaltenen Datenbanken preis. Die dabei zusammengestellte Liste landet schließlich im Listenfeld lstDatenbanken<\/b>, das als Wertliste ausgelegt ist.<\/p>\n Tabellen auflisten<\/b><\/p>\n Als nächstes möchten Sie möglicherweise alle Tabellen einer bestimmten Datenbank auflisten. Dies erledigt die Prozedur aus Listing 2<\/a><\/span>. Sie erstellt wiederum Objekte auf Basis der Klassen MYSQL_CONNECTION <\/b>und MYSQL_RS<\/b>. Das Recordset-Objekt wird wiederum mit der Show<\/b>-Methode gefüllt, diesmal jedoch mit dem Parameter MY_SHOW_TABLES<\/b>. Dies liefert ein Recordset mit nur einem Feld für den Tabellennamen, aber mit je einem Datensatz pro enthaltener Tabelle.<\/p>\n Listing 2: Ausgeben aller Tabellen einer Datenbank im Direktfenster<\/p>\n Felder einer Tabelle anzeigen<\/b><\/p>\n Da Sie vielleicht mal eben auf die Daten einer Tabelle einer MySQL-Datenbank zugreifen möchten, haben Sie möglicherweise gerade auch keine andere Gelegenheit, sich die Namen der Felder der Tabelle ausgeben zu lassen. Dies können Sie mit der Prozedur aus Listing 3<\/a><\/span> erreichen. Die Prozedur zeigt gleichzeitig, wie Sie die Feldnamen eines Recordsets erhalten: nämlich mit einer For…Next<\/b>-Schleife von 0 bis zur Anzahl der Eigenschaft FieldCount <\/b>des Recordsets minus eins. Dabei wird das Recordset diesmal mit zwei Parametern geöffnet. Der erste wird mit MY_SHOW_COLUMNS <\/b>gefüllt, der zweite mit dem Namen der zu untersuchenden Tabelle. Der Rest der Prozedur durchläuft das Recordset und gibt die Inhalte aller sechs Felder aus. Die Schreibweise mit den sechs einzelnen Debug.Print<\/b>-Anweisungen hat übrigens ihren Sinn: Die Fields<\/b>-Eigenschaft liefert nämlich sonst immer den gleichen Wert zurück, wenn diese mit verschiedenen Parametern in nur einer Debug.Print<\/b>-Anweisung auftauchen.<\/p>\n Listing 3: Ausgeben der Felder einer Tabelle<\/p>\n Daten abfragen<\/b><\/p>\n Mit der Kenntnis der Datenbanken, Tabellen und Felder können Sie sich gleich an das Abfragen und Ausgeben von Daten begeben. Dazu lesen Sie nun konkret den Inhalt einer Tabelle in ein Recordset<\/b>-Objekt ein. Das Füllen des Recordsets erfolgt dabei etwas anders als gewohnt. Sie weisen dem Recordset nämlich das Ergebnis der Execute<\/b>-Anweisung des Connection<\/b>-Objekts zu. Als Parameter erwartet die Execute<\/b>-Methode in diesem Fall eine Auswahlabfrage. Sie können hier nicht einfach wie bei der OpenRecordset<\/b>-Methode den Namen einer Tabelle oder Abfrage angeben, sondern müssen dieser zumindest ein SELECT * FROM <\/b>voranstellen, wie es in Listing 4<\/a><\/span> der Fall ist.<\/p>\n Listing 4: Ausgeben der Daten einer Tabelle<\/p>\n Das Durchlaufen erfolgt dann wieder wie üblich, wobei auch hier die Verwendung je einer Debug.Print<\/b>-Anweisung je Zugriff auf die Fields<\/b>-Eigenschaft nötig ist. Beachten Sie, dass Sie beim Definieren des SQL-Ausdrucks den Dialekt von MySQL verwenden müssen – immerhin greifen Sie hier direkt auf die MySQL-Datenbank zu und nicht über die Jet-Engine. Das bedeutet, dass Sie zum Beispiel nicht das Sternchen, sondern das Prozentzeichen als Platzhalter verwenden:<\/p>\n Betroffene Datensätze zählen<\/b><\/p>\nPrivate Sub cmdDatenbankenAnzeigen_Click()\r\n Dim conn As MYSQL_CONNECTION\r\n Dim rst As MYSQL_RS\r\n Dim strDatenbanken As String\r\n Set conn = New MYSQL_CONNECTION\r\n Set rst = New MYSQL_RS\r\n conn.OpenConnection Me!Server, Me!Benutzername, Me!Kennwort, Me!Datenbank, Me!Port\r\n Set rst = conn.Show(MY_SHOW_DATABASES)\r\n Do While Not rst.EOF\r\n strDatenbanken = strDatenbanken & rst.Fields("Database").Value & ";"\r\n rst.MoveNext\r\n Loop\r\n Me!lstDatenbanken.RowSource = strDatenbanken\r\nEnd Sub<\/pre>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_01\/MySQLAdmin-web-images\/pic003.png\")
<\/p>\nPublic Sub TabellenErmitteln()\r\n Dim conn As MYSQL_CONNECTION\r\n Dim rst As MYSQL_RS\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n Set conn = New MYSQL_CONNECTION\r\n Set rst = New MYSQL_RS\r\n conn.OpenConnection "Servername", "Username", "Password", "Database", "3306"\r\n Set rst = conn.Show(MY_SHOW_TABLES)\r\n Do While Not rst.EOF\r\n Debug.Print rst.Fields(0)\r\n rst.MoveNext\r\n Loop\r\n conn.CloseConnection\r\nEnd Sub<\/pre>\n
Public Sub FelderAusgeben()\r\n Dim conn As MYSQL_CONNECTION\r\n Dim rst As MYSQL_RS\r\n Dim i As Integer\r\n Set conn = New MYSQL_CONNECTION\r\n Set rst = New MYSQL_RS\r\n conn.OpenConnection "Servername", "Username", "Password", "Database", "3306"\r\n Set rst = conn.Show(MY_SHOW_COLUMNS, "tl_member")\r\n For i = 0 To rst.FieldCount - 1\r\n Debug.Print rst.Fields(i)\r\n Next i\r\n Do While Not rst.EOF\r\n Debug.Print rst.Fields(0), ''Name\r\n Debug.Print rst.Fields(1), ''Datentyp\r\n Debug.Print rst.Fields(2), ''NO\r\n Debug.Print rst.Fields(3), ''Primärschlüssel\r\n Debug.Print rst.Fields(4), ''Null\r\n Debug.Print rst.Fields(5) ''Autowert\r\n rst.MoveNext\r\n Loop\r\n conn.CloseConnection\r\nEnd Sub<\/pre>\n
Public Sub DatenAusgeben()\r\n Dim conn As MYSQL_CONNECTION\r\n Dim rst As MYSQL_RS\r\n Set conn = New MYSQL_CONNECTION\r\n Set rst = New MYSQL_RS\r\n conn.OpenConnection "Servername", "Username", "Password", "Database", "3306"\r\n Set rst = conn.Execute("SELECT * FROM tl_member order by id")\r\n Do While Not rst.EOF\r\n Debug.Print rst.Fields("id"),\r\n Debug.Print rst.Fields("email")\r\n rst.MoveNext\r\n Loop\r\n conn.CloseConnection\r\nEnd Sub<\/pre>\nSELECT * FROM tl_member WHERE email like ''andre%''<\/pre>\n