[VB] 파라미터 추가하기

■ 파라미터를 추가하는 방법을 보여준다.

▶ 예제 코드 (VB)


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

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