Benutzerdefinierte ASP-Funktion, die die Domänenfunktion DLookup in VBA imitiert
Autor：Eve Cole
Aktualisierungszeit：2009-06-24 16:47:28
Funktion dlookup(strFieldName, strTableName, strWhere, objConn)
„Access VBA“-Funktion „Dlookup“ ist verfügbar
'Eine neue Website mit ObjConn und Adodb.connection
Strsql dimmen
Dim rs
Setze rs = server.CreateObject("adodb.recordset")
'下面要调用外部的一个自定义函数 checksql()
strFieldName = checksql(strFieldName)
Wenn strWhere <> "" Dann
strWhere = " where " & strWhere
Ende wenn
strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
'debugstop strsql
Bei Fehler Weiter fortsetzen
rs.Open strsql, objConn, 1, 1
Wenn Err <> 0, dann
Response.write Err.Description
Antwort.end()
Ende wenn
Wenn rs.EOF und rs.BOF dann
dlookup = ""
Anders
'要调用一个自定义函数 NZ
'Die Zugriffsrechte für ACCESS VBA sind nicht verfügbar
dlookup = Nz(rs(strFieldName), "")
Ende wenn
rs.Schließen
Funktion beenden
