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
<*> 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/
