Access数据库是微软一个经典的小型数据库,该数据库在职场办公环境中有着广泛的应用,对于办公环境中,单个部门或者跨部门的数据存储、共享和交互有着重要的作用,弥补Excel表格在多人共享和数据存储的不足。
本篇《神奇的VBA》将继续分享Access方面操作,如何从Access数据库中查询所有数据库表信息。
首选注意事项:
VBE中务必添加引用“Microsoft Activex Data ObjectsLibrary” 任意版本即可。
示例代码:
Sub 提取Access数据所有数据表名称()
Dim Conn As New ADODB.Connection 'Microsoft Activex Data Objects Library
Dim rs As New ADODB.Recordset
Dim sSQL As String
Dim sConnect As String
Dim i As Long
sConnect ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\baowangfu\Desktop\公司信息.accdb;Jet OLEDB:DatabasePassword=123456;"
Conn.Open sConnect
Set rs = Conn.OpenSchema(adSchemaTables, Array(Empty,Empty, Empty, "TABLE"))
If Not rs.EOF Then
Do While Not rs.EOF
i = i 1
ActiveSheet.Range("A" & i).Value = rs!TABLE_NAME
rs.MoveNext
Loop
End If
rs.Close
Conn.Close
End Sub
经过运行验证,完美获取数据库中的所有表信息。运用本篇《神奇的VBA》分享的代码,本篇抛砖引玉,实际运用时,用户可以借鉴进行标准化封装,便于复用。
原创码字不易欢迎"点赞","转发" 或点击"在看"更多文章
《神奇的VBA》编程:一次性讲清楚VBA注释
《神奇的VBA》编程:另存工作表
《神奇的VBA》全面改版升级中
《神奇的VBA》一款Excel VBA编程学习插件
《神奇的VBA》编程:查询Access数据库
《神奇的VBA》编程:执行速度和效率(1)
《神奇的VBA》编程:根据次数重复排列数据
《神奇的VBA》编程:监控表格单元格值的变化
《神奇的VBA》编程:批量清除多个字符
《神奇的VBA》-职场牛人都在使用的Excel插件
《神奇的VBA》编程:提取超链接地址
《神奇的VBA》编程:批量替换表格文字(1)
《神奇的VBA》编程:批量替换表格文字(2)
《神奇的VBA》编程:批量替换表格文字(3)
《神奇的VBA》编程:高效拆分单元格数据
《神奇的VBA》编程:批量拆分单元格数据
《神奇的VBA》编程:执行速度和效率(2)
《神奇的VBA》编程:禁止修改Excel工作表名称
《神奇的VBA》编程:禁止修改Excel工作表名称
《神奇的VBA》编程:强制变量声明 Option Explicit
,