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

[VB] 명령 구하기

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

'VB' 카테고리의 다른 글

[VB] FORMAT 함수 사용하기  (0) 2015.05.15
[VB] CHR 함수 : 개행 문자 사용하기  (0) 2015.05.15
[VB] INSERT SQL 실행하기  (0) 2015.05.15
[VB] SELECT SQL 실행하기  (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
TAG ,

댓글을 달아 주세요