Can't Update Access Database with Variables

[scripter73]

Hi,

I have some variables in my ASP script that I would like to insert as a record into my database table called ALOG. The table layout/datatypes are as follows:


Host_Addr (Text)
UserID (Text)
LogDate (Date/Time)
LogTime (Text)
RefURL (Text)
OpSysURL (Text)


The variables I want to insert are:

strHost(string)
strUser (string)
datDate (date)
strFinalTime (string)
strRefURL (string)
strOpSys (string)


I receiving this error when I attempt to update the database,

ADODB.Field error '800a0cb3'

The operation requested by the application is not supported by the provider.

/logs/split.asp, line 631


Here's my snippet of code (sorry it's so long):


'**************************
'OPEN DATABASE CONNECTION
'**************************
'create connection to database using dsn

dim adopenforwardonly, adlockreadonly, adcmdtable
adopenforwardonly = 0
adlockreadonly = 1
adcmdtable = 2

dim objconn, objrs
set objconn = server.createobject("ADODB.Connection&quot
set objrs = server.createobject("ADODB.Recordset&quot

dim strdatabasetype
strdatabasetype = "Access"

objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=d:\inetpub\

http://wwwroot\logs\Target_URL.mdb;"

&_
"Persist Security Info=False"

objrs.open "Alog", objconn, adopenforwardonly, adlockreadonly, adcmdtable

'add new record using no argument

objrs("Host_Addr&quot = strHost 'line 631
objrs("UserID&quot = strUser
objrs("LogDate&quot = datDate
objrs("LogTime&quot = strFinalTime
objrs("RefURL&quot = strRefURL
objrs("OpSysURL&quot = strOpSys
objrs.Update



objrs.close
objconn.close
set objrs = nothing
set objconn = nothing




Thanks in advance!
scripter73

 

[DaiDreamer]

Here's some code that I wrote to update a database for a really bad message board (it worked, it just didn't have any advanced features like threading)

set objRS = Server.CreateObject("ADODB.Recordset&quot
objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic
objRS.Open "MessageTable2", objConn, , , adCmdTable

objRS.AddNew 'adds a new record
objRS("UserName&quot=strUserName
objRS("EmailAddress&quot=strEmailAddress
objRS("Subject&quot=strSubject
objRS("Message&quot=strMessage
objRS("PostDate&quot=dtPostDate

objRS.Update
intMessageNum = objRS("MessageNum&quot

 

[link9]

specifically, the culprit is your locktype -- can't update a readonly recordset --

change it to adLockOptimistic or something else to clear the problem up