Hi John,

Would this be the same as SQL Server where action queries have to be 
run in a stored procedure?

Regards
Robin.


--- In [email protected], "John Viescas" <[EMAIL PROTECTED]> wrote:
> Is AR_CWP a table or a view?  If it is a view, is it updatable?  
And do you
> have update authority to it?
> 
> John Viescas, author
> "Building Microsoft Access Applications"
> "Microsoft Office Access 2003 Inside Out"
> "Running Microsoft Access 2000"
> "SQL Queries for Mere Mortals"
> http://www.viescas.com/
>  
> 
> -----Original Message-----
> From: [email protected] [mailto:[EMAIL PROTECTED] 
On Behalf
> Of programphandhoe
> Sent: Monday, August 22, 2005 4:04 AM
> To: [email protected]
> Subject: [ms_access] UPDATING ORACLE RECORDSET FAILED
> 
> Hi Guys,
> 
> i'm trying to update some of my record in my Oracle Database, but 
failed.The
> error message says that the provider may not support updating or 
locktype
> does not support updating.
> PLEASE HELP ME!
> 
> here is the code:
>     Dim my_Conn As ADODB.Connection
>     Dim rs As ADODB.Recordset
>     Set rstns = CurrentDb.OpenRecordset("select tns from TTNS")
>     tnse = rstns("tns")
>     strConnString = "Provider=MSDAORA.1;User ID=sap;Data Source=" 
& tnse &
> ";Persist Security Info=False;Password=sap;" 'ORACLE SIP DJP 
tested ok
>     Set my_Conn = New ADODB.Connection
>     my_Conn.Open strConnString
>         
>     Set RSLOKAL = CurrentDb.OpenRecordset("select * from STATUS")
>     If RSLOKAL.BOF Then
>     Exit Sub
>     Else
>         Do While Not RSLOKAL.EOF
>             Set rs = New ADODB.Recordset
>             strsql = "Select * from AR_CWP where KD ='" & Me.KODE 
&"'"
>             rs.CursorType = adOpenKeyset
>             rs.LockType = adLockOptimistic
>             rs.Open strsql, my_Conn, , , adCmdText
>             If rs.BOF Then
>             Else
>                 rs.Fields("NO") = Me.NOB
>                 rs.Fields("KDX") = Me.KDX
>                 rs.Update
>                 rs.Close
>                 Set rs = Nothing
>             End If
>                
>         RSLOKAL.MoveNext
>         Loop
>         
>         Me.status = Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr
(13) &
> Chr(10) & Chr(13) & Chr(10) & _
>         "FINISH..."
>    End If
> 
> 
> 
> 
> 
> ------------------------ Yahoo! Groups Sponsor --------------------
~-->
> <font face=arial size=-1><a
> 
href="http://us.ard.yahoo.com/SIG=12hkhfar2/M=362131.6882499.7825260.
1510227
> /D=groups/S=1705115370:TM/Y=YAHOO/EXP=1124708644/A=2889191/R=0/SIG=
10r90krvo
> /*http://www.thebeehive.org
> ">Get Bzzzy! (real tools to help you find a job) Welcome to the 
Sweet Life
> - brought to you by One Economy</a>.</font>
> -------------------------------------------------------------------
-~-> 
> 
>  
> Yahoo! Groups Links




------------------------ Yahoo! Groups Sponsor --------------------~--> 
<font face=arial size=-1><a 
href="http://us.ard.yahoo.com/SIG=12h6obl65/M=362329.6886308.7839368.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1124814804/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</a>.</font>
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/ms_access/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Reply via email to