数据库链接出错，烦了我好久了！

[cilyboy]

我的conn.asp文件如下：
<%
set conn=server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data/news.mdb")
%>

可是老出现这样的错误提示：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/news/conn.asp，行3

我在网上下载了很多代码也经常遇到这个错误，请问如何解决？？！！谢谢！

[cilyboy]

我是单机测试的，数据库在data文件夹中。。。

[reidli]

还有如果该文件所在盘是ntfs的话，需要使该文件夹对everyone有读写权限
而且iis也要设置权限

[diveas]

dbfile="D:\data\RC_Web.mdb" '网站配置数据库，为了安全，请放置在网站外面的目录
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
'connstrs = "DBQ="+dbfile+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set connmdb = Server.CreateObject("ADODB.Connection")
connmdb.Open connstrs

[diveas]

<%
dbfile="C:\data\news.mdb" '数据库的路径，自己根据情况改
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfileset conn=server.createobject("adodb.connection")
connmdb.Open connstrs
%>

[diveas]

去试试，行不？

[cilyboy]

diveas(枫)
dbfile那样写是绝对路径对不？
我试一试看，刚才掉线了 ，最近adsl猫几分种久掉一次线，烦透了。。。。。。。。

[cilyboy]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/news/conn.asp，行6

connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfileset conn=server.createobject("adodb.connection")
---------------------------------------------------------------------^

[diveas]

<%
dbfile="C:\data\news.mdb" '数据库的路径，自己根据情况改
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set conn=server.createobject("adodb.connection")
connmdb.Open connstrs
%>

不好意思，发错了，这个对

[diveas]

<%
dbfile="C:\data\news.mdb" '数据库的路径，自己根据情况改
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set conn=server.createobject("adodb.connection")
conn.Open connstrs
%>

这个对！！！

[diveas]

真的不好意思，这个是我的程序
dbfile="D:\data\RC_Web.mdb" '网站配置数据库，为了安全，请放置在网站外面的目录
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
'connstrs = "DBQ="+dbfile+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set connmdb = Server.CreateObject("ADODB.Connection")
connmdb.Open connstrs
帮你该的时候，消空格，把创建对象的set给弄到上一行了！！！
<%
dbfile="C:\data\news.mdb" '数据库的路径，自己根据情况改
connstrs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile
set conn=server.createobject("adodb.connection")
conn.Open connstrs
%>
这个应该没问题的！！！

[cilyboy]

不管这次对不对，先谢谢你哈

[diveas]

:) ==== ^Q^

[cilyboy]

我用了一小段程序
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & Server.MapPath("data/news.mdb")
这样就可以了
你的那个我好像还是。。。可能是我笨吧

真搞不明白我原来那段错在哪里

diveas(枫) 明天结帖，给你分
我大学已经快毕业了，想混口饭吃，真不知道学什么好
能否交个朋友 QQ：47993729

[diveas]

我加你了

[diveas]

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../news.mdb")

[diveas]

这种创建对象连接打开，有好多种。看个人喜欢了。可以参考asp初级编程和asp高级编程。

[MonkeyDHua]

建议使用Jet.4.0

[huhanshan013]

还有如果该文件所在盘是ntfs的话，需要使该文件夹对everyone有读写权限.
我想楼主肯定以前有能行的程序
那试试以前的啊，和现在的一对照，问题不就出来了？
学会分析问题！

[liuyangxuan]

建议您换成：OLEDB方式链接库：

<%
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/news.mdb")
%>

[amuamufly]

set co = server.CreateObject("adodb.connection")
sConn = "DBQ="&Server.MapPath("数据库名.mdb")&";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
co.open sConn

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End' 这个错误好像是虚假的，不用理它。