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