Option Explicit On
 
Public Class welcome_screen
    ' Die Deklarationen sind fast wie bei ADO
 
    ' Connection-Object
    Private oConn As New MYSQL_CONNECTION
 
    ' Recordset-Object
    Private oRs As MYSQL_RS
 
    ' Servername und Benutzerdaten
    Private Const sServer As String = "localhost"
    Private Const sUsername As String = "root"
    Private Const sPassword As String = "*********"
    Private Const sDBName As String = "*******"
    Private Const sTable As String = "*********"
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' oConn.OpenConnection "Rechnername", _
        '  "Ihr Benutzername", "Ihr Passwort", _
        '  "Name der Datenbank"
        '
        ' Wir öffnen die Verbindung zum MySQL Server
        ' Statt 'Localhost' kann auch die IP verwendet werden. Diese
        ' erfahren Sie im WinMySQLAdmin im Register'Environment',
        ' wenn Sie auf 'Extended Server Status' klicken.
        oConn.OpenConnection(sServer, _
    sUsername, sPassword, sDBName)
 
        ' Statusabfrage
        If (oConn.State = MY_CONN_CLOSED) Then
            ' Falls Verbindung nicht geöffnet, Fehlerangabe!
            MySQL_Error()
        Else
            ' Bei erfolgreicher Verbindung, Verbindungsdaten ausgeben
            MsgBox("Connected to Database: " & oConn.DbName, _
              vbInformation, "MySQL-Testprojekt")
        End If
    End Sub
    Private Function MySQL_Error() As Boolean
        With oConn.Error
            If .Number = 0 Then Exit Function
 
            MsgBox("Error " & .Number & ": " & .Description)
            MySQL_Error = True
        End With
    End Function
End Class