Пользовательская функция ASP, имитирующая доменную функцию DLookup в VBA
Автор：Eve Cole
Время обновления：2009-06-24 16:47:28
Функция dlookup(strFieldName, strTableName, strWhere, objConn)
'Доступ к VBA с помощью Dlookup
'由于环境不同,加了ObjConn参数, 直接将Adodb.connection直接调进来
Тусклый strsql
Дим РС
Установите rs = server.CreateObject("adodb.recordset")
'Необходимый метод проверки SQL()
strFieldName = checksql(strFieldName)
Если strWhere <> "" Тогда
strWhere = "где" & strWhere
Конец, если
strsql="выберите "&strfieldname&" из "&strtablename&" " & strwhere
'отладка strsql
При ошибке Возобновить Далее
rs.Open strsql, objConn, 1, 1
Если Err <> 0 Тогда
ответ.записать ошибку.Описание
ответ.конец()
Конец, если
Если rs.EOF и rs.BOF Тогда
dlookup = ""
Еще
'要调用一个自定义函数 Новая Зеландия
'详细内容请参考 ACCESS VBA 帮助中的资料
dlookup = Nz(rs(strFieldName), "")
Конец, если
rs.Close
Конечная функция
