ADODB.Recordset 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

最新推荐文章于 2020-09-15 19:45:10 发布

haiyan_c

最新推荐文章于 2020-09-15 19:45:10 发布

阅读量2.8k

点赞数

CC 4.0 BY-SA版权

文章标签： vbscript access cmd file

本文链接：https://blog.youkuaiyun.com/haiyan_c/article/details/2677860

本文介绍了一段使用VBScript通过ASP连接ACCESS数据库并进行查询操作的代码示例。代码中利用了ADODB.Command对象来执行参数化的SQL查询，以提高安全性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim sear1__MMColParam
sear1__MMColParam = "1"
If (Request.QueryString("xingming1") <> "") Then
sear1__MMColParam = Request.QueryString("xingming1")
End If
%>
<%
Dim sear1
Dim sear1_cmd
Dim sear1_numRows

Set sear1_cmd = Server.CreateObject ("ADODB.Command")
sear1_cmd.ActiveConnection = MM_mycontact_STRING
sear1_cmd.CommandText = "SELECT * FROM mycontact WHERE name = ?"
sear1_cmd.Prepared = true
sear1_cmd.Parameters.Append sear1_cmd.CreateParameter("param1", 200, 1, 50, sear1__MMColParam) ' adVarChar

Set sear1 = sear1_cmd.Execute
sear1_numRows = 0
%>

这是我的部分代码，是用ACCESS连的。。请各位看一下要怎么更改，谢谢了！