Função personalizada ASP, imitando a função de domínio DLookup em VBA
Autor：Eve Cole
Data da Última Atualização：2009-06-24 16:47:28
Função dlookup(strFieldName, strTableName, strWhere, objConn)
'Access VBA usando Dlookup'
'由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来
Diminuir strsql
Escureça rs
Definir rs = server.CreateObject("adodb.recordset")
'下面要调用外部的一个自定义函数 checksql()
strNomeCampo = checksql(strNomeCampo)
Se strWhere <> "" Então
strOnde = "onde" & strOnde
Terminar se
strsql="selecione "&strfieldname&" em "&strtablename&" " & strwhere
'debugstopstrsql
Em caso de erro, retomar o próximo
rs.Open strsql, objConn, 1, 1
Se Errar <> 0 Então
resposta.write Err.Descrição
resposta.end()
Terminar se
Se rs.EOF e rs.BOF então
dlookup = ""
Outro
'要调用一个自定义函数 NZ
'详细内容请参考 ACCESS VBA 帮助中的资料
dlookup = Nz(rs(strNomeCampo), "")
Terminar se
rs.Fechar
Função final
