Oracle – Visual Basic (1) – Hujan Gerimis

kalo kata lagunya Alm Bang Ben , “Eh ujan gerimis aje.. ikan teri di asinin, eh jangan menangis aje, yg pergi jangan di pikirin ..” trus hubungannya ama oracle apa yak!! sumpah gak ada !!! huehuehuehue, tapi setidaknya ditengah banjir2 gini.. nyari ilmu harus jalan terus .. Pada posting ini saya coba tuliskan cara koneksi VB ke Oracle via ODBC dan Connection string . Berikut Selengkapnya :

Coba buat form seperti berikut :


Kita akan mengisikan kode pada Tombol “Connect ODBC” dan “Connection String”
1. Tombol Connect ODBC
Private Sub cmdConnectODBC_Click()
On Error GoTo erhan
Dim Objcnn As New ADODB.Connection
Dim SQLString As String
SQLString = “DSN=RyanOra;UID=ryan;PWD=Killme;”
Objcnn.Open SQLString
Objcnn.CommandTimeout = 0
MsgBox “Sucess”
Exit Sub
erhan:
MsgBox Err.Description
End Sub
Kode diatas dapat dijalankan,d engan Asumsi, Kita sudah membuat ODBC data sourcenya dengan Nama : RyanORa
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=ryan;Data Source=ORARYAN”
Objcnn.Open SQLString
Objcnn.CommandTimeout = 0
MsgBox “Sucess”
Exit Sub
erhan:
MsgBox Err.Description
End Sub
Kode diatas menerangkan, cara koneksi untuk ke database oracle :RYANORA