Imports ByteFX.Data.MySqlClient
Imports ByteFX.Data.MySqlClient.Design
 
    Public myConnection As New MySqlConnection()
    Public myDataAdapter As New MySqlDataAdapter()
 
        ' Connection String
        myConnection.ConnectionString = "Persist Security Info=False;" & _
            "database=voptneu;" & _
            "SERVER=" & GetSetting("VOptNeu", "Firmendaten", "Server") & ";" & _
            "user id=" & GetSetting("VOptNeu", "Firmendaten", "Benutzer") & ";" _
            & _
            "pwd=" & VernamCode(GetSetting("VOptNeu", "Firmendaten", _
            "Passwort"), "123264")
 
        ' Connection öffnen
        myConnection.Open()
 
' ###############################################################
 
    Public Sub Auswahl(ByVal mySQL As String)
        myDataAdapter = New MySqlDataAdapter
        myDataSet = New DataSet
 
        myDataAdapter.SelectCommand = New MySqlCommand(mySQL, _
            myConnection)
        myDataAdapter.Fill(myDataSet)
    End Sub
 
' ################################################################
 
' Wenn ich jetzt die DB ansprechen möchte gehe ich wie folgt vor:
 
                 Auswahl ("Select * From Kundenstamm")
 
                txtStrasse.Text = myDataSet.Tables(0).Rows(0)("Strasse")
                txtPLZ.Text = myDataSet.Tables(0).Rows(0)("PLZ")
                txtOrt.Text = myDataSet.Tables(0).Rows(0)("Ort")
                txtVwFest.Text = myDataSet.Tables(0).Rows(0)("VwFest")
 
' Genauso kann ich auch Daten in die DB bringen
 
  Auswahl ("Insert Into Kundenstamm Set NName='" & txtNName.Text"'")
 
' ###################################################################