[VB] ADO Database Programming Metoda Scripting

Mungkin bagi teman-teman yang baru mempelajari database programming dengan ADO pada VB6
cenderung lebih sering menggunakan control Adodc pada toolbar
(). Tidak ada salahnya sih menggunakan
control tersebut, dalam hal ini anda melakukan koneksi ke database pada saat design-time. Lalu bagaimana caranya anda
melakukan koneksi ke database saat run-time (saat program berjalan). Dalam hal ini anda harus melakukan koneksi pada database
dengan metode "Scripting". Konsepnya sama, pertama anda harus membuat koneksi terlebih dahulu dengan cara
menentukan property ConnectionString, lalu menentukan RecordSource, dan sebagainya. Saya juga sempat kebingungan
bagaimana cara membuat koneksi ke database pada saat run-time, tetapi ternyata caranya cukup mudah, kali ini saya akan menjelaskan
dua cara membuat koneksi ke database dengan metode scripting.

Cara 1

1. Membuaka koneksi dengan ConnectionString
2. Membuat RecordSet bedasarkan perintah (SQL) dan koneksi yang tadi kita buat

Contoh:

Dim adoCon As ADODB.Connection
Dim adoRec As ADODB.Recordset

'Membuka koneksi
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet." & _
"OLEDB.4.0;Data Source= E:\Source Codes\VB6 Project\SPU\Unsur.mdb" _
& ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"

'Membuat recordset
Set adoRec = New ADODB.Recordset
adoRec.Open "SELECT * FROM [Nama Tabel] ORDER BY [Field]", adoCon, adOpenStatic, , adCmdText

Cara 2

1. Membuaka koneksi dengan ConnectionString
2. Membuat object perintah (ADODB.Command)
3. Mengisi property pada object perintah tadi
4. Membuat RecordSet dengan cara mengeksekusi object perintah tadi

Contoh:

Dim adoCon As ADODB.Connection
Dim adoRec As ADODB.Recordset
Dim adoCmd As ADODB.Command

'Membuka koneksi
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet." & _
"OLEDB.4.0;Data Source= E:\Source Codes\VB6 Project\SPU\Unsur.mdb" _
& ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"

'Membuat object perintah (ADODB.Command) & Mengisi property pada object perintah tadi
Set adoCmd = New ADODB.Command
Set adoCmd.ActiveConnection = adoCon
adoCmd.CommandType = adCmdText
adoCmd.CommandText = "SELECT * FROM [Nama Tabel] ORDER BY [Field]"

'Membuat RecordSet dengan cara mengeksekusi object perintah
Set adoRec = adoCmd.Execute

Mudah bukan?, menurut saya cara yang paling sederhana adalah cara ke 1. Karena tidak terlalu ribet. Jangan Lupa Komentar Yaa..