Koneksikan Oracle menggunakan ODBC dengan Pemograman VB

Pada postingan ini saya akan membahas cara mengkoneksikan database oracle ke program yang akan kita buat dengan mengunakan VB via ODBC dan Connection String.


Kita akan mengisikan kode pada tombol "Connection ODBC" dan "Connection String" yang telah kita buat pada form.

berikut adalah kode listingnnya:

1. Tombol Connect ODBC
Private Sub cmdConnectODBC_Click()
On Error GoTo erhan
Dim Objcnn As New ADODB.Connection
Dim SQLString As String
SQLString = “DSN= JhoeORA;UID=jhoe;PWD=Killme;”
Objcnn.Open SQLString
Objcnn.CommandTimeout = 0
MsgBox “Sucess”
Exit Sub
erhan:
MsgBox Err.Description
End Sub

Kode diatas dapat dijalankan dengan asumsi kita sudah membuat ODBC data sourcenya dengan Nama:JhoeORA

2. Tombol Connection String

Private Sub CmdConStr_Click()
On Error GoTo erhan
Dim Objcnn As New ADODB.Connection
Dim SQLString As String
SQLString = “Provider=OraOLEDB.Oracle.1;Password=itonly;Persist Security Info=True;User ID=jhoe;Data Source= JhoeORA”

Objcnn.Open SQLString
Objcnn.CommandTimeout = 0
MsgBox “Sucess”
Exit Sub
erhan:
MsgBox Err.Description
End Sub

Kode diatas adalah menjelaskan cara untuk mengkoneksi database oraclenya dengan Nama : :JhoeORA
Untuk lebih lengkap anda bisa mendownload filenya
disini

Artikel yang berkaitan