使用Excel作为Access数据库的前端(使用VBA)

Sub ConnectToAccessDatabase()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConn As String
    
    ' 设置数据库连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mydatabase.accdb;Persist Security Info=False;"
    
    ' 创建数据库连接对象
    Set conn = New ADODB.Connection
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 创建记录集对象
    Set rs = New ADODB.Recordset
    
    ' 执行查询操作
    rs.Open "SELECT * FROM mytable", conn, adOpenStatic, adLockOptimistic
    
    ' 遍历记录集并输出结果
    While Not rs.EOF
        Debug.Print rs("mycolumn").Value
        rs.MoveNext
    Wend
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub