出怪事了，帮忙啊！

xiaomengyzy 发布于 2008-09-05 16:11， 794 次点击

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database.mdb")
%>
上面这段代码，一时能运行，一时又不能运行！为什么啊？

5 回复

wangmeng63132008-09-05 17:09

最好用oledb链接

yms1232008-09-05 20:34

生成连接字符串可以去看我写的那个帖子
https://bbs.bccn.net/thread-231572-1-1.html

yangzeng2008-09-05 20:59

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=driver do Microsoft Access Driver (*.mdb); DBQ="&Server.MapPath("database.mdb")
%>
改为这个加个“driver do”

xiaomengyzy2008-09-07 21:16

现在好了，呵呵！

nicechlk2008-09-07 21:19

dim conn,connstr
set conn = server.createobject("adodb.connection")
connstr= "provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & Server.MapPath("文件夹/数据库名.mdb")
if err then
err.clear
else
conn.open connstr
end if

Sub closeconn()
conn.close
set conn=nothing
end sub
on error resume next

这是我最常用的,看是否能给你帮助!