Imports MySql.Data.MySqlClient
Imports System.Data
 
Public Class DBCon
 
    Private Shared strDataBase2 As String = "test"
    Private Shared strDataSource2 As String = "localhost"
    Private Shared strUserID2 As String = "root"
    Private Shared strPassword2 As String = ""
    Private Shared strConStr2 As String = ( _
    "Database=" & strDataBase2 & _
    ";Data Source=" & strDataSource2 & _
    ";User Id=" & strUserID2 & _
    ";Password=" & strPassword2)
    Private Shared MySqlCon2 As New MySqlConnection(strConStr2)
    Public Shared dsBaseData As DataSet
 
 
    Public Shared Sub BasicDB_Test()
        Dim strQuery As String
        Dim cmd As MySqlCommand
        Dim da As MySqlDataAdapter
 
        strQuery = "SELECT * FROM tabelle1 Order by nid;"
        strQuery &= "SELECT * FROM tabelle2 Order by vid;"
        cmd = New MySqlCommand(strQuery, MySqlCon2)
        da = New MySqlDataAdapter(cmd) ' MySQLAdapter
        dsBaseData = New DataSet            ' DataSet für die Tabellen
 
        da.TableMappings.Add("Table", "tabelle1") ' Mapping für tabelle1
        da.TableMappings.Add("Table1", "tabelle2") ' Mapping für tabelle2
        Try
            da.Fill(dsBaseData) ' DataSet mit dem Inhalt der DB-Tabellen füllen
            MessageBox.Show("DataSet wurde befüllt!")
        Catch e As Exception
            MessageBox.Show(e.Message)
            Exit Sub
        End Try
        'Manipulation der ersten Reihe der beiden Tabellen im DataSet
        dsBaseData.Tables("tabelle1").Rows(1)("name") = "Mueller"
        dsBaseData.Tables("tabelle2").Rows(1)("vorname") = "Martin"
 
        Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) ' Command 
        ' erzeugen
        da.Update(dsBaseData) ' Update
 
    End Sub
 
End Class