none
VBA OBDC 연결오류 RRS feed

  • 질문

  • 아래의 코드는 VBA통해서 SQL 서버에 접급하고자 합니다. 저는 DB에 대해서는 거의 모릅니다.

    커넥션스트링 3가지 방법중 1번만 접속이 됩니다. 그러나 저의 컴퓨터에서만 되며 다른 컴에서는 오류가 발생됩니다.

    1번은 SQLOLED 방식의 접근인 것으로 이해되며, 2~3번은 OBDC 드라이버를 이용한 접근으로 이해됩니다.

    1번은 왜 저의 컴에서만 되는지, 다른 컴에서 점검 또는 설정해야 할 주요 사항이 무엇인지 ?

    2~3번은 왜 OBDC를 인식조차 못하는지 ? 

    이상 문의 드립니다. 혹시 32비트, 64비트 설정에 관한 문제인지도 ..레지스트리 수정을 통해 해결이 가능한지.. 등등.. 꼭좀 해결하고 싶습니다.

    ---------------------------------  아 래 ----------------------------------------------------------------------------------------------------

    Sub SQL서버접속()
    '// Microsofr ActiveX Data Objects 2.8 Library 참조


        Dim 연결       As New ADODB.Connection
        Dim Rs         As New ADODB.Recordset
        
        연결.CommandTimeout = 0
        
        
        Dim strConn    As String
        Dim strSQL     As String
        Dim IP, DB, 아이디, 비번
                
        IP = "210.X.X.X"
        DB = "Q****"
        아이디 = "h*****"
        비번 = "@*****"


    '# 컨넥션 스트링
    '    strConn = "Provider = SQLOLEDB;Data Source=" & IP & ";Initial Catalog= " & DB & ";User ID = " & 아이디 & ";Password=" & 비번 & ";"
    '    strConn = "Driver = {SQL Server};Data Source=" & IP & ";Initial Catalog= " & DB & ";UID = " & 아이디 & ";PWD=" & 비번 & ";readonly=1;"
        strConn = "DSN = DDD;Uid=hns_svc;Pwd=@tjqltmrhksflxla1;"


        연결.Open strConn

        
            '※ 연결여부 테스트
        If 연결.State = adStateOpen Then
            Debug.Print "연결됨"
        Else
            Debug.Print "연결실패"
        End If


    End Sub

    2022년 12월 2일 금요일 오전 5:09