Oracle FAQ Your Portal to the Oracle Knowledge Grid
HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US
 

Home -> Community -> Usenet -> c.d.o.misc -> RDO Resultset and Oracle

RDO Resultset and Oracle

From: Matthew O'Byrne <Iridium_at_netcomuk.co.uk>
Date: Fri, 24 Apr 1998 12:20:13 GMT
Message-ID: <6hq0a6$qc3$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("", , , Environment)     

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

    'The Update that follows this generates the error     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:20:13 CDT

Original text of this message

HOME | ASK QUESTION | ADD INFO | SEARCH | E-MAIL US