Imports MySql.data
Imports MySql.Data.MySqlClient
 
Public Class MySQL
 
    Public Sub Query(ByVal query As String, Optional ByVal myConnString As _
      String = "server=localhost;user" & _
      "id=root;password=root;database=wtmessenger")
        Dim myConnection As New MySqlConnection(myConnString)
        myConnection.Open()
        Dim myCommand As MySqlCommand = myConnection.CreateCommand()
        Dim myTrans As MySqlTransaction
        Dim myData As New DataTable("MyData")
 
        myTrans = myConnection.BeginTransaction()
        myCommand.Connection = myConnection
        myCommand.Transaction = myTrans
 
        Try
            myCommand.CommandText = query
            myCommand.ExecuteNonQuery()
            myTrans.Commit()
        Catch e As Exception
            Try
                myTrans.Rollback()
            Catch ex As MySqlException
            End Try
        Finally
            myConnection.Close()
        End Try
    End Sub
 
End Class

Mit freundlichen Gr??en,
Djinndrache