본문 바로가기

it관련

ADODB 엑셀vba사용 접속참조

반응형

ADODB 엑셀vba사용 접속참조




참조 - Microsoft ActiveX Data Objects 2.X Library

 

Public Cn As New ADODB.Connection

Public RS As New ADODB.Recordset

Public strCn As String

'---------------------------------------------- DB_INFO

Public Const DB_IP As String = "아이피"

Public Const DB_PT As String = "포트번호"

Public Const DB_NM As String = "디비명"

Public Const DB_ID As String = "아이디"

Public Const DB_PW As String = "비밀번호"

Public Const DB_FA As String = "파일주소"

 

MSSQL

strCn = "Provider=SQLOLEDB" & _

        ";Data Source=" & DB_IP & _

        ";Database=" & DB_NM & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

strCn = "Provider=SQLOLEDB.1" & _

        ";Data Source=" & DB_IP & _

        ";Initial Catalog=" & DB_NM & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

ORACLE

strCn = "Driver={Microsoft ODBC for Oracle}" & _

        ";Sever=" & DB_IP & _

        ";Uid=" & DB_ID & _

        ";Pwd=" & DB_PW

 

strCn = "Provider=ORAOLEDB.Oracle.1" & _

        ";Data Source=" & DB_IP & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

MySQL

strCn = "Driver={MySQL ODBC 5.1 Driver}" & _

        ";Server=" & DB_IP & _

        ";Port=" & DB_PT & _

        ";Database=" & DB_NM & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

DB2

strCn = "Driver={IBM DB2 ODBC DRIVER}" & _

        ";Protocol=" & DB_IP & _

        ";Port=" & DB_PT & _

        ";Database=" & DB_NM & _

        ";Uid=" & DB_ID & _

        ";Pwd=" & DB_PW

 

strCn = "Provider=IBMDADB2.1" & _

        ";DSN=" & DB_NM & _

        ";Uid=" & DB_ID & _

        ";Pwd=" & DB_PW

 

ACCESS 2003

strCn = "Provider=Microsoft.JET.OLEDB.4.0" & _

        ";Data Source=" & DB_FA & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

ACCESS 2007

strCn = "Provider=Microsoft.ACE.OLEDB.12.0" & _

        ";Data Source=" & DB_FA & _

        ";User Id=" & DB_ID & _

        ";Password=" & DB_PW

 

DAO

EXCEL 2003

Opendatabase(DB_FA,False,True,"Excel 8.0.0;")

EXCEL 2007

Opendatabase(DB_FA,False,True,"Excel 12.0.0;")

반응형