[VB] 명령 구하기

VB 2015.05.15 09:00

■ 명령 구하기

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

Public Function GetCommand(pConnection As ADODB.Connection, pCommandType As CommandTypeEnum, bPrepared As Boolean, strCommandText As String) As ADODB.Command

    

    Dim pCommand As ADODB.Command

    

    Set GetCommand = Nothing

    

    On Error GoTo ErrorLabel

    

    Set pCommand = New ADODB.Command

    

    With pCommand

        .ActiveConnection = pConnection

        .CommandType = pCommandType

        .Prepared = bPrepared

        .CommandText = strCommandText

    End With

    

    On Error GoTo 0

    

    Set GetCommand = pCommand

    

    Exit Function

    

ErrorLabel:

 

End Function

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

'VB' 카테고리의 다른 글

[VB] FORMAT 함수 사용하기  (0) 2015.05.15
[VB] 문자열 개행 코드 사용하기  (0) 2015.05.15
[VB] INSERT SQL 실행하기  (0) 2015.05.15
[VB] SELECT SQL 실행하기  (0) 2015.05.15
[VB] 파라미터 추가하기  (0) 2015.05.15
[VB] 명령 구하기  (0) 2015.05.15
[VB] SELECT SQL 실행하기  (0) 2015.05.15
[VB] 레코드셋 구하기  (0) 2015.05.15
[VB] MDB 연결 구하기  (0) 2015.05.15
[VB] 응용 프로그램 경로 구하기  (0) 2015.05.15
[VB] 함수 프로시저 사용하기  (0) 2015.05.15
Posted by 사용자 icodebroker

댓글을 달아 주세요