为何不能读取数据库？

[believebowps]

<%
dim strconnect
strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = ./data/bbjs.mdb;" & _
"Persist Security Info=False"
%>
保存为data.asp
index.asp页面的ASP内容：
<% Option Explicit
dim strconnect %>
````
<%
<!-- #include file="data.asp" -->
<%
dim objcommand,objrs
set objcommand = Server.CreateObject("ADODB.Command")
objcommand.ActiveConnection = strconnect
objcommand.commandtext = "select text from bjjs"
objcommand.commandtype = adcmdtext
set objrs = objcommand.execute
set objcommand = nothing
```` %>
当运行到objcommand.Activeconnection = strconnect 时就出现了问题，请各位多多指点，十分感谢！

[wintle]

先直接运行一下data.asp，看能不能连上先。（我的到./data/bbs.mdb 是不是../data/bbs.mdb啊？）
如果能的话。去掉那个烦人的东西：Option Explicit 看有没有好些。我从来不用这个东西，用它后，什么地方出错我都不知道。还是宽松一点的好。反正运行成功就是了。

呵呵，看到了看到了，你还没有
set conn=server.createobject("adodb.connection") 呢。
conn.open strconnection
...
objcommand.Activeconnection=conn
...
...

[believebowps]

我将代码改为如下：
data.asp
<%
dim strconnection
strconnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = ./data/bbjs.mdb;" & _
"Persist Security Info=False"
%>
index.asp
<!-- #include file = "data.asp" -->
<%
dim strconnection
dim objconn,objrs,objcommand
set objconn = server.createobject("adodb.connection")
objconn.open strconnection
set objcommand = server.createobject("adodb.command")
objcommand.activeconnection = strconnection
objcommand.commandtext = "select text,xm from bjjs"
objcommand.commandtype = adcmdtext

set objrs = objcommand.execute
set objcommand = nothing

while not objrs.eof
response.write objrs("text") & objrs("xm")
objrs.movenext
wend
objrs.close
objconn.close
set objrs = nothing
set objconn = nothing
%>

但还是不行啊，求救！！！

[椅子]

adovbs.inc
请包括进去

[believebowps]

哦，是吗？我试试，谢谢！

[saxash]

strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & _
Server.MapPath("/data/bbjs.mdb")
set conn=server.createobject("adodb.connection")
conn.open strconnection
......

[believebowps]

wintle:
谢谢你了，我试试，至于./data/bbjs.mdb是我设的数据库命，没有错，它在跟目录下。
有什么问题，还得请你多多帮助哈！

[believebowps]

哦，我再试试。

[wintle]

行了没啊？
如果不行，我在想，是不是不用这种方法设置strconnection啊
Set Conn=Server.CreateObject("ADODB.Connection")
strconnection="DRIVER=Microsoft Access Driver (*.mdb);DBQ=./data/bbjs.mdb"
conn.open strconnection

或者：

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("data/bbjs.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr

这些都是现成好用的。

[z2h]

'strconnection 为你的数据库相关连接语句
<%
dim strconnection
dim objconn,objrs,mysql
set objconn = server.createobject("adodb.connection")
objconn.open strconnection
mysql = "select text,xm from bjjs"
set objrs=objconn.execute(mysql)
while not objrs.eof
response.write objrs("text") & objrs("xm")
objrs.movenext
wend
objrs.close
objconn.close
set objrs = nothing
set objconn = nothing
%>
不用ADO COMMAND对象试试

[believebowps]

谢谢蚊子，成功了！

[believebowps]

谢谢文子，成功了！