在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