assalamualaikum warahmatullahi wabarakatuh

Kali ini saya posting tentang koneksi vb menggunakan ADODB dengan database accsess, mungkin klw yang sudah tau.. g usah baca lagi.. buang2 waktu aja kali...heheheee :) , langsung aja ni… pertama adalah menambahkan reference ADODB ke project

Kemudian muncul jedela references

Pilih atau centang “Microsoft activex data objects 2.0 library” (seperti gambar di atas)

Lalu tambahkan modul project -> add module

Kalau modulenya sudah di tambahkan....  lalu ketikan code seperti ini

Public konekdb As New ADODB.Connection

Public rsmahasiswa As New ADODB.Recordset

Sub konnek()

On Error Resume Next

konekdb.CursorLocation = adUseClient

If konekdb.State = adStateClosed Then

konekdb.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mahasiswa.mdb;Persist Security Info=False")

    If konekdb.State = adStateClosed Then

        MsgBox "koneksi gagal"

    End If

End If

End Sub

Langkah selanjutnya tambahkan componen datagrid

Dan tambahkan datagrid ke form

Dan ketikan code di bawah ini…

Private Sub Form_Load()

Call konnek

Set rsmahasiswa = New ADODB.Recordset

rsmahasiswa.Open "select* from mahasiswa", konekdb, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = rsmahasiswa

End Sub

Dan Hasilnya seperti ini :

Catatan  : tulisan merah bias kalian ganti…

Properti-properti yang sering dipakai dalam ADO adalah sebagai berikut :

Constant	Description
ConnectionString	Berisi informasi yang digunakan untuk koneksi ke sumber data
CursorLocation	Menset atau mengembalikan nilai letak mesin kursor
Provider	Nama provider koneksinya
State	Menerangkan apakah objek status koneksi terbuka (open) atau tertutup (close)

Method yang sering digunakan adalah :

Constant	Description
Execute	Mengeksekusi Query tertentu yang berupa perintah SQL, Stored Procedure, Provider tertentu
Open	Membuka koneksi ke sumber data
Close	Menutup objek koneksi yang sedang terbuka dan membebaskan objek dari koneksi

Tipe kursor yang dapat didefinisikan adalah:

Nilai	Constant	Description
0	asOpenFowardOnly	Ini adalah bentuk default. Tipe ini tidak mengandung method MoveNext, MovePrevious, MoveLast, MoveFirst dan RecordCount. Efisien digunakan untuk mengambil data yang berurutan
1	adOpenKeyset	Tipe ini memperbolehkan semua gerakan pointer pada recordset. Perubahan data seperti penambahan data, pengeditan data dan penghapusan data yang dilakukan oleh user lain masih dapat dilihat
2	adOpenDynamic	Tipe ini memperbolehkan semua gerakan pointer pada recordset, dapat melihat perubahan data seperti penambahan data, pengeditan data dan penghapusan data yang dilakukan oleh user lain.
3	adOpenStatic	Tipe kursor ini membuat salinan statis recordset yang diambil. Pada tipe ini segala penambahan, peruahan dan penghapusan data yang dilakukan oleh user lain tidak dapat dilihat.

Tipe Lock yang digunakan untuk mengunci record yang sedang digunakan pada recordset. Berikut macam tipe penguncian cursor pada ADO.

Nilai	Constant	Description
1	adLockReadOnly	Tidak memperbilehkan user untuk melakukan perubahan data
2	adLockPermistic	User lain tidak boleh mengganti data selama user masih dalam method penggantian data
3	adLockOptimistic	User lain tidak dapat melakukan perubahan data hanya saat user dalam metode update
4	adLockBatchOptimistic	Metode ini digunakan untuk memberitahu recordset agar melakukan update database setiap kali terjadi perubahan data

Parameter digunakan untuk menentukan bentuk sumber data yang diambil, Text, Stored Procedure, Tabel atau yang lain:

Nilai	Constant	Description
1	adCmdText	Mendefinisikan command bebentuk Text, dapat berupa String SQL
2	adCmdTable	Sumber data berbentuk Tabel
3	adCmdStoredProcedure	Sumber data adalah StoredProcedure
4	adCmdUnknown	Dapat dipakai untuk semua bentuk Command tapi jika sudah tahu secara spesifik disarankan menggunakan pemilihan secara langsung