VBA MSSQL 접속

MSSQL 접속

---

라이브러리 추가

도구 -> 참조 

다음과 같이 라이브러리를 추가해 줍니다.

라이브러리를 추가해 줘야 DB를 사용할수 있습니다. 

---

VBA 코드 

Sub test()
    Dim 연결 As New ADODB.Connection
    Dim 레코드셋 As New ADODB.Recordset
    Dim OLEDB As String
    Dim xsql As String
    Dim ms_odbc_address As String

    ms_odbc_address = "Driver={SQL Server};Server="ip";Database="dbname";UID="userid";PWD="userpasswd""
    
    연결.Open ms_odbc_address
    
    xsql  = "select * from ..."

    레코드셋.Open xsql, 연결
        
    While (Not 레코드셋.EOF)
      Debug.Print ms_레코드셋(1).Value
      ms_레코드셋.MoveNext
    Wend

     레코드셋.Close

    연결.Close
    

    
End Sub

이상으로 간단하게 MSSQL 접속 하는 방법 입니다.