SQL SERVER 연결

Option Explicit
 
Dim Cn  As ADODB.Connection
Dim rs  As ADODB.Recordset
Dim SQL As String
 
Sub DataBase연결()
 On Error Resume Next
 Dim a, b, c, d As String
 
 a = "DB IP 어드레스" 'IP 어드레스
 b = "DB 이름"        'DB
 c = "ID"             'ID
 d = "password"       'PW
 Set Cn = New ADODB.Connection
 Set rs = New ADODB.Recordset
 Cn.Open "Provider = SQLOLEDB;Data Source=" & a & ";Initial Catalog= " & b & ";User ID = " & c & ";Password=" & d & ";"
End Sub

 

ip 어드레스, db 이름, id, pw 네군데만 자신의 DB에 맞게 수정하면 됩니다.