ASP连接ACCESS数据库的代码，有需要的看这里

最新推荐文章于 2026-06-21 15:14:42 发布

转载最新推荐文章于 2026-06-21 15:14:42 发布 · 497 阅读

标签

#数据库 #access #asp #database #sql

收录于

ASP 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种使用VBA连接Access数据库的方法，并通过示例代码展示了如何创建数据库连接、打开连接及创建数据集的过程。同时，文章还提供了错误处理机制以确保程序的稳定运行。

width="468" scrolling="no" height="60" frameborder="0" leftmargin="0" topmargin="0" src="http://www.aiwo1314.com/googleAdsense/gd468_60.html" marginheight="0" marginwidth="0">
Dim database , conn , connstr, rs, sql
'on error resume next '程序容错。对此程序不抱有信心，请去掉此行第一个“'”
database = "笨蛋.mdb" '数据库路径设置，数据库名称要用英文字符。
connstr = "DBQ=" + server.mappath(database) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '连接驱动
set conn = server.createobject("ADODB.CONNECTION") '创建连接
If Err.number <> 0 Then '如果有错
err.clear '清错
set conn = nothing '关闭创建的连接
Response.Write ("数据库连接出错(1)！") '输出错误提示字符
Response.End() '停止下面所有没有执行的语句
else
conn.open connstr '如果上面没有错误，这里正式打开与数据库的连接
if err Then '如果发生其他错误
err.clear '还要清错
set conn=nothing ' 关闭连接
Response.Write ("数据库连接出错(2)！")
Response.End()
end if
end if

set rs = Server.CreateObject("adodb.recordset") '这是创建一个数据集。

'下面是使用方法为：
sql = "select * from 表名"
rs.Open sql, conn, 3, 1

...........

rs.Close

width="336" scrolling="no" height="280" frameborder="0" leftmargin="0" topmargin="0" src="http://www.aiwo1314.com/googleAdsense/gd336_280.html" marginheight="0" marginwidth="0">