엑셀 vba/기타
SQL SERVER 연결
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 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= " ..
