vb组件中recordset对象的错误(附代码)

2003-11-20 11:03:53 85 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Access 2003 中ADO Recordset 调用 AddNew 或 Delete 方法时收到错误信息有网友问到这个问题，他在代码里创建了一个ADODB.Recordset 对象，然后Open，当他想调用AddNew 方法时，程序报错误代码3251“对象或提供者不能执行所需的操作” 。这个问题在微软的支持网站已经有专文说明： You cannot add records or delete records with the ADO AddNew method or with the Delet 阅读详情

源代码如下：
Dim pWarn, pName, pContent, dName, uName, pSDate, pEDate
Dim oConn As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim strSql As String
On Error GoTo ErrHander
oConn.Open getConn

pWarn = Request.Form("pWarn")
pName = Request.Form("pName")
pContent = Request.Form("pContent")
dName = Request.Form("dName")
uName = Request.Cookies("uName")
pSDate = Request.Form("pSDate")
pEDate = Request.Form("pEDate")
''''''''''''''''''''''''''''''''''''''''
'strSql = "insert into db_plan(pWarn,pName,pContent,dName,uName,pSDate,pEDate) values(" & pWarn & ",'" & pName & "','" & pContent & "','" & dName & "','" & uName & "','" & pSDate & "','" & pEDate & "')"
'oConn.Mode = adModeReadWrite
'oConn.Execute strSql
'''''''''''''''''''''''''''''''''''''''''
strSql = "select * from db_plan"
oRS.Open strSql, oConn, adOpenDynamic, adLockPessimistic
Response.Write strSql
oRS.AddNew
oRS("pWarn") = pWarn
oRS("pName") = pName
oRS("pContent") = pContent
oRS("dName") = dName
oRS("uName") = uName
oRS("pSDate") = pSDate
oRS("pEDate") = pEDate
oRS.Update
Response.Write "ok"
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
ErrHander:
Response.Write Err.Description

错误提示：
select * from db_plan不能打开，数据库或对象为只读
我确认我的数据库不是只读的，请问如何修改上述代码？

谢谢

...全文