'Koneksi vb.net ke database microsoft access 2003/2007 Copy Syntac ini dan paste kan didalam modul1 project anda
Imports System.Data.OleDb
' -------------------------
Module Module1
Public Function Koneksi() As OleDbConnection
'koneksi database 2003 tanpa password
'Dim kon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\pegawai.mdb;persist security info=false;"
'koneksi database 2003 pake password
'Dim kon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\pegawai.accdb;Jet OLEDB:Database Password=123"
'koneksi database 2007 pake password Dim kon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\pegawai.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123;"
Dim konek As New OleDbConnection(kon)
konek.Open()
Return konek
End Function
End Module
' -------------------------' Setelah itu tambahkan perintah ini ke dalam prosedure form_load pd form anda, jangan lupa untuk meletakan 1 buah component OleDbConnection1
Dim Adapter As New OleDbDataAdapter("select * from tbgaji order by kode asc", Module1.Koneksi)
Dim dt As New DataTable("tbgaji")
Adapter.Fill(dt)
DataGridView1.DataSource = dt 'Menampilkan Data Ke dalam DataGridView1
-->> Semoga Bermanfaat
-->> Lanjut Ke Koneksi Mysql
0 komentar
Posting Komentar