Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient
 
 
Public Class Optionen
    Inherits System.Windows.Forms.Form
 
    Dim conn As MySqlConnection
    Dim data As DataTable
    Dim da As MySqlDataAdapter
    Dim cb As MySqlCommandBuilder
    Private Sub cmd_connect_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_connect.Click
        If Not conn Is Nothing Then conn.Close()
 
        Dim connStr As String
        connStr = String.Format("server={0};user id={1}; password={2};" & _
          "database=mysql; pooling=false", tb_server.Text, tb_user.Text, _
          tb_passwd.Text)
 
        Try
            conn = New MySqlConnection(connStr)
            conn.Open()
 
            GetDatabases()
        Catch ex As MySqlException
            MessageBox.Show("Error connecting to the server: " + ex.Message)
        End Try
    End Sub
 
    Private Sub GetDatabases()
        Dim reader As MySqlDataReader
        reader = Nothing
 
        Dim cmd As New MySqlCommand("SHOW DATABASES", conn)
        Try
            reader = cmd.ExecuteReader()
            cb_database.Items.Clear()
 
            While (reader.Read())
                cb_database.Items.Add(reader.GetString(0))
            End While
        Catch ex As SqlException
            MessageBox.Show("Failed to populate database list: " + ex.Message)
        Finally
            If Not reader Is Nothing Then reader.Close()
        End Try
 
    End Sub
 
 
    Private Sub cb_database_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles cb_database.SelectedIndexChanged
        Dim reader As MySqlDataReader
 
        conn.ChangeDatabase(cb_database.SelectedItem.ToString())
 
        Dim cmd As New MySqlCommand("SHOW TABLES", conn)
 
        Try
            reader = cmd.ExecuteReader()
            cb_tables.Items.Clear()
 
            While (reader.Read())
                cb_tables.Items.Add(reader.GetString(0))
            End While
 
        Catch ex As SqlException
            MessageBox.Show("Failed to populate table list: " + ex.Message)
        Finally
            If Not reader Is Nothing Then reader.Close()
        End Try
    End Sub
 
 
    Private Sub cb_tables_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles cb_tables.SelectedIndexChanged
        data = New DataTable
 
        da = New MySqlDataAdapter("SELECT * FROM " + _
          cb_tables.SelectedItem.ToString(), conn)
        cb = New MySqlCommandBuilder(da)
 
        da.Fill(data)
 
        My.Forms.zeitnahme.grid.DataSource = data
    End Sub

Rechtschreibfehler sind mein Copyright(C)