Membuat koneksi database tanpa objek di vb

Langsung aja ya…

Dalam pembahasan ini databasenya saya pake access

1. Aktifkan microsoft activex data objects 2.8 library di menu Project-Reference..
2. Ambil komponen adodc (microsoft ado data control 6.0 (OLEDB) di Component (Ctrl+T) dan letakkan di form
3. Masuk form load, dan buat variabel global 

dim conn as ADODB.connection ‘variabel koneksi

dim rskasir as ADODB.recordset ‘variabel penerjemah koneksi

 

ketik di area form load di bawah ini:

dim  str as string

‘mengeset koneksi dan recordset

Set conn=new ADODB.connection

Set rskasir=new ADODB.recordset

 

‘buka database

Str=” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database\master.mdb;Persist Security Info=False”

Conn.open str

Rskasir.activeconnection=str

Rskasir.open “Kasir” ‘membuka tabel kasir

 

Note:

Buka database di ambil dari adodc tadi (adodc-connection string) saya kira anda sudah tidak asing lagi untuk hal ini.

Agar database dibaca di folder manapun,anda rubah menjadi app.path sehingga menjadi

Str=” Provider=Microsoft.Jet.OLEDB.4.0;Data Source= “ & app.path “ &\ database\master.mdb;Persist Security Info=False”

 

1. Sekarang database anda sudah terkoneksi,silahkan dikembangkan sendiri. OK