[VB] MDB 연결 구하기

VB 2015.05.15 09:00

■ MDB 연결 구하기

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

Public Function GetMDBConnection(strMDBFilePath As String) As ADODB.Connection

    

    Dim pConnection         As ADODB.Connection

    Dim strConnectionString As String

    

    Set GetMDBConnection = Nothing

    

    On Error GoTo ErrorLabel

    

    Set pConnection = New ADODB.Connection

 

    strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strMDBFilePath

    

    pConnection.Open strConnectionString

    

    On Error GoTo 0

 

    Set GetMDBConnection = pConnection

    

    Exit Function

 

ErrorLabel:

    

End Function

 

Public Function GetMDBConnection(strMDBFilePath As String, strUserID As String, strPassword As String) As ADODB.Connection

    

    Dim pConnection         As ADODB.Connection

    Dim strConnectionString As String

    

    Set GetMDBConnection = Nothing

    

    On Error GoTo ErrorLabel

    

    Set pConnection = New ADODB.Connection

 

    strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strMDBFilePath + ";User ID=" + strUserID + ";Jet OLEDB:Database Password=" + strPassword

    

    pConnection.Open strConnectionString

    

    On Error GoTo 0

 

    Set GetMDBConnection = pConnection

    

    Exit Function

 

ErrorLabel:

    

End Function

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

'VB' 카테고리의 다른 글

[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
[VB] 속성 사용하기  (0) 2015.05.15
[VB] FOR ~ TO ~ STEP ~ EXIT FOR ~ NEXT문 사용하기  (0) 2015.05.15
[VB] 키보드 & 마우스 잠그기  (0) 2015.05.15
Posted by 사용자 icodebroker