Question

asp 读取access数据库 指定ID的内容并赋值给变量

数据库aa.mdb，表bb，指定ID=1，读取出来后赋值给变量a，求大神啊

Answer 1

<%@ LANGUAGE = VBScript %>
<% 
 
 dim db,conn,connstr         '定义变量
 db="Database/Database.mdb"       '数据库路径
 set Conn=server.CreateObject("ADODB.Connection") '链接数据库
 connstr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath(""&db&"")
 conn.Open connstr         '执行connstr

sql="select * from bb where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
a=rs(0)'0代表第1个字段，rs(0)代表第几个字段的值
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

追问

运行提示
ADODB.Connection 错误 '800a0e7a'
未找到提供程序。该程序可能未正确安装。
/9.asp conn.open connstr