《神奇的VBA》编程：查询Access数据库

2022-11-29 05:00:30 运维 ℃

　　Access数据库是微软一个经典的小型数据库，该数据库在职场办公环境中有着广泛的应用，对于办公环境中，单个部门或者跨部门的数据存储、共享和交互有着重要的作用，弥补Excel表格在多人共享和数据存储的不足。今天《神奇的VBA》将分享如何从Access数据库中查询数据的代码。

　　首选注意事项：

　　VBE中务必添加引用“Microsoft Activex Data ObjectsLibrary” 任意版本即可。

　　无密码保护的数据库

　　这种情况可能很少见，但是如果您需要从未受保护的 Access 数据库中读取数据，可借鉴以下代码改写：

　　示例代码：是将名称为《公司信息》的Access数据库中的“员工信息表”中存储的所有员工信息一次性查询并显示在活动工作表中。

　　Sub 查询Access数据_不含数据库密码()Dim Conn As New ADODB.Connection'Microsoft Activex Data Objects LibraryDim rs As New ADODB.RecordsetDim sSQL As StringDim sConnect As StringsConnect ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\baowangfu\Desktop\公司信息.accdb;Persist Security Info=False;"Conn.Open sConnectsSQL = "SELECT * FROM 员工信息表"rs.Open sSQL, ConnActiveSheet.Range("A1").CopyFromRecordsetrsrs.CloseConn.CloseEnd Sub密码保护数据库

　　更常见的场景, 连接到密码保护访问数据库并不困难，所有内容都在使用的连接字符串（sConnect）中，下面示例中假设数据库密码为：123456。

　　Sub 查询Access数据_含数据库密码()Dim Conn As New ADODB.Connection 'Microsoft ActivexData Objects LibraryDim rs As New ADODB.RecordsetDim sSQL As StringDim sConnect As StringsConnect = "Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\baowangfu\Desktop\公司信息.accdb;Jet OLEDB:DatabasePassword=123456;"Conn.Open sConnectsSQL = "SELECT * FROM 员工信息表"rs.Open sSQL, ConnActiveSheet.Range("A1").CopyFromRecordsetrsrs.CloseConn.CloseEnd Sub需要说明的是，经过验证，如果数据库本身没有设置任何密码，那么带有密码的数据库连接字符串将忽略密码验证。直接连接数据库。

　　运用本篇《神奇的VBA》分享的几行代码，您即可连接到 Access 数据库以检索整表信息，非常简单。本篇抛砖引玉，实际运用时，需求场景多变，用户可以学习SQL语句按条件查询信息。