1. Pastikan Client Oracle sudah terinstall dengan baik di station
tersebut, misalnya UserID = "TUKULL" Password = "arwana"
2. ODBC, System DSN harus diseting (dari control panel), misalnya kita
kasih nama "empatmata"
3. Di Project Reference, tambahkan:
Microsoft Remote Data Object 2.0 (MSRDO20.DLL) dan
Microsoft Data Source Interfaces (msdatsrc.tlb)
Untuk konek ke database oracle gunakan script dibawah ini..
'Pada saat project dijalankan, OpenOracle diaktifkan untuk membuka
koneksi database
Public gOraConn As rdoConnection
Private En As rdoEnvironment
Private Sub OpenOracle()
On Error GoTo ErrHandler
Dim Conn As String
Conn = "UID=TUKULL;PWD=arwana;driver={Microsoft ODBC Driver for
Oracle};" _
& "CONNECTSTRING=MyOracle;"
Set En = rdoEnvironments(0)
Set gOraConn = En.OpenConnection("empatmata", False, False, Conn)
Exit Sub
ErrHandler:
If Err <> 0 Then
Err = 0
End If
End Sub
........................
itu baru konek database saja, kalo mau Open Recordset:
'Diaktifkan pada Form_Load() event
Private oRS1 As rdoResultset
Private Sub OpenTable() 'Misalnya
Dim vString as String
vString = "SELECT UserID, Password FROM M_User WHERE IsActive = 1
ORDER BY UserID"
Set oRS1 = gOraConn.OpenResultset(vRs, rdOpenStatic, ReadOnly,
rdExecDirect)
If oRs1.RowCount > 0 Then
Msgbox "Tabel User berhasil dibuka" & vbCr & _
Str(oRs1.RowCount) & " data ditemukan" & vbCr & _
"Selanjutnya terserah Anda", 64
'Commands
oRs1.Close
End IF
End Sub
semoga membantu...
F
--- In [email protected], Setyo H <[EMAIL PROTECTED]> wrote:
>
> Temen2, saya mau nanya nih,
> Gimana caranya koneksi ke oracle dengan VB ya?
> Terima kasih
>
[Non-text portions of this message have been removed]
