程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> ASP自定義函數,仿VBA中域函數DLookup

ASP自定義函數,仿VBA中域函數DLookup

編輯:ASP技巧

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

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved