RDO Resultset

From: Matthew O'Byrne <Iridium_at_netcomuk.co.uk>
Date: Fri, 24 Apr 1998 12:37:00 GMT
Message-ID: <6hq19l$qsu$1@taliesin.netcom.net.uk>

Please Help.
When I try to use AddNew&Update on an RDO resultset I get the error message :

'[ODBC Oracle Driver] Driver not capable' Using an INSERT SQL statment directly works fine.

regards - Charlie

Example code follows ...

Public Function CELTest()

    Dim Environment As rdoEnvironment
    Dim CNModules As rdoConnection
    Dim RSUsers As rdoResultset

On Error GoTo CELTest_Error

Set Environment = rdoEngine.rdoEnvironments(0) Set CNModules = Environment.OpenConnection("", , , G_sModulesConnect)

'This works fine for Oracle
CNModules.Execute ("insert into Users values (1,'CEL3', '', '', '', '')")

'This does not work for Oracle
Set RSUsers = CNModules.OpenResultset("SELECT * FROM Users", rdOpenKeyset, rdConcurRowVer)

RSUsers.AddNew

    RSUsers("Id") = 1
    RSUsers("UserId") = "CEL"
' RSUsers("Name") = "2" ' Not required items ...
' RSUsers("Password") = "3"
' RSUsers("Loggedin") = 4
' RSUsers("jobgroupid") = 5

    RSUsers.Update
    RSUsers.Close
    CNModules.Close

CELTest = True
GoTo CELTest_Exit

CELTest_Error:

Screen.MousePointer = vbDefault

' trapping expected errors Err_CouldNotLock , Err_CouldNotUpdate, Err_CouldNotSave, Err_CouldNotRead. Select Case Err

        Case 3262, 3212, 3211, 3009, 3261, 3188, 3164, 3218, 3260, 3202, 3186, 3046, 3187
        If MsgBox("Lock Failed Press Retry To Try Again", vbRetryCancel + vbQuestion, G_APPNAME) = vbRetry Then
            DBEngine.Idle [dbFreeLocks]
            Resume
        End If
    End Select

MsgBox Err.Number & " " & Err.Description, vbOKOnly + vbCritical, G_sMessage GoTo CELTest_ErrorExit

CELTest_ErrorExit:

On Error Resume Next
CELTest = False
CELTest_Exit:

End Function Received on Fri Apr 24 1998 - 07:37:00 CDT