Cara Koneksi Access 2010 Dengan VB 6.0

Pada Pembelajaran Visual Basic 6.0 kali ini kami akan menjelaskan cara koneksi Database 2010 dengan Visual Basic 6.0. Format Database access 2007 dan 2010 adalah sama yaitu sama-sama berextension .accdb sehingga jika anda membuat database dengan Microsoft Office Access 2007 atau 2010 anda bisa menggunakan Koneksi Pada Bab ini.

Pada Pembelajaran Visual Basic 6.0 kali ini kami akan menjelaskan cara koneksi Database 2007 dengan Visual Basic 6.0. Format Database access 2007 dan 2010 adalah sama yaitu sama-sama berextension .accdb sehingga jika anda membuat database dengan Microsoft Office Access 2007 atau 2010 anda bisa menggunakan Koneksi Pada Bab ini.

Berikut langkah-langkah dalam Membuat Koneksi Database Access 2007 atau 2010
Buka Komputer Anda
Klik Start pada Windows
Klik All Programs
Visual Basic 6.0
Standart EXE
OK
Simpan Pada Folder contoh "Belajar VB"
Buat Database dengan Nama : DBBelajarvb.accdb
Buat Tabel Barang Dengan Isi Seperti Gambar dibawah :
Simpan Database : Belajarvb.mdb pada Folder Project VB anda
Kami menyimpan pada Folder : Belajar VB

Kemudian buatlah Form dengan menambahkan Datagrid dan ADODC
Kemudian Klik Project
Preferences
Jika anda sudah Install Office 2007 atau 2010 pasti pada VB 6.0 akan muncuk seperti gambar dibawah :
Checklist : Microsoft Access 14.0 Object Library
Klik OK

Kemudian pada Form tersebut masukan Koding dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DBBelajarvb.accdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\DBBelajarvb.accdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Kemudian Run Program, seharusnya muncul seperti gambar dibawah :
 Dengan langkah diatas anda telah sukses membuat Koneksi VB 6.0 dengan Database Access 2007
Ikuti Terus Tutorial Visual Basic kami selanjutnya...

Subscribe to receive free email updates:

5 Responses to "Cara Koneksi Access 2010 Dengan VB 6.0"

  1. tanpa memanggil procedure BukaDB pun masih bisa memanggil data..Apa fungsinya procedure BukaDB?

    ReplyDelete
    Replies
    1. Hi Pengguna,
      Terima kasih telah berkomentar.
      Fungsi BukaDB adalah sebuah fungtion untuk memanggil database ada di path folder bersamaan dengan Project VB 6.0 yang dibuat.
      Melalui function tersebut maka tidak ketergantungan folder. artinya jika dibuka di dicopy di flasdisk dan dibuka dikomputer lain langsung bisa konek.
      Apakah cukup jelas atau ada sanggahan???

      Delete
  2. Terimakasih atas Ilmunya Bu Tutarni

    ReplyDelete
    Replies
    1. Hi Bambang,
      Sama sama, selamat belajar VB ya, semoga sukses :)

      Terima kasih

      Delete
  3. mw tanya ni ..
    saya membuat sebuah macro di ms acces 2013
    kemudian sy ingin menjalankan macro itu dari vb6
    ini code y saya pakai
    Sub accesdatabase()
    Dim A As Object
    Set A = CreateObject("access.application")
    With A
    A.opencurrentdatabase "E:emc.mdb"
    A.docmd.RunSavedImportExport "import-database"
    A.docmd.runmacro "import"
    End With
    Set A = Nothing
    MsgBox " Data Tersimpan"
    End Sub
    masalahnya saat du run muncul pesan
    axtivex cant create object.
    bagaimana cara mengatasinya.
    terimakasih..

    ReplyDelete