Membuat Koneksi Vb.Net ke database Microsoft Access format Accdb

Assalamualaikum Wr wb.

Halooo..Sobat berjumpa Kembali bersama Wong Ndeso..ehehe

Kali ini saya akan membagikan Tutorial Bagaimana Cara membuat Koneksi Dari Vb.Net ke Database Microsoft Access berformat Accdb”.

Oke langsung saja ya.

Pertama agan Buka dulu Program Visual Basic nya ya.saya disini menggunakn Vbnet 2010.kalau agan belum punya download saja disini.

Oea program ini biasanya suka dipakai untuk TA ataupun Skripsi lo...hehe

Cekidottt.hahaha

Klik File >New >Project

Pada bagian Name Silahkan Sobat isi sesuai keinginan sobat.dan pada bagian file location silahkan tentukan mau disimpan dimana.

Setelah itu tinggal pulang,ehh maksudnya klik OK.hehhee

Setelah di Klik OK biasanya akan muncul satu form awal,sementara kita abaikan dulu.

Disini kita akan langsung membuat Koneksinya saja,dan kita akan membuat koneksinya menggunakan “Modul”

Klik Menu Project>Add Module berinama modul jika sobat mau menggantinya jika tidak ya buang saja.hehehe..abaikan saja maksudnya dan Klik OK.

Setelah itu Masukan Kodiing dibawah ini yaa ke dalam Modul tadi..atau Copas biar Cepattt.ehehe

Imports System.Data.OleDb

Module Module1

    Public cnn As OleDbConnection

    Public cmd As OleDbCommand

    Public Da As OleDbDataAdapter

    Public dr As OleDbDataReader

    Public ds As DataSet

    Sub koneksi()

        cnn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBpengiriman.accdb")

        cnn.Open()

    End Sub

End Module

Hasilnya akan seperti ini.hehhe

 “Note= Untuk Penyimpanan databasenya pastikan difolder Bin Debug Di Program Vbnetnya ya..

Untuk menguji berhasil tidaknya Koneksi mari kita buat sebuah Form Dengan tampilan Sebagai Berikut:

Caranya Klik Menu Project>Add Windows Form>Beri nama Test Koneksi>OK

Cari Ditoolbox Datagridview,dan Button

Ubah Name Datagridview  ke> DGV,Dock nya >Top(Diproperties Pojok Kanan)

Button1>Textya Rubah Ke >Test Koneksi,Docknya>Buttom(Diproperties Pojok Kanan)

Kemudian Double Klik pada Button1(Test Koneksi) dan masukan Koding dibawah ini.

Imports System.Data.OleDb

Public Class Test_Koneksi

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call koneksi()

        Da = New OleDbDataAdapter("Select *from Barang", cnn)

        ds = New DataSet

        ds.Clear()

        Da.Fill(ds, "Barang")

        DGV.DataSource = (ds.Tables("Barang"))

        DGV.ReadOnly = True

    End Sub

End Class

Jika Berhasil maka Hasilnya akan seperti ini....taraaaaa.hahha

“Note=( “Barang” adalah salah satu tabel yang ada didalam database DbPengiriman)

Okee sobat sudah beress ya..eittt kalau mau lebih lengkapnya lihat saja Video dibawah ini ya..!

Sekian dan terimakasih

Jika ada yang salah atau ingin ditanyakan silahkan koment ya,hehe

Wassalamualaikum....