OO4O Problem
Date: 1997/12/01
Message-ID: <348307BD.168C_at_bigfoot.com>#1/1
[Quoted] Hi all,
I'm trying the OO4O 2.2 beta and find error : Runtime error 91, object
variable not set. Please help
email : mike.chan_at_bigfoot.com
Below is the codes:
Sub test()
'Declare variables as OLE Objects.
Dim OraSession As Object
Dim OraDatabase As Object
Dim OraDynaset As Object
'Create the OraSession Object.
' Set OraSession = CreateObject("OracleInProcServer.XOraSession")
'Set up an error handler.
On Error GoTo errhandler
'Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.DbOpenDatabase("ExampleDb", "scott/tiger",
0&)
'Attempt to Create the OraDynaset Object.
'Notice that the FROM keyword is missing from the SQL statement.
Set OraDynaset = OraDatabase.DbCreateDynaset("select * emp", 0&)
Exit Sub
errhandler:
'Check to see if an Oracle error has occurred.
If OraDatabase.LastServerErr <> 0 Then
MsgBox OraDatabase.LastServerErrText
Else 'Must be some non-Oracle error
MsgBox "VB:" & Err & " " & Error(Err)
End If
Exit Sub
End Sub Received on Mon Dec 01 1997 - 00:00:00 CET