Sub db_Excel()
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cnStr As String
cnStr = \公众Provider = Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;Data Source = \"大众 & ThisWorkbook.FullName
cn.Open (cnStr)
If cn.State = 1 Then
MsgBox \"大众数据库连接成功！
\"大众
Else
MsgBox \公众数据库连接失落败，请重试！
\"大众
End If
End Sub
2、 Access数据库连接Access数据库作为office家族中的一员，是微软供应的一个桌面型的数据库，如果你的office软件是完全安装的话，默认就已经安装了Access数据库。如果进行一些大略的数据存储的话，Access不愧为一个很好的选择。
Sub db_Access()
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cnStr As String
cnStr = \"大众Provider = Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='';Data Source='\\192.168.31.101\db\data.mdb'\"大众
cn.Open (cnStr)
If cn.State = 1 Then
MsgBox \公众数据库连接成功！
\公众
Else
MsgBox \公众数据库连接失落败，请重试！
\"大众
End If
End Sub
3、 mysql数据库连接mysql数据库是一款开源的数据库产品，是最盛行的关系型数据库管理系统之一，在 WEB 运用方面，MySQL是最好的 RDBMS (Relational Database Management System，关系数据库管理系统) 运用软件之一。对付一样平常的个人利用者和中小型企业来说，MySQL供应的功能已经绰绰有余，而且由于 MySQL是开放源码软件，因此可以大大降落总体拥有本钱。强烈推举各位开拓者利用该数据库进行开拓。
Sub db_Mysql()
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cnStr As String
mydriver = \公众Driver={MySQL ODBC 8.0 Unicode Driver}\公众
host = \公众192.168.31.237\"大众
database = \"大众vbatest\公众
user = \公众root\公众
pw = \"大众123456789\公众
cnStr = mydriver & \公众;Server=\"大众 & host & \公众;Database=\公众 & database & \"大众;Uid=\公众 & user & \"大众;Pwd=\公众 & pw & \"大众;option=3\"大众
cn.Open (cnStr)
If cn.State = 1 Then
MsgBox \公众数据库连接成功！
\公众
Else
MsgBox \公众数据库连接失落败，请重试！
\"大众
End If
End Sub
4、 sqlserver数据库连接SQL Server 是Microsoft 公司推出的关系型数据库管理系统。具有利用方便可伸缩性好与干系软件集成程度高档优点，可超过从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2012 的大型多处理器的做事器等多种平台利用。
Sub db_Sqlserver()
On Error Resume Next
Dim cn As New ADODB.Connection
Dim cnStr As String
mydriver = \"大众Provider=sqloledb\"大众
host = \"大众192.168.31.101\公众
database = \"大众vbatest\"大众
user = \公众lou\"大众
pw = \"大众123456\"大众
cnStr = mydriver & \公众;Server=\公众 & host & \"大众;Database=\"大众 & database & \"大众;Uid=\公众 & user & \公众;Pwd=\"大众 & pw & \"大众;option=3\"大众
cn.Open (cnStr)
If cn.State = 1 Then
MsgBox \"大众数据库连接成功！
\公众
Else
MsgBox \"大众数据库连接失落败，请重试！
\"大众
End If
End Sub
