注册 | 登录
欢迎注册会员

当前位置:首页 > 数据库 > MSSQL数据库 > 正文

ASP自定义函数,仿VBA中域函数 DLookup

来源:程序人生 【 】 浏览:287 添加日期:2010-05-27 20:56:40 我要评论(0)

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


你浏览的文章是 - 《ASP自定义函数,仿VBA中域函数 DLookup》!
文章出处:https://www.procedurelife.com/content/jec.html
0% (0)
0% (0)
评论0
头像 游客
1 2