Tidaklah sulit membuat koneksi dari VB.net 2005 dengan Ms. Access 2003. Dimulai dari membuat project baru (lihat gambar disamping).
- Saya memberi nama project ini dengan VB.net_MsAccess03, untuk kalian silahkan beri nama project kalian sesuai keinginan.
- Kemudian simpan project tersebut pada folder yang telah kalian tentukan.
- Setelah selesai buka Ms. Access
- Buat file baru dengan nama Db_Perpustakaan, dengan format .mdb
- Simpanlah file tersebut bersama file VB tadi, masukan file ini ke dalam folder: VB.net_MsAccess03\bin\Debug
- Sekarang kembali ke Ms. Access, buatlah tabel dengan nama : Tb_Buku dengan strukturnya di sesuaikan.
- Simpanlah dan tutup Ms. Access.
- Buka kembali project yang tadi.
- Buatlah form dengan nama Buku. Desain tampilannya kurang lebih seperti ini.
- Sekarang membuat koneksinya ke database.
- Langkah pertama, pilih Data – Add New Data Source pada menu bar.
- Next
- Pilih New Connection.
- Kemudian pilih Browse untuk mengambil file Access tadi.
- Jika sudah ditemukan, klik Open.
- Sekarang pertahitan gambar di bawah ini.
- - Data Source : Microsoft Access Database File (OLEDB).
- - Database File Name : Otomatis menyesuaikan setelah file database telah dipilih.
- Setelah itu lakukan Test Connection (lihat yang no. 1 pada gambar).
- Jika sukses pilih Ok.
- Next.
- Terakhir, jangan lupa ceklis Table dan View-nya.
- Finish.
- Nah, sekarang tinggal langkah terakhir yaitu memasukan coding. Silahkan Copy codingnya aja :D
Imports
System.Data.OleDb
Public Class Buku
Dim conn As OleDbConnection
Dim cmmd As OleDbCommand
Dim dr As OleDbDataReader
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim str,
sql As String
Dim v As Boolean
Sub
Koneksi()
str = "Provider=Microsoft.Jet.Oledb.4.0;Data
Source=Db_Perpustakaan.mdb"
conn = New
OleDbConnection(str)
If
conn.State = ConnectionState.Closed Then
conn.Open()
End Sub
Sub Baca()
da = New
OleDbDataAdapter("Select * From Tb_Buku",
conn)
ds = New
DataSet
ds.Clear()
da.Fill(ds, "Tb_Buku")
DGV.DataSource = (ds.Tables("Tb_Buku"))
End Sub
Private Sub Buku_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Koneksi()
Reset()
End Sub
Sekian.. Semoga bermanfaat untuk teman2 yang baru belajar VB.net 2005 ;)
Jangan lewatkan juga tutorial untuk koneksi ke Access 2007.
Posting Komentar