vba连接本地Access

以下是连接本地Access数据库的VBA代码示例：

1. 声明一个ADODB.Connection对象：

Dim conn As New ADODB.Connection

2. 设置连接字符串：

Dim strConn As String strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyDatabase.accdb"

注意：这里的“C:\MyDatabase.accdb”是你本地Access数据库的路径和文件名。

3. 打开数据库连接：

conn.Open strConn

4. 执行SQL语句：

Dim strSQL As String strSQL = "SELECT * FROM MyTable" Dim rs As New ADODB.Recordset rs.Open strSQL, conn

5. 处理查询结果：

If Not rs.EOF Then Do While Not rs.EOF Debug.Print rs("FieldName") rs.MoveNext Loop End If

6. 关闭数据库连接：

rs.Close conn.Close

注意：在使用完连接对象和记录集对象后，一定要关闭它们，否则可能会影响程序的性能和稳定性