첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

[VB] 파라미터 추가하기

VB 2015. 5. 15. 09:00

■ 파라미터 추가하기

----------------------------------------------------------------------------------------------------

Public Function AddParameter(pCommand As ADODB.Command, strParameterName As String, pDataType As DataTypeEnum, pParameterDirection As ParameterDirectionEnum, pSize As ADO_LONGPTR) As ADODB.Parameter

 

    Dim pParameter As ADODB.Parameter

    

    Set AddParameter = Nothing

    

    On Error GoTo ErrorLabel

    

    Set pParameter = pCommand.CreateParameter(strParameterName, pDataType, pParameterDirection, pSize)

 

    pCommand.Parameters.Append pParameter

    

    Set AddParameter = pParameter

    

    Exit Function

    

ErrorLabel:

 

End Function

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker

댓글을 달아 주세요