Koneksi Database Menggunakan Access

Kode program berikut untuk menghubungkan antara database dengan program visualmu (VB). Letakkan program ini dibagian modul utama, lalu simpan sesuai dengan keinginanmu sendiri, misal: MdlUtama.bas.
Sesuaikan nama database yang kamu butuhkan pada bagian kode yang aku tebalin yach,, pasti programmu akan langsung bisa jalan.


Option Explicit
Public KonekDb As New ADODB.Connection
Public StrKonekDb As String


Public Sub BukaDatabase()
Set KonekDb = New ADODB.Connection

StrKonekDb = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " _
& "Security Info=False;Data Source=" _
& App.Path + "\MiniMarketDb.mdb"

On Error Resume Next
If KonekDb.State = adStateOpen Then
KonekDb.Close
Set KonekDb = New ADODB.Connection
KonekDb.Open StrKonekDb
Else
KonekDb.Open StrKonekDb
End If
End Sub
Posted on 7:42 AM by Indah Indriyanna and filed under | 3 Comments »

3 komentar:

ruslan said... @ December 6, 2009 at 8:38 PM

keren....
tp kok komersil banget sih...
bukankah memberi ilmu yang bermanfaat akan tetap di hitung pada saat kita meninggal nanti?
beri ak ilmu dunk..
dan semoga bs ak manfaatkan dengan baik..
genolmayak@yahoo.com

gery said... @ February 8, 2010 at 3:14 PM

minimal ad deskripsi pembahasan/ scropt program nya tentang buku tersebut atuh....

gery said... @ February 8, 2010 at 3:19 PM

gak pake public2 gtu jg bisa kali.....
asal ada komponen adodc nya aja...pake odbc
ntar di form load ketik..
misal :
adodc1.recordsource="select *from t_Pelamar"
adodc1.recordset

terus aksi2 lainnya
bisa koq...eh loe pnya aplikasi DSS pake VB ga???
lo kan master program prosedural, kalo pake yang berorientasi objek bisa g???pake java, ato C++ gt???

Post a Comment

Kalo mau komentar harus sopan yach..!