Соберите самый практичный код специального эффекта веб -страницы!
Функция dlookup (strfieldname, strtablename, strwher, objconn)
'Справочная функция Dlookup в Access VBA
Из -за различной среды добавляются параметры objconn, и AdoDB.connection напрямую передается в
Dim Strsql
Dim Rs
Установить rs = server.createObject ("adodb.oldset")
'Давайте вызовут внешнюю пользовательскую функцию checksql ()
Strfieldname = checksql (strfieldname)
Если Str Whene <> "", тогда
Strwhere = "где" и сильный
конец, если
Strsql = "select" & strfieldname & "from" & strtablename & "" & strwher
'DebugStop Strsql
При ошибке резюме следующим
Rs.oopen strsql, objconn, 1, 1
Если ошибка <> 0, то
response.write err.descripting
response.end ()
конец, если
Если rs.eof и rs.bof, тогда
dlookup = "" "
еще
'Чтобы вызвать пользовательскую функцию NZ
'Для получения подробной информации, пожалуйста, обратитесь к информации справки Access VBA
dlookup = nz (rs (rs (strfieldname), "")
конец, если
Rs.close
конечная функция