가장 실용적인 웹 페이지 특수 효과 코드를 수집하십시오!
함수 dlookup (striffieldname, strtablename, strhows, objconn)
'Access VBA에서 DLOOKUP 기능을 참조하십시오
'다른 환경으로 인해 OBJConn 매개 변수가 추가되고 adodb.connection이 직접 전송됩니다.
Dim Strsql
희미한 Rs
set rs = server.createobject ( "adodb.oldset")
'외부 사용자 정의 함수 checkl ()에게 전화합시다.
strfieldname = checksql (strifffieldname)
strwhere <> ""라면
strwhere = "여기서"& strong
끝 If
strsql = "select"& strfieldname & "from"& strtablename & ""& strwhere
'Debugstop strsql
다음에 오류가 재개됩니다
Rs.OOPEN strsql, objconn, 1, 1
err <> 0이면
response.write err.descripting
응답 ()
끝 If
rs.eof와 rs.bof라면
dlookup = "" "
또 다른
'사용자 정의 기능 NZ를 호출합니다
'자세한 내용은 Access VBA 도움말의 정보를 참조하십시오.
dlookup = nz (rs (rs (strfieldname), "")
끝 If
Rs.Close
엔드 기능