08/22/10

MySqlDataReader in VB Express 2010

atas sendiri tambah command berikut
Imports MySql.Data.MySqlClient

  Private Sub Tampil()
        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
        nis.Text = grid.Item(0, grid.CurrentRow.Index).Value

        cmd.CommandText = "SELECT * from datasiswa where nis='" & nis.Text & "'"
        cmd.Connection = conn
        Dim reader As MySqlDataReader = cmd.ExecuteReader()

        While reader.Read
            nama.Text = reader("nama")
        End While


    End Sub

Akses data grid VB Express 2010

nis.Text = grid.Item(0, grid.CurrentRow.Index).Value

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

Konek MYSql in 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

Postingan Lebih Baru Postingan Lama