读取数据库的问题!请来帮帮我,我都急死了!

[limiao888]

本人接触asp时间不是很长!
再读取access的数据库时,建立一个conn.asp这个文件,因为在info.mdb的这个数据库中,有很多表,这样,调用conn.asp这个文件也不是很方便,
于是我把打开数据表的语句写成了一个子程序,设置了局部变量,
-------------conn.asp----------------
<%
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "df.mdb" )
conn.Open Provider & DBPath
sub opendatebase(a,b)
set a=server.createobject("adodb.recordset")
a.open "b",conn,2,2
end sub
%>
在其他页面的时候,调用子程序,打开数据表,出现一下错误:
Microsoft JET Database Engine 错误 '80040e14'

无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。

/shop/conn.asp, 行8


请问大家,这是怎么回事呢?怎么解决?
根据我这种想法,应该怎么实现呢?谁能帮我改改程序??

[jeston]

調用時注意,你的df.mdb,conn.asp與你要調用的文件必須在一個目錄裡面呀.

[haveno]

b=?你的sql語句呢,sql語句沒有穿過來呀,還有你用的不是info,dbf嗎,怎麼dbpath=db.mdb呀

[haveno]

首先是沒有找到數據庫,其次,沒有sql語句.報這兩個錯

[limiao888]

是在同一个目录里!

怎么改?那位大哥能帮我改一下!

[limiao888]

haveno(鱼)大哥

帮我改一改!

[haveno]

好的,發到我的mailbox
[e-mail]

[i_need_mana]

b="select * from yourtable"

[neweb]

>>a.open "b",conn,2,2

b 是变量不要引号，a 是什么？为什么传了a进来又不用？

[ttt2]

用的是access库吧

[yangbin302]

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "dsn=df.mdb"
sub opendatebase(a,b)
set a=server.createobject("adodb.recordset")
a.open "b",conn,2,2
end sub

[canli15]

<%
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("df.mdb")
strconn="driver=microsoft access driver (*.mdb);dbq="&dbpath
conn.open strconn
sub opendatabase(a,b)
set a=server.createobject("adodb.recordset")
a.open b,conn,2,2
end sub

[chinajordan]

变量不需要引号！！！！