Sudah lama ngga update blog ini.. yang belum kenal.. nama saya Dimas Arie Prastyo, saya kelahiran 1990.. silahkan dipanggil bang, dek, gan atau apa saja.. yang penting akrab.
Langsung saja ke topik bahasannya, bagaimana cara menghubungkan Microsoft Visual Basic 6 ke Microsoft Access.
Pastikan di komputer kamu sudah terinstal Microsoft Visual Basic dan Microsoft Office tentunya (Access adalah bagian dari Microsoft Office), kalau saya pakai yang Access 2007.
Pertama buka dahulu si Microsoft Visual Basicnya , pilih yang Standard Exe aja ya.
Jangan lupa tambahin lagi modul ke dalamnya, karena di module itu nanti kita akan memasukkan coding yang akan menghubungkan si Visual Basic ke Microsoft Access 2007.
Cara nambahin modulnya : Menu Project -> Add Module -> Open , trus beri nama module yang baru mbrojol tadi (heheh :D) dengan nama MdlKoneksi (ini hanya kebiasaan saya memberi nama ke module)
Tambahin lagi sebuah form , Menu Project -> Add Form.
Tambahin juga Microsoft Activex Data Object dari : Menu Project -> References -> Microsoft ActiveX Data Objext xxx (pilih saja yang palin besar angkanya)
Lalu di Module tadi (MdlKoneksi) isikan coding berikut ini (terlebih dahulu kita sudah membuat file Accessnya ya :D)
'------ awal
Public Sub Main()
Set conn = New ADODB.Connection
'On Error GoTo Kesalahan
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\Database\db_AlatBerat.mdb;Jet OLEDB:Database"
Form1.Show '-- ini form yang kita tambahin tadi
Kesalahan:
If Err.Number = -2147467259 Then
MsgBox "Database tidak dapat diakses atau ditemukan!", vbCritical, "Koneksi Error"
End If
End Sub
'---- akhir
Lalu atur ketika di Run, mana yang akan di jalankan terlebih dahulu .. untuk itu kita pilih Sub Main yang ada MdlKoneksi dahulu yang akan jalan ketika di Run. Menu Project -> Project1 Properties -> Start Up Object pilih Sub Main.
Bingung prakteknya... nih saya kasih yang udah jadi : Download Disini
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :