Robin- You're trying to open a simple SELECT query on AR_CWP - but if AR_CWP is an "action" query, you must execute it, not open a SELECT on it. I'm not that familiar with Oracle, so I don't know whether "action" queries are saved a procedures.
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 Robin Sent: Tuesday, August 23, 2005 9:32 AM To: [email protected] Subject: [ms_access] Re: UPDATING ORACLE RECORDSET FAILED 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 ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hqgi149/M=362131.6882499.7825260.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1124822574/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 <*> 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/
