아래의 코드는 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
