在EXCEL的VBA中使用DAO方式及ADO方式连接ACCESS数据库示例代码

在EXCEL的VBA中使用DAO方式及ADO方式连接ACCESS数据库示例代码

'*******************************************************DAO(DAO 3.6 Object)方式*******************************************

Public Function DAO_SHILIE() As Integer '在EXCEL的VBA中使用DAO方式连接ACCESS数据库示例代码
'要先引用工程库：Microsoft DAO 3.6 Object Library
Dim dbs As Database '申明数据库变量
Dim rs As Recordset '申明记录集变量

Set dbs = OpenDatabase(ThisWorkbook.Path & "\ssl.mdb") '打开数据库
Set rs = dbs.OpenRecordset("SELECT % FroM ssl") '打开记录集

MsgBox (rs.RecordCount) '读取成功

rs.Close '关闭记录集
cnn.Close '关闭数据库
Set rs = Nothing '清空内存
Set cnn = Nothing '清空内存

End Function

'*******************************************************ADO(ActiveX Data Objects)方式*******************************************

Public Function ADO_SHILIE() As Integer '在EXCEL的VBA中使用ADO方式连接ACCESS数据库示例代码
'要先引用工程库：Microsoft ActiveX Data Objects 6.0 Library
'此方法可以直接在代码中提供查询SQL进行查询并返回结果

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & ThisWorkbook.Path & "\ssl.mdb;Mode=ReadWrite;Extended Properties='';Jet OLEDB:System"
strsql = "select * from ssl;"
rs.Open strsql, cnn, adOpenKeyset, adLockReadOnly '打开记录集

MsgBox (rs.RecordCount) '读取成功

rs.Close '关闭记录集
cnn.Close '关闭数据库
Set rs = Nothing '清空内存
Set cnn = Nothing '清空内存

End Function