Article ID: 191515
Article Last Modified on 12/3/2003
Dim rdEnv As rdoEnvironment
Dim Cn As New rdoConnection
Dim Rs As rdoResultset
Private Sub Command1_Click()
Rs.AbsolutePosition = 5 'Or whatever.
MsgBox Rs.rdoColumns("custid")
End Sub
Private Sub Form_Load()
rdoErrors.Clear
Set rdEnv = rdoEnvironments(0)
With Cn
.CursorDriver = rdUseServer 'The problem cursor.
'.CursorDriver = rdUseOdbc 'This works OK.
.Connect = "uid=<MyUID>;pwd=<MyPassword>;dsn=<MyServer>"
.EstablishConnection rdDriverNoPrompt, False
rdEnv.rdoConnections.Add Cn
End With
Set Rs = Cn.OpenResultset("select custid from customer", _
rdOpenStatic)
End Sub
Keywords: kbbug kboracle kbdatabase kbdriver kbpending kbcode KB191515