海淀区北清路68号邮编:asp调用ACCESS数据库的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 05:27:26
源代码
--------------------------
<%
dim conn,rs,sql,mDb,gg
set conn=server.createobject("ADODB.Connection")
set rs=server.createObject("adodb.recordset")
mDb = "data/db2.mdb"
connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdb)
sql="select * from student"
rs.open sql,conn,1,3
conn.execute(sql)
response.write gg("vid")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
-------------------------

错误信息
-------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

ADODB.Recordset 错误 '800a0e7d'

在一个已关闭的或无效连接的对象参照上操作不被允许。

/1.asp,行8
-----------------------------------
请问这是为什么啊!?

第一个问题“if”语句差"end if"
第二个问题:把你的程序改为:

<%
dim conn,rs,sql,mDb,gg
set conn=server.createobject("ADODB.Connection")
mDb = "data/db2.mdb"
connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdb)
conn.open connStr
set rs=server.createObject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,1,3
conn.execute(sql)
response.write gg("vid")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdb)修改一下