MySql in Grid Vb Express 2010

        Dim conn As New MySql.Data.MySqlClient.MySqlConnection
        If conn.State = ConnectionState.Closed Then
            Dim myString As String = "server=localhost;user=root;password=;database=dbname"
            Try
                conn.ConnectionString = myString
                conn.Open()
            Catch ex As MySql.Data.MySqlClient.MySqlException
                MsgBox(ex.Message)
                End
            End Try
        End If

        Dim cmd As New MySql.Data.MySqlClient.MySqlCommand

        cmd.CommandText = "SELECT nis from datasiswa"
        cmd.Connection = conn
        Dim table As New DataTable
        Dim adapter As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd.CommandText, conn)
        Dim cb As New MySql.Data.MySqlClient.MySqlCommandBuilder(adapter)
        adapter.Fill(table)
        grid.DataSource = table

Posting Lebih Baru Posting Lama

Leave a Reply