VBA之连接各种数据库

1.连接各种数据库接口
Dim conn As New ADODB.Connection
conn.Open “Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Edata.xlsx;extended properties=”“excel 12.0;HDR=YES”""
conn.Close

ACCESS文件
conn.Open “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Adata.accdb”

Mysql数据库
conn.Open “Provider=SQLOLEDB;DataSource=” & Path & “;Initial Catolog=” & strDataName

MSSQL数据库
conn.Open “Provider=MSDASQL;Driver={SQL Server};Server=” & Path & “;Database=” & strDataName

Oracle数据库
conn.Open “Provider=madaora;Data Source=MyOracleDB; User Id=UserID; Password=Password”

2.连接步骤

3.抓取数据

4.常用SQL语句


5.连接ACCESS数据库