是参数传递问题吗?
<%
function OpenAccess(DataName,Sql)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("DataName")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Sql"
rs.Open sql, conn, adOpenStatic
OpenAccess=rs
end function
sql="user"
set mrs=OpenAccess("user.mdb","sql")
mrs.AbsolutePosition=1
Response.Write mrs(1)
%>
老报错!你教我!
问题点数：0、回复次数：6Top
1 楼darkdragon1981（darkdragon1981）回复于 2004-05-02 10:24:53 得分 0
报的什么错？
你在什么地方调用的函数？
如果没有调用的话，那个函数好像不会自动执行的吧！？
我也是新手，呵呵Top
2 楼TrueAndFalse（彩旗飘飘）回复于 2004-05-02 17:17:40 得分 0
"sql" 是什么？
Top
3 楼stefli（）回复于 2004-05-02 17:32:26 得分 0
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Sql" '去掉这一行，直接使用sql变量Top
4 楼dsclub（任搏软）回复于 2004-05-02 17:49:16 得分 0
<%
function OpenAccess(DataName,Sql)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("DataName")
Set rs = Server.CreateObject("ADODB.Recordset")
'sql = "Sql"
rs.Open sql, conn, 1, 3
set OpenAccess=rs
end function
sql="[user]"
set mrs=OpenAccess("user.mdb",sql)
mrs.AbsolutePosition=1
Response.Write mrs(1)
%>
Top
5 楼chinalinx（林高敏）回复于 2004-05-03 08:56:14 得分 0
没有必要用函数Top
6 楼zhangzongshan207（自我一生）回复于 2004-07-21 14:46:00 得分 0
<%
dim conn,connstr,dbpath
'更改数据库名字
dbpath=""&user.mdb&""
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbpath)
conn.Open connstr
Sql="select * from user"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open Sql,conn,1,1
%>
这是最常用的，为什么要用函数呢？
如果用函数的话就这样照改就可以了Top
