ADO (Active Data Object)

SOURCE: Database, Form dan Project
ADO (Active Data Object) berfungsi untuk mengakses dan mengolah database.
1. Buka VB6 pilih VB Enterprise Edition Controls
2. Buat object sbb pada form:

a. Datagrid1

3. Buat database (misal database access dengan nama db_mahasiswa di dalamnya ada tabel Table_Mahasiswa

4. Deklarasi untuk koneksi ke database dan table

Dim cn As ADODB.Connection 'Koneksi ke database
Dim rs As ADODB.Recordset 'Koneksi ke table/query

5. Memanggil database ketika form dibuka

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah\Semester II\Visual Basic II\05-15-09\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

6. Jalankan program.



Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 15 Mei 2009
Semester II STIKOM CKI Wijaya Kusuma