How does one connect to an Oracle Database using OO4O as sysdba using VB 6? [message #154585] |
Mon, 09 January 2006 09:53 |
kishore_pen
Messages: 1 Registered: January 2006
|
Junior Member |
|
|
Hi,
Can any one give suggestion to connect an Oracle Database using OO4O as sysdba using VB 6.0.
For Eg:
Option Explicit
Dim m_oraSession As Object
Dim m_oraDatabase As Object
Private Sub Command1_Click()
Set m_oraSession = CreateObject("OracleInProcServer.XOraSession")
Set m_oraDatabase = m_oraSession.DBOpenDatabase("Database", "user/password", 0&)
MsgBox "Connected to " & m_oraDatabase.Connect & "@" & m_oraDatabase.DatabaseName
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set m_oraDatabase = Nothing
Set m_oraSession = Nothing
End Sub
Thanks & Regards,
Kishore.P
E-Mail: kishore_pen@yahaoo.com
|
|
|