Koneksi VB6 dengan Database Oracle (ODBC)

Sesuai janji ane di postingan sebelumnya, kali ini ane mau coret coret caranya Koneksi VB6 dengan Database Oracle menggunakan ODBC.
Ane cuma mau coret coret cara koneksinya ya gan, sesuai judul. untuk instalasi Oracle ataupun Oracle Client untuk ODBCnya saya anggap kalian udah bisa ya. Ane ga sempet bikin tutorial installnya, so sibuk.. hihi...

Kalo udah ada Oracle Client atau Oracle ODBC nya, Langsung aja...

Setting ODBC
Start - Control Panel - Administrative Tools - Data Sources (ODBC), atau
Start - Run - ketik "odbcad32"


Klik Add - Pilih Oracle in OraHome92, ini sesuaikan Oracle Client / Oracle ODBC yang telah terinstall.

Disini saya kasih nama ODBC nya "ARIEF-ORA"
Test Connection bila dirasa perlu apakah berhasil atau tidak koneksi ODBC dengan Database Oracle nya. masukan password. jika berhasil akan ada message seperti ini "Connection Successfull".


 Lanjut ke coding VB6....

New Project, Buat Module Seperti ini

Public Con As New ADODB.Connection
Public RsGet As New ADODB.Recordset
Public sql As String

Public Sub Open_Connection()
On Error GoTo Hell
Set Con = New ADODB.Connection
Con.CursorLocation = adUseClient
Con.Open "DSN=ARIEF-ORA;UID=username;PWD=password;"
Exit Sub
Hell:
   MsgBox "Koneksi Gagal..!", vbCritical, "Error"

End Sub

Ganti yang di bold tebal sesuai data yang udah dibuat.. selanjutnya tinggal pemanggilan di formnya... simpel cuma  Call Open_Connection , contoh mau di pasang ketika form di load.

Private Sub Form_Load()
    Call Open_Connection
End Sub

Kalau ga ada pesan error berarti berhasil gan.. yeeee.... 
Dibawah ini contoh capture pengambilan data sederhana ketika sudah berhasil koneksi...
VB6 + Oracle9i

#MetNgoding

Previous
Next Post »

Silahkan Tulis Komentar Anda disini... ConversionConversion EmoticonEmoticon