Current Recordset does not support updating.

[barret bonden]

(closest newsgroup I could find)
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the
provider, or of the selected locktype.
/asp_data3_add.a sp, line 30

<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
'1Create an ADO connection object
Set adoCon = Server.CreateOb ject("ADODB.Con nection")
'2Set an active connection to the Connection object using a DSN-less
connection
adoCon.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath( "t.mdb")

'3Create an ADO recordset object
Set rsAddComments = Server.CreateOb ject("ADODB.Rec ordset")

'4Initialise the strSQL variable with an SQL statement to query the
database
strSQL = "SELECT last, first FROM main;"

'5 Set the cursor type we are using so we can navigate through the
recordset
rsAddComments.C ursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated
'rsAddComments. LockType = 3
'Open the recordset with the SQL query
rsAddComments.O pen strSQL, adoCon

'Tell the recordset we are adding a new record to it
rsAddComments.A ddNew

'Add a new record to the recordset
rsAddComments.F ields("last") = Request.Form("l ast")
rsAddComments.F ields("first") = Request.Form("f irst")
'Write the updated recordset to the database
rsAddComments.U pdate

'Reset server objects
rsAddComments.C lose
Set rsAddComments = Nothing
Set adoCon = Nothing

'Redirect to the guestbook.asp page
'Response.Redir ect "asp_data2. asp"
%>

[Sylvain Lafontaine]

The good newsgroup for a question about databases and ASP would be
microsoft.publi c.inetserver.as p.db

Second, using the old ODBC driver is probably not the best idea; you should
use the OLEDB provider instead.

Third, you must make sure that in your Select statement, the primary key for
the table has been selected (and that your table has a primary key defined,
of course).

Fourth, using constant such as « CursorType = 2 » without writing a notice
about its definition is not the best thing to do. Personally, I don't
remember at all the definition of 2 and of 3 in this context.

--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: http://cerbermail.com/?QugbLEWINF
"barret bonden" <ar****@network s-cc.com> wrote in message
news:9M******** *********@fe08. lga...

(closest newsgroup I could find)
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of
the
provider, or of the selected locktype.
/asp_data3_add.a sp, line 30

<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
'1Create an ADO connection object
Set adoCon = Server.CreateOb ject("ADODB.Con nection")
'2Set an active connection to the Connection object using a DSN-less
connection
adoCon.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath( "t.mdb")

'3Create an ADO recordset object
Set rsAddComments = Server.CreateOb ject("ADODB.Rec ordset")

'4Initialise the strSQL variable with an SQL statement to query the
database
strSQL = "SELECT last, first FROM main;"

'5 Set the cursor type we are using so we can navigate through the
recordset
rsAddComments.C ursorType = 2

'Set the lock type so that the record is locked by ADO when it is
updated
'rsAddComments. LockType = 3
'Open the recordset with the SQL query
rsAddComments.O pen strSQL, adoCon

'Tell the recordset we are adding a new record to it
rsAddComments.A ddNew

'Add a new record to the recordset
rsAddComments.F ields("last") = Request.Form("l ast")
rsAddComments.F ields("first") = Request.Form("f irst")
'Write the updated recordset to the database
rsAddComments.U pdate

'Reset server objects
rsAddComments.C lose
Set rsAddComments = Nothing
Set adoCon = Nothing

'Redirect to the guestbook.asp page
'Response.Redir ect "asp_data2. asp"
%>

[Patrick.O.Ige]

You are in the wrong newgroup this is ASP.NET
Please post to ASP newgroup

"barret bonden" <ar****@network s-cc.com> wrote in message
news:9M******** *********@fe08. lga...

(closest newsgroup I could find)
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/asp_data3_add.a sp, line 30

<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsAddComments 'Holds the recordset for the new record to be added
Dim strSQL 'Holds the SQL query to query the database
'1Create an ADO connection object
Set adoCon = Server.CreateOb ject("ADODB.Con nection")
'2Set an active connection to the Connection object using a DSN-less
connection
adoCon.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath( "t.mdb")

'3Create an ADO recordset object
Set rsAddComments = Server.CreateOb ject("ADODB.Rec ordset")

'4Initialise the strSQL variable with an SQL statement to query the
database
strSQL = "SELECT last, first FROM main;"

'5 Set the cursor type we are using so we can navigate through the
recordset
rsAddComments.C ursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated 'rsAddComments. LockType = 3
'Open the recordset with the SQL query
rsAddComments.O pen strSQL, adoCon

'Tell the recordset we are adding a new record to it
rsAddComments.A ddNew

'Add a new record to the recordset
rsAddComments.F ields("last") = Request.Form("l ast")
rsAddComments.F ields("first") = Request.Form("f irst")
'Write the updated recordset to the database
rsAddComments.U pdate

'Reset server objects
rsAddComments.C lose
Set rsAddComments = Nothing
Set adoCon = Nothing

'Redirect to the guestbook.asp page
'Response.Redir ect "asp_data2. asp"
%>