I HAVE A TABLE ITEM WITH ITEM_NO,ITEM_NAME,ITEM_STATUS_NO
I HAVE TO UPDATE ITEM_STATUS_NO BY SELECTING ONE BY ONE IN A LOOP WHAT THE PROBLEM IS IT GIVES ME ERROR CANNOT UPDATE CURRENT RECORD BECAUSE OF CONNECTION TYPE OR lOCKTYPE. INTIALLY SAME CODE WAS REUNNIG ON ms acceSS BUT IT IS NOT RUNNIG ON sQL SERVER
THE cONNETION TYPE IS
CNN IN A SONNECTION STRING USED TO CONNECT THE DATABASE mS sQL
DIM STRSQL
DIM CNN
DIM RST
SET CNN = SERVER.cREATEOBJECT("ADODB.cONNECTION")
SET RST = sERVER.CREATEOBJECT("ADODB.rECORDSET")
SET CNN = SERVER.CREATEOBJECT("aDODB.cONNECTION")
STRSQL = "SELECT * FROM ITEM"
RST.OPEN STRSQL,CNN, ADOPENKEYSET,ADLOCKOPTIMISTIC

DO WHILE NOT RST.EOF
RST("ITEM_STAUS_NO") = NYMBER23
RST.UPDATE
LOOP

WHAT IS WRONG I DONT KNOW

dinesh Rana

__________________
dinesh Rana

Code you have posted I do not see that you have established connection to your db

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Your Connection String")

If you are using SQL Server then something like this

Conn.Open("Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;")

Sorry i forgoten to write it in the code here yes i have made connection
application("cnstring")= "Provider=sqloledb;" & _
           "Data Source=hopeone;" & _
           "Initial Catalog=diert;" & _
           "Integrated Security=SSPI;"
and the same is given in the Global.asa and is used to call it like

cnn.open application("cnstring")
know the complete code is

DIM STRSQL
DIM CNN
DIM RST
SET CNN = SERVER.cREATEOBJECT("ADODB.cONNECTION")

SET RST = sERVER.CREATEOBJECT("ADODB.rECORDSET")
SET CNN = SERVER.CREATEOBJECT("aDODB.cONNECTION")
cnn.open application("cnstring")
STRSQL = "SELECT * FROM ITEM"
RST.OPEN STRSQL,CNN, ADOPENKEYSET,ADLOCKOPTIMISTIC

DO WHILE NOT RST.EOF
RST("ITEM_STAUS_NO") = NYMBER23
RST.UPDATE
LOOP

WHAT IS WRONG I DONT KNOW



dinesh Rana

try this:

rst.open strsql, cnn, adopenstatic, adlockpessimistic

Regards,
Sherief C. Mursyidi

no
rst.open strsql, cnn, adopenstatic, adlockpessimistic
this does not works as the arguments are conflicting with each other

dinesh Rana

Are you including adovbs.inc in your code?

Response.Write your SQL statement

RST.OPEN STRSQL,CNN, ADOPENKEYSET,ADLOCKOPTIMISTIC
Response.Write(strSQL)

and post the exact error message you are receiving in this forum

the exact error is
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

yes i included adovbs.inc



dinesh Rana