标题: [求助]这两个function对吗？ [打印本页] 作者: 黑角残叶 时间: 2010-1-15 07:15 标题: [求助]这两个function对吗？ <% '数据库连接
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")
%>
这是能运行的．
请大虾们帮忙看看这几段程序，分析下到底错在什么地方？昨晚我可是搞到两点多还没解决，呵呵！谢谢作者: 阿玛比雷 时间: 2010-1-15 07:15
te1是什么类型的数据库字段？作者: ●．涛涛＂★ 时间: 2010-1-15 07:15
呵呵，现在才知道原来是数据类型搞错了，呵呵，谢谢！作者: 灬☆爱你 时间: 2010-1-15 07:15
我晕