Imports MySql.Data.MySqlClient
Public Class WebForm1
 
    Inherits System.Web.UI.Page
 
    Public dbserver As String
    Public dbuser As String
    Public dbpassword As String
    Public database As String
    Public dbcon As MySqlConnection
 
    Public myCommand As New MySqlCommand
    Public myAdapter As New MySqlDataAdapter
    Public table As New DataTable
    Protected WithEvents btnshowtable As System.Web.UI.WebControls.Button
    Protected WithEvents dgdmain As System.Web.UI.WebControls.DataGrid
    Protected WithEvents txtname As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnsend As System.Web.UI.WebControls.Button
    Public SQL As String
 
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' Hier Benutzercode zur Seiteninitialisierung einfügen
    End Sub
 
 
    Private Sub btnconnect_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnconnect.Click
 
        If btnconnect.Text = "Verbinden" Then
 
            dbcon = New MySqlConnection
 
 
            dbserver = "111.111.111.111"
            dbuser = "Benutzername"
            dbpassword = "Passwort"
            database = "Datenbank"
 
            dbcon.ConnectionString = "server=" & dbserver & ";" _
                & "user id=" & dbuser & ";" _
                & "password=" & dbpassword & ";" _
                & "database=" & database & ";"
 
            'dbcon.Open()
            Try
                dbcon.Open()
                lblstatus.Text = "Verbindung hergestellt"
                'dbcon.Close()
                btnconnect.Text = "Trennen"
            Catch myerror As MySqlException
                lblstatus.Text = "Verindung fehlgeschlagen. Fehlercode: " & _
                  myerror.Message
            Finally
                dbcon.Dispose()
            End Try
 
        Else
            dbcon.Close()
 
        End If
 
    End Sub
 
    Private Sub btnshowtable_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnshowtable.Click
 
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim table As New DataTable
        Dim SQL As String
 
        SQL = "SELECT * FROM Tabelle"
 
        myCommand.Connection = dbcon
        myCommand.CommandText = SQL
 
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(table)
 
        dgdmain.DataSource = table
 
    End Sub
 
    Private Sub btnsend_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnsend.Click
 
        Dim name2 As String
 
        name2 = txtname.Text
 
        SQL = "INSERT INTO Tabelle(Name) VALUES('" & name2 & "')"
 
        dbcon.Open()
 
        myCommand.Connection = dbcon
        myCommand.CommandText = SQL
 
        myCommand.ExecuteNonQuery()
 
    End Sub
End Class