koneksi vb dengan ms.access 2007

Pada Pembelajaran VB 2010 kali ini adalah tentang Cara Membuat Koneksi Database Access 2007. Pembelajaran ini juga bisa anda gunakan Untuk Database Access 2010 atau 2013 Jika anda ingin membuat Aplikasi berbasis Database dengan VB Net 2010 maka Pembelajaran kali ini adalah sangat penting sekali :)

Berikut langkah-langkahnya
1. Membuat Project Baru VB 2010 dan Menyimpannya
2. Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
3. Design Form, Masukan Koding dan Jalankan Program

#1 - Membuat Project Baru VB 2010 dan Menyimpannya

Pastikan anda sudah Install Visual Basic 2010 pada komputer anda,
Klik Start pada Windows
All Programs

Klik Microsoft Visual Studio 2010
Klik File - New - Project

Maka akan muncul :

Masukan Name, Location
Klik OK

Maka akan keluar Form1 (lihat gambar diatas)

#2 - Membuat Database Access 2007 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBBelajarvb.accdb
Buatlah sebuah Tabel dengan Nama : Barang
Berikut Design Tabel Barang :

Jangan lupa, sebagai contoh masukan data ditabel Barang agar nantinya bisa terlihat :)

Setelah selesai, simpan pada folder Bin / Debug

#3 -  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah

Design form diatas hanya ditambahkan DataGridView1

Masukan Koding dibawah ini :

Imports System.Data.OleDb
Public Class Form1
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
Conn = New OleDbConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DataGridView1.DataSource = (ds.Tables("Barang"))
End Sub
End Class

Jalankan Aplikasi anda :)

Salam,
BelajarVB.com