첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.

[VB] 파라미터 추가하기

VB 2015. 5. 15. 09:00
728x90
반응형
728x170
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
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요