Menampilakan Data Mysql ke Datagridview VB 2008

Berikut ini adalah catatan fey menyambung dari catatan fey Membuat Form Login VB 2008 dengan database MySql . Kita akan menampilkan data dari tabel user yg kita punya di catatan fey sebelumnya yg tersebut di atas.Bagaimana menampilkan data myqsl yg kita punya kedalam datagridview VB 2008?.
Banyak tehik lain yang lebih baik anda dapat melakukan searching di google. Berikut cara simple menampilkan data myqsl yg kita punya kedalam datagridview VB 2008.

Langkah-langkah.
1. Buka VB 2008, buat sebuah project baru lalu berinama tampildatakedatagridview


 2. Pada Form1 masukkan sebuah Datagridview

3. Buat sebuah modul koneksi ke database Mysql

4. Beri nama modul tersebut dengan nama koneksi

5. isi modul koneksi dengan script

 

Imports System.Data.Odbc

Module koneksi
  
 Public conn As New OdbcConnection("Driver={MySQL ODBC 3.51
Driver};Server=localhost;Database=tes;User=tes;Password=tes;Option=3;")

    Sub bukakoneksi()
        If conn.State = ConnectionState.Closed Then
            Try
                conn.Open()
            Catch mex As OdbcException
                MsgBox(mex.Message)
            End Try
        End If
    End Sub

    Sub tutupkoneksi()
        conn.Close()
    End Sub

End Module


6. Pada Form1 masukkan script

 

Imports System.Data.Odbc

Public Class Form1
    Sub tampildata()
        bukakoneksi()
        Dim myadp As OdbcDataAdapter
        Dim dt As New DataTable
        Dim query As String = "select * from user"

        Try
            myadp = New OdbcDataAdapter(query, conn)
            myadp.Fill(dt)
            With DataGridView1
                .DataSource = dt
            End With

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        tutupkoneksi()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tampildata()
    End Sub
End Class

7. Jalankan program






untuk source kode silahkan download di sini. caranya :



Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.