Koneksi Database MySQL Pada VB 2005

Pada pembelajaran Visual Basic 2005 kali ini akan dibahas tentang Koneksi Database MySQL Pada VB 2005

Untuk mengikuti Pembelajaran ini Pastikan :
Anda Sudah Install Xampp
Anda Sudah Install ODBC 3.51
Anda Sudah Install Visual Basic 2005

Berikut langkahnya :
1. Buat Database dan Tabel Pada MySQL
Buatlah Database Dengan Nama : dbbelajarvb
Buatlah Tabel Dengan Nama : Barang

2. Buatlah Design Form Seperti gambar dibawah :

Design form diatas hanya ditambahkan DataGridView1

3. Berikut Kodingnya :

Imports System.Data.Odbc
Public Class Form1
    Dim Conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
       Handles MyBase.Load
        Me.Text = "www.belajarvb.com"
        Koneksi()
        da = New OdbcDataAdapter("Select * from Barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=dbbelajarvb;server=localhost;uid=root"
        Conn = New OdbcConnection(Str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub
End Class

Salam,
belajarVB.com