I am trying to include Prepare Statement in my program and so far I have learned how to do a select statement with parameter. Next I am trying to update a record but keep getting the error messge below:
Microsoft JET Database Engineerror '80004005'
Operation must use an updateable query.
/development/CheckLogin.asp, line 102
Here is my code where I am updating using Prepared Statement. I don't even know if how I am using prepared statement is correct.
Line 102 is objCMD.Execute
Code:
Set objCmd = Server.CreateObject("ADODB.command")
set rsUsers = Server.CreateObject("ADODB.Recordset")
objCmd.ActiveConnection = objConn
objCmd.Prepared = True
objCmd.CommandType = adCmdText
objCmd.CommandText = "UPDATE Member SET LastLogin = ?"
objCmd.Parameters.Append(objCmd.CreateParameter("@LastLogin", adDate, adParamInput, Len(Now()), Now()))
rsUsers.CursorType = adOpenKeyset
rsUsers.LockType = adLockOptimistic
objCmd.Execute()
Below is my code for the Select Statement which is doing fine. This one executes before the code above which I am having a problem with..
Code:
Dim rsUsers
Set objCmd = Server.CreateObject("ADODB.command")
set rsUsers = Server.CreateObject("ADODB.Recordset")
objCmd.ActiveConnection = objConn
objCmd.Prepared = True
objCmd.CommandType = adCmdText
objCmd.CommandText = "SELECT * FROM Member WHERE SSN = ?"
objCmd.Parameters.Append(objCmd.CreateParameter("@SSN", adChar, adParamInput, Len(strSSN), strSSN))
rsUsers.CursorType = adOpenKeyset
rsUsers.LockType = adLockOptimistic
rsUsers.Open = objCmd.Execute()
Please I am new to using Prepared Statement and asking for any assistance.
Thanks.