Función personalizada ASP, que imita la función de dominio DBúsqueda en VBA
Autor：Eve Cole
Fecha de actualización：2009-06-24 16:47:28
Función dlookup(strFieldName, strTableName, strWhere, objConn)
'参考Access VBA 中的Dlookup函数
'由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来
strsql tenue
rs tenues
Establecer rs = servidor.CreateObject("adodb.recordset")
'下面要调用外部的一个自定义函数 checksql()
strFieldName = checksql(strFieldName)
Si strDonde <> "" Entonces
strDónde = "dónde" & strDónde
Terminar si
strsql="seleccione "&strfieldname&" de "&strtablename&" " & strwhere
'debugstop strsql
En caso de error Continuar siguiente
rs.Abrir strsql, objConn, 1, 1
Si Err <> 0 entonces
respuesta.escribir Err.Descripción
respuesta.fin()
Terminar si
Si rs.EOF y rs.BOF entonces
dlookup = ""
Demás
'要调用一个自定义函数 NZ
'详细内容请参考 ACCESS VBA 帮助中的资料
dlookup = Nz(rs(strFieldName), "")
Terminar si
rs.Cerrar
Función final
