Diberdayakan oleh Blogger.

Minggu, 27 Januari 2013

Koneksi vb.net ke database microsoft access 2003/2007


'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