Makasih mas
Taufik wrote:
> 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]
