开发学院WEB开发ASP ASP自定义函数,仿VBA中域函数DLookup 阅读

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

 2004-02-09 10:27:03 来源:WEB开发网   
核心提示:Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考access VBA 中的Dlookup函数 '由于环境不同,加了ObjConn参数,ASP自定义函数,仿VBA中域函数DLookup,直接将Adodb.connec
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

Tags:ASP 定义 函数

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接