在VBA中使用SQL Select语句

Sub ExecuteSQLSelect()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，指定数据库类型和连接信息
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 打开连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构造SQL Select语句
    strSQL = "SELECT * FROM TableName"
    
    ' 执行SQL语句并将结果存储在记录集中
    rs.Open strSQL, conn
    
    ' 遍历记录集并处理数据
    Do Until rs.EOF
        ' 处理每条记录的数据
        ' 例如，输出记录中的某个字段值到调试窗口
        Debug.Print rs.Fields("FieldName").Value
        
        ' 移动到下一条记录
        rs.MoveNext
    Loop
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub