VBA のドメイン関数 DLookup を模倣した ASP カスタム関数
著者：Eve Cole
更新時間：2009-06-24 16:47:28
関数 dlookup(strFieldName, strTableName, strWhere, objConn)
'参考Access VBAの中のDlookup関数
'環境が異なるため、ObjConn パラメータを追加し、Adodb.connection を直接実行します
ディム strsql
ディム rs
Set rs =server.CreateObject("adodb.recordset")
'次は外部で使用する独自の関数 checksql()
strフィールド名 = checksql(strフィールド名)
If strWhere <> "" then
strWhere = " where " & strWhere
終了の場合
strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
'デバッグ停止 strsql
エラー時は次へ再開
rs.Open strsql、objConn、1、1
エラー <> 0 の場合
応答.書き込みエラーの説明
応答.end()
終了の場合
rs.EOF と rs.BOF の場合
dlookup = ""
それ以外
'要调用一自定関数数 NZ
'詳細内容参照 ACCESS VBA ヘルプ内の料金
dlookup = Nz(rs(strFieldName), "")
終了の場合
rs.閉じる
終了機能
