<% '数据库连接
set db=server.CreateObject("ADODB.Connection")
DBpath=server.MapPath("data/gzgv.mdb")
db.open "provider=Microsoft.jet.oledb.4.0;data Source=" & DBpath
%>
<%
public Function GetRs(sql)
Set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,db,3,3
set GetRs=rs
end function
public Function GetRsT(TblNm,FldNm,Tj)
if FldNm="" then FldNm="*"
sql="Select " & FldNm & " from [" & TblNm & "] "& Tj
set GetRsT=GetRs(sql)
end function
%>
<%
set rs1=GetRsT("test1","*","where te1=3")
response.Write rs1("te5")
%>
运行的时候就会出错:
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/gv060919/class_test.asp, 第 29 行
如果我把上面的程序改成:
<%
public Function GetRs(sql)
Set rs=Server.CreateObject("adodb.Recordset")
rs.Open sql,db,3,3
set GetRs=rs
end function
public Function GetRsT(TblNm,FldNm,Tj)
if FldNm="" then FldNm="*"
sql="Select " & FldNm & " from [" & TblNm & "] "& Tj
set GetRsT=GetRs(sql)
end function
%>
<%
sql="select * from test1 where te1="&"'3'"
set rs1=GetRs(sql)
response.Write rs1("te5")
%>
这是能运行的.
请大虾们帮忙看看这几段程序,分析下到底错在什么地方?昨晚我可是搞到两点多还没解决,呵呵!谢谢