IDC资讯中心
function dlookup(strfieldname, strtablename, strwhere, objconn)
参考access vba 中的dlookup函数
由于环境不同，加了objconn参数，直接将adodb.connection直接调进来
dim strsql
dim rs
set rs = server.createobject("adodb.recordset")
下面要调用外部的一个自定义函数 checksql()
strfieldname = checksql(strfieldname)
if strwhere <> "" then
strwhere = " where " & strwhere
end if
strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
debugstop strsql
on error resume next
rs.open strsql, objconn, 1, 1
if err <> 0 then
response.write err.description
response.end()
end if
if rs.eof and rs.bof then
dlookup = ""
else
要调用一个自定义函数 nz
详细内容请参考 access vba 帮助中的资料
dlookup = nz(rs(strfieldname), "")
end if
rs.close
end function
