Pertama, buat sebuah project dan form Visual Basic 6.0, kemudian definisikan nama untuk variabel koneksi, recordset, dan koneksi string. Pada contoh ini data connection yang digunakan adalah ADODB yang terdapat dalam Microsoft ActiveX Data Object 2.1 Library. Untuk menambahkan object ini pada project Anda, buka menu ‘Project’ pilih ‘References’ dan set Reference ke Microsoft ActiveX Data Objects 2.1 Object Library.

Public DB As ADODB.Connection
Public RecSt As ADODB.Recordset
Public ConnString As String

Kemudian buat sebuah procedure untuk koneksi ke Oracle Database, untuk procedure koneksi seperti biasa :) Anda harus mengisikan user name (schema), password dan service name untuk dapat mengakses database.

Sub KoneksiToOracleDB()
  ConnString = "Provider=MSDAORA.1;User ID=" & TxtUser.Text & ";Data Source=" & _ TxtService.Text & ";Password=" & TxtPWD.Text & ";"
  Set DB = New ADODB.Connection
  DB.CursorLocation = adUseClient
  DB.Open ConnString
  If DB.State = 1 Then
    MsgBox "Login sukses", vbInformation, "Informasi"
  Else
    MsgBox "Login gagal", vbCritical, "Perhatian"
  End If
End Sub

Selanjutnya gunakan perintah dibawah ini untuk mengetahui nama tabel dan view yang terdapat dalam schema yang telah ditentukan. Adapun cara dibawah ini memanfaatkan perintah ‘OpenSchema’ yang terdapat dalam ADODB.

Set RecSt = DB.OpenSchema(adSchemaTables, Array(Empty, TxtUser.Text, Empty,"TABLE"))
If RecSt.RecordCount <> 0 Then RecSt.MoveFirst
For A = 1 To RecSt.RecordCount
  ListObj.AddItem "Tabel - " & Trim(RecSt!Table_Name)
  RecSt.MoveNext
Next A

Set RecSt = DB.OpenSchema(adSchemaTables, Array(Empty, TxtUser.Text, Empty, "VIEW"))
If RecSt.RecordCount <> 0 Then RecSt.MoveFirst
For A = 1 To RecSt.RecordCount
  ListObj.AddItem "View - " & Trim(RecSt!Table_Name)
  RecSt.MoveNext
Next A

Demikian sedikit pengetahuan yang dapat penulis bagikan melalui kesempatan kali ini. Semoga bermanfaat bagi pembaca semuanya. Pertanyaan, kritik dan saran dapat disampaikan melalui e-mail arifinazhari@yahoo.com atau Yahoo! Messenger ID: arifinazhari. Untuk membaca tulisan menarik lainnya silakan menuju ke situs Sony AK Knowledge Center dengan alamat di www.sony-ak.com.

Silakan download source code lengkap dari project di atas

Terima kasih.