Imports MySql.Data.MySqlClient
 
Public Class Form1
    Dim Con As New MySqlConnection
    Dim sqlConnString As String = _
      "SERVER=localhost;DATABASE=test;uid=root;Connection" & _
      "Timeout=30;logging=True;Pooling=False;port=3306;"
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        connectiontest()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        auslesen()
    End Sub
 
    Sub connectiontest()
        Try
            Con.ConnectionString = sqlConnString
            Con.Open()
            'Verbindungsstatus:
            If Con.State = ConnectionState.Open Then
                TextBox1.Text = "Verbindung zum Server war erfolgreich."
            Else
                TextBox1.Text = "Verbindung zum Server war NICHT erfolgreich."
            End If
        Catch ex As Exception
            MsgBox("Fehler beim verbinden mit der datenbank")
        End Try
        Con.Close()
    End Sub
 
    Sub auslesen()
        Try
            Dim strSQL As String = "SELECT * FROM steuerung WHERE 'id'='2';"
            Con.ConnectionString = sqlConnString
            Con.Open()
            Dim cmd As MySqlCommand = New MySqlCommand(strSQL, Con)
            Dim ergebnis As String
            ergebnis = cmd.ExecuteNonQuery
 
            MsgBox(ergebnis)
 
 
        Catch ex As Exception
            MsgBox("Fehler beim auslesen der datenbank")
        End Try
        Con.Close()
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class