Berikut ini adalah cara mudah dalam membuat koneksi microsoft acces 2003 dengan visual basic net 2010.
Pertama buat dahulu project form1 dan masukkan datagrid view ke dalam form1, setelah itu buatkan databasenya microsoft acces 2003 dengan format ext .mdb, simpan pada Bin / Debug.
Setelah databasenya dibuatkan, klik dua kali pada form1nya dan masukkan coding 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.jet.oledb.4.0;data source=db_barang.mdb"
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
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.jet.oledb.4.0;data source=db_barang.mdb"
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 aplikasinya :)
Sekian
artikel tentang membuat program koneksi microsoft acces 2003 dengan
visual basic net 2010, semoga bermanfaat,jangan lupa koment :)
Salam Mahasiswa Sekolah Tinggi Ilmu Komputer Medan
Salam Mahasiswa Sekolah Tinggi Ilmu Komputer Medan
