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= " & b & ";User ID = " & c & ";Password=" & d & ";"
End Sub
|
cs |
ip 어드레스, db 이름, id, pw 네군데만 자신의 DB에 맞게 수정하면 됩니다.
'엑셀 vba > 기타' 카테고리의 다른 글
엑셀에서 카카오톡 메세지 보내기 (1) | 2020.08.21 |
---|---|
VBA 맨위의 행으로 이동하는 명령어 (0) | 2020.03.05 |
날짜를 요일로 반환받기 (0) | 2019.12.23 |
중복 데이터값 합산하기 #2 (0) | 2019.12.21 |
중복 데이터값 합산하기 (0) | 2019.12.20 |