VBA作為Excel的一個高級功能，還是有很多小夥伴喜歡來使用這個功能。那麼，在使用VBA編程的過程中，連接各種數據庫進行操作就成為了必備的一個技能。今天，我們就來給大家分享一下常見的一些數據庫的連接方式。

1、 Excel數據庫連接

Excel其實本身也可以當作一個數據庫來使用，首先我們就來看一下Excel的連接方法。

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