Excel VBA连接各种类型数据库-Excel、Access、mysql、sqlserver

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

(0)

相关推荐