Fonction personnalisée ASP, imitant la fonction de domaine DLookup dans VBA
Auteur：Eve Cole
Date de mise à jour：2009-06-24 16:47:28
Fonction dlookup(strFieldName, strTableName, strWhere, objConn)
'Access VBA et Dlookup'
'由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来
Faible strsql
Dim rs
Définir rs = server.CreateObject("adodb.recordset")
'Le test de vérification de checksql()
strFieldName = checksql(strFieldName)
Si strOù <> "" Alors
strOù = " où " & strOù
Fin si
strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
'debugstop strsql
En cas d'erreur, reprendre ensuite
rs.Open strsql, objConn, 1, 1
Si Err <> 0 Alors
réponse.write Err.Description
réponse.end()
Fin si
Si rs.EOF et rs.BOF Alors
recherche = ""
Autre
'要调用一个自定义函数 NZ
'详细内容请参考 ACCESS VBA fichiers
dlookup = Nz(rs(strFieldName), "")
Fin si
rs.Fermer
Fonction de fin
