Ketemu lagi ya sobat hehe :D apa sobat bingung bagaimana cara mengkoneksikan vb dengan ms.acces ya ?
Baiklah sobat disini saya akan membagikan artikel tentang bagaimana cara mengkoneksikan vb dengan microsoft acces beserta kodingnya, dan kali ini saya menggunakan ms.acces 2007 ya sobat, yuk langsung aja Simak.
-Pertama Sobat Buat Dulu Database Sobat Terserah Namanya apa, Tabelnya apa dan fieldnya apa. karena disini saya menggunakan nama database "test" dan nama table nya "tbltest". Setelah itu Sobat isi fieldnya terserah sobat apa aja supaya bisa dengan gampang membuktikan apakah database dengan vb benar2 terkoneksi dengan tampilnya isi record sobat.
- Setelah Sobat telah selesai membuat database langsung saja buka aplikasi vb sobat dan buatlah sebuah project baru terserah apa namanya. Di desain form sobat langsung aja letakkan "ListView" dari menu toolbox sobat dan ganti name listviewnya menjadi "LV" agar memudahkan sobat mengingat namanya. Peletakan Listview ini bertujuan agar sobat bisa melihat langsung isi field dari database yang sobat buat tadi.
- Setelah Semua selesai langsung Save project vb sobat dengan menekan tombol Home yang ada dipojok kiri atas lalu save all. Bila aplikasi sobat belum pernah dirubah tempat penyimpanannya biasanya project sobat tersimpan di "C: User, COMPUTER, my documents,visual studio 2008,project"
-Setelah project sobat ketemu langsung aja copy kan Database Sobat kedalam Folder project sobat, buka bin, debug dan paste kan database sobat disini. ini bertujuan agar sobat tidak bingung saat membuat coding untuk mengkoneksikan vb sobat dengan databasenya.
- Langkah Selanjutnya atur penempatan fieldnya agar tertata rapi di listview sobat, ikuti gambar dibawah ini:
-Klik saja tombol add, lalu pada tulisan "column header" yang saya lingkari dibawah ini rubahlah menjadi isi table sobat tadi, kalau bisa sesuaikan dengan urutan yang ada pada table sobat agar tidak berserakan nantinya.
-karena saya tadi membuat 4 field pada table yang saya buat maka seperti gambar dibawah inilah jadinya nanti.
- jika Sobat selesai meletakkan apa saja yang mau ditampilkan pada List view sobat, maka sobat ikuti gambar dibawah ini, sobat harus ubah tulisan largeicon menjadi Detail.
-Nah sekarang sobat udah bisa menampilkan apa saja yang sudah sobat masukkan kedalam listview sobat dan sobat tinggal merapikan saja dengan cara tarik garis yang ada pada isi listview sobat.
-jika sobat telah selesai merapikannya maka sobat perlu menambahkan Module pada project sobat, ikuti instruksinya pada 2 gambar dibawah ini ya sobat dengan cara klik kanan project sobat.
- Gambar dibawah Ini adalah Koding module untuk mengkoneksikan vb dengan database sobat. dan yang saya lingkari dibawah ini adalah nama database yang saya gunakan, sobat tinggal ganti sesuai nama database yang sobat buat. dibawah gambar saya meletakkan syntax untuk modulenya agar Sobat tinggal copas dengan mudah tanpa harus capek meniru gambar dibawah ini.
Imports System.Data.OleDb 'ini diperlukan untuk mengimport data dari acces ke vb'
Module Module1
Public Conn As OleDbConnection
Public DA As OleDbDataAdapter
Public DS As DataSet
Public Cmd As OleDbCommand
Public DR As OleDbDataReader
Public Str As String
Public Sub Koneksi()
Str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = test.accdb"
Conn = New OleDbConnection(Str)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub
End Module
- Setelah Selesai Sekarang kembali kedesain form sobat dan klik 2x apa saja yang ada pada form desain sobat. lingkaran merah dibawah ini dimaksudkan sebagai nama table sobat dan sobat hanya tinggal ubah saja nama tablenya lalu dibawahnya lagi ada yang bertuliskan (nirm),(nama),(alamat),(jenis kelamin) tinggal sobat ubah sesuai dengan isi table sobat.
dibawah gambar saya meletakkan syntaxnya dan tinggal sobat copas aja :D
Imports System.Data.OleDb
Public Class Form1
Sub tampil()
Cmd = New OleDbCommand("Select * From tbltest order by nama", Conn)
DR = Cmd.ExecuteReader
Dim x As Integer = 0
LV.Items.Clear()
While DR.Read
LV.Items.Add(DR("Nirm"))
LV.Items(x).SubItems.Add(DR("nama"))
LV.Items(x).SubItems.Add(DR("alamat"))
LV.Items(x).SubItems.Add(DR("jenis kelamin"))
x = x + 1
End While
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Koneksi()
Call tampil()
End Sub
End Class
- Setelah semua Sudah beres maka langsung jalankan saja dan hasilnya akan seperti pada gambar dibawah ini :
Oke cara mengkoneksikan vb dengan database ms acces sobat telah beres, dan semoga artikel yang saya beri bermanfaat bagi Sobat ya :D
Wassalamualaikum :)
