Cara Koneksi Access 2010 Dengan VB 6.0

2:09:00 AM
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 :
Cara Koneksi Access 2010 Dengan VB 6.0
Dengan langkah diatas anda telah sukses membuat Koneksi VB 6.0 dengan Database Access 2010
Ikuti Terus Tutorial Visual Basic kami selanjutnya...

Silahkan KLIK DISINI untuk download source code diatas

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

5 komentar

Write komentar
Pengguna PHP
AUTHOR
September 18, 2015 at 12:32 AM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
September 18, 2015 at 12:52 AM delete

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???

Reply
avatar
Bambang Prime
AUTHOR
December 26, 2015 at 8:05 AM delete

Terimakasih atas Ilmunya Bu Tutarni

Reply
avatar
Tutarni Aliya
AUTHOR
January 6, 2016 at 8:53 PM delete

Hi Bambang,
Sama sama, selamat belajar VB ya, semoga sukses :)

Terima kasih

Reply
avatar
ahmad yani
AUTHOR
January 14, 2017 at 11:36 AM delete

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..

Reply
avatar