function sql

Public Function 함수명() As Long
On Error GoTo err_rtn

Dim adCmd As New ADODB.Command
Dim adRlt As New ADODB.Recordset

    Set adCmd.ActiveConnection = adCon
    
    adCmd.CommandText = _
        "SELECT 컬럼명 FROM 테이블명 WHERE 조건"
    
    -- 입력값이 있는 경우
    -- ?
    ParaAppend adCmd, 1, adInteger, 변수
    ParaAppend adCmd, 2, adChar, 변수
    -- '#조건#'
    SQL문 = Replace(SQL문, '#조건#', 변수)
    
    adRlt.Open adCmd, , adOpenForwardOnly, adLockReadOnly
    -- open: adCmd 소스 오픈
    -- adOpenForwardOnly: 레코드 앞으로,
    -- adLockReadOnly: 읽기전용

    If adRlt.EOF Then -- 레코드가 없으면
        함수명 = 1 -- 기본값
    Else
        함수명 = 널이면대치(adRlt("컬럼명").Value)
    End If
    
end_rtn:
    adRlt.Close
    Set adCmd = Nothing
    Set adRlt = Nothing
    Exit Function
err_rtn:
    에러 출력 함수를 사용하거나,
    함수명 = false로 종료를 시키거나,,
    
End Function