Current Recordset does not support updating

[AAKK]

Hi Anyone help?

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/anata/Send_OrderList.asp, line 102

My Code as below

<% 
 
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
rsTimekey.AddNew                                 (This is line102)
rsTimekey("Timekey")=TimeKey
For Each fld in rsTimekey.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rsTimekey.Update
rsTimekey.Requery
rsTimekey.Filter= "Timekey='" & TimeKey & "'"
Session("OrderID")=Session("OrderID")
end if

[GazMathias]

You need to use a locktype that supports updating in the ADO recordset.open method, the default is read only.

Example

rs.open SQL,conn,1,2
 

Hope that helps.

Gaz

[AAKK]

Hi Thank for your reply
sorry I m new for this asp
May i know where to put this code?

I try to rewrite the code to below
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAM E")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
rsTimekey.open SQL,conn,1,2
rsTimekey.AddNew

rsTimekey("Timekey")=TimeKey
For Each fld in rsTimekey.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rsTimekey.Update
rsTimekey.Requery
rsTimekey.Filter= "Timekey='" & TimeKey & "'"
Session("OrderID")=rsTimekey("OrderID")
end if
%>

but it turn up again message

Error Type:
ADODB.Recordset (0x800A0E79)
Operation is not allowed when the object is open.
/anata/Send_OrderList.asp, line 105

[GazMathias]

Hi

Somewhere in your code you should have a line that starts like this:

rsTimekey.Open '... more code
 

Try adding this before it:

rsTimekey.LockType = adLockPessimistic
 

Hope that helps

Gaz.

[AAKK]

HI
after studying the locktype
i still could not figure out the place to insert
therefore,better to provide you all code
easy for you check
hoping you will help

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="inc_CharonCart.asp" -->
<script language="javascript" runat="server">
 
function GetTimeInMillisec()
{
    var Now = new Date()
    var TimeStamp = Now.getTime()
 
    return TimeStamp
}
 
</script>
<!--#include file="Connections/Data.asp" -->
<!--#include virtual="/anata/Connections/data.asp" -->
<%
Dim rs1stCatalogs
Dim rs1stCatalogs_cmd
Dim rs1stCatalogs_numRows
 
Set rs1stCatalogs_cmd = Server.CreateObject ("ADODB.Command")
rs1stCatalogs_cmd.ActiveConnection = MM_Data_STRING
rs1stCatalogs_cmd.CommandText = "SELECT * FROM tCatalogs ORDER BY CatalogID ASC" 
rs1stCatalogs_cmd.Prepared = true
 
Set rs1stCatalogs = rs1stCatalogs_cmd.Execute
rs1stCatalogs_numRows = 0
%>
<%
Dim rsShowCatalog
Dim rsShowCatalog_cmd
Dim rsShowCatalog_numRows
 
Set rsShowCatalog_cmd = Server.CreateObject ("ADODB.Command")
rsShowCatalog_cmd.ActiveConnection = MM_Data_STRING
rsShowCatalog_cmd.CommandText = "SELECT * FROM tCatalogs" 
rsShowCatalog_cmd.Prepared = true
 
Set rsShowCatalog = rsShowCatalog_cmd.Execute
rsShowCatalog_numRows = 0
%>
<%
Dim rsPayData__MMColParam
rsPayData__MMColParam = "1"
If (Session("OrderID") <> "") Then 
  rsPayData__MMColParam = Session("OrderID")
End If
%>
<%
Dim rsPayData
Dim rsPayData_cmd
Dim rsPayData_numRows
 
Set rsPayData_cmd = Server.CreateObject ("ADODB.Command")
rsPayData_cmd.ActiveConnection = MM_data_STRING
rsPayData_cmd.CommandText = "SELECT PayWay, GrandPrice FROM tOrderData WHERE OrderID = ?" 
rsPayData_cmd.Prepared = true
rsPayData_cmd.Parameters.Append rsPayData_cmd.CreateParameter("param1", 5, 1, -1, rsPayData__MMColParam) ' adDouble
 
Set rsPayData = rsPayData_cmd.Execute
rsPayData_numRows = 0
%>
 
<%
Dim rsOrderList
Dim rsOrderList_cmd
Dim rsOrderList_numRows
 
Set rsOrderList_cmd = Server.CreateObject ("ADODB.Command")
rsOrderList_cmd.ActiveConnection = MM_data_STRING
rsOrderList_cmd.CommandText = "SELECT * FROM tOrderList" 
rsOrderList_cmd.Prepared = true
 
Set rsOrderList = rsOrderList_cmd.Execute
rsOrderList_numRows = 0
%>
<%
 
Dim rsTimekey
Dim rsTimekey_cmd
Dim rsTimekey_numRows
 
Set rsTimekey_cmd = Server.CreateObject ("ADODB.Command")
rsTimekey_cmd.ActiveConnection = MM_data_STRING
rsTimekey_cmd.CommandText = "SELECT * FROM tOrderTimekey" 
 
Set rsTimekey = rsTimekey_cmd.Execute
rsTimekey_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = -1
Repeat1__index = 0
rs1stCatalogs_numRows = rs1stCatalogs_numRows + Repeat1__numRows
%>
<% 
'
'Insert record into Orders recordset when form is submitted
'and store the unique OrderID
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
 
rsTimekey("Timekey")=TimeKey
For Each fld in rsTimekey.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rsTimekey.Update
rsTimekey.Requery
rsTimekey.Filter= "Timekey='" & TimeKey & "'"
Session("OrderID")=rsTimekey("OrderID")
end if
%>
<% 
 
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
rsTimekey.AddNew
rsTimekey("Timekey")=TimeKey
For Each fld in rsTimekey.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rsTimekey.Update
rsTimekey.Requery
rsTimekey.Filter= "Timekey='" & TimeKey & "'"
Session("OrderID")=Session("OrderID")
end if
%>

[jhardman]

the more common way to open a recordset is this:

dim rs, conn
set conn=server.createObject("adodb.connection")
conn.open connectionString
 
set rs = server.createObject("adodb.recordset")
rs.open command, conn, locktype, cursortype 

Your method doesn't use this syntax, you declare the recordset by making a adodb.command, and then calling execute and dumping the result into the recordset variable. I don't think that method will work if you want to update your recordset. I suggest you rework the code to use the method I highlighted above, locktype and cursortype are both constants, 2 and 3 will work for you. Let me know if this helps.

Jared

BTW, I'm going to add code tags to make your post more readable. In the future please enclose your code in [ code]...[/code] tags

[AAKK]

HI Thank
it work
thank for your helping

[AAKK]

Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
[Microsoft][ODBC Microsoft Access Driver] The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
/anata/Send_OrderList.asp, line 205

ODRecordset.AddNew
ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue
ODRecordset.Fields("Quantity")=CCcart(CC_Quantity,i)
ODRecordset.Fields("Name")=CCcart(CC_Name,i)
ODRecordset.Fields("SalePrice")=CCcart(CC_Price,i)
rsOrderList.Update'(line 205)

[jhardman]

I assume the UniqueIdColumn is an auto-incrementing key field. Don't set the auto-increment number! The recordset object will do that automatically when you call "update".

Jared

Please type the following after your code block:
[/code]
And type this right before your code block:
[code]
failure to do so could make me lose my temper

[AAKK]

Hi My data is Access
so Now,I took away the prime key
it look like work
THK