¡Recopile el código de efecto especial más práctico de la página web!
Function dlookup (strfieldname, strtableName, strwwhere, objconn)
'Función de referencia d Plookup en Access VBA
'Debido al entorno diferente, se agregan los parámetros OBJCONN y la Connección ADODB.
Dim strsql
Dim RS
establecer rs = server.createObject ("ADODB.Oldset")
'Llamemos a una función personalizada externa checksql ()
StrfieldName = checkSql (strfieldname)
Si Strwher <> "" entonces
Strwhere = "donde" y fuerte
final si
Strsql = "select" & strfieldname & "de" & strtableName & "" & strwher
'Debugstop strsql
En el currículum de error siguiente
Rs.oopen Strsql, Objconn, 1, 1
si err <> 0 entonces
Response.Write Err.Descripting
respuesta.end ()
final si
Si Rs.Eof y Rs.Bof entonces
dlookup = "" "
demás
'Llamar a una función personalizada nz
'Para más detalles, consulte la información de la ayuda de VBA Access
dlookup = nz (rs (rs (strfieldname), "")
final si
Rs.
función final