Visual Basic Express 2008 an MySQL-Datenbank konnektieren

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types

Dim strConn As String = "Persist Security Info=False;database=(DATENBANKNAME);server=(SERVERNAME);user id=(BENUTZER);Password=(PASSWORT);charset=latin1"  

'stellt die Verbindung mit der Datenbank zur Verfügung  
Dim objMySQL as MySqlConnection
'erlaubt das Ausführen von SQL-Statements  
Dim objCommand as MySqlCommand

objMySQL = New MySqlConnection(strConn)
objMySQL.Open

objMySQL.Close
objMySQL = Nothing

Dim strSQL as string = "SELECT (FELDER) FROM (TABELLE)"  

objCommand = New MySqlCommand(strSQL, objMySql)

Dim objReader as MySqlDataReader
objReader = objCommand.ExecuteQuery

Do Until objReader.Read = False
dim strFeld1 as string = objReader!Feld1
dim strFeld2 as string = objReader!Feld2
msgbox strFeld1 & ":" & strFeld2  
Loop

objReader.Close
objReader = Nothing

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types

Public Class KundenLeser

Public Sub LeseKundenDaten()

'stellt die Verbindung mit der Datenbank zur Verfügung  
Dim objMySQL as MySqlConnection

'erlaubt das Ausführen von SQL-Statements  
Dim objCommand as MySqlCommand

'datareader  
Dim objReader as MySqlDataReader

'connection-string  
Dim strConn As String = "Persist Security Info=False;database=tblKundendaten;server=srv-wawi;user id=sqluser;Password=12345;charset=latin1"  

'sql-statement  
Dim strSQL as string = "SELECT Kundenname, Strasse, Ort FROM Kunden"  

'dieser String enthält nachher die Kundendaten, ein Datensatz pro Zeile  
dim strResult as string = ""  

'datenbankverbindung aufbauen  
objMySQL = New MySqlConnection(strConn)
objMySQL.Open

'command-objekt vorbereiten und an den Reader übergeben  
objCommand = New MySqlCommand(strSQL, objMySql)
objReader = objCommand.ExecuteQuery

'ergebnisse auslesen und in string speichern  
Do Until objReader.Read = False
dim strName as string = objReader!KundenName
dim strStrasse as string = objReader!Strasse
dim strOrt as string = objReader!Ort
strResult &= strName & ", " & strStrasse & ", " & strOrt & vbcrlf  
Loop

'Datenbankverbindungen schließen und bereinigen  
objReader.close
objMySQL.Close

objReader = Nothing
objCommand = Nothing
objMySQL = Nothing

'ergebniss anzeigen  
MsgBox strResult, vbokonly, "SQL Ergebniss"  

End Sub

End Class