用VB Access MsgBox实现多个结果的SQL查询

Dim conn As Object
Dim rs As Object
Dim strSQL As String

' 创建数据库连接对象
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"

' 创建记录集对象
Set rs = CreateObject("ADODB.Recordset")

' 执行第一个SQL查询
strSQL = "SELECT * FROM Table1"
rs.Open strSQL, conn

' 检查是否有结果
If Not rs.EOF Then
    ' 遍历结果集并显示每个结果
    Do Until rs.EOF
        MsgBox rs.Fields("ColumnName").Value
        rs.MoveNext
    Loop
End If

' 关闭第一个结果集
rs.Close

' 执行第二个SQL查询
strSQL = "SELECT * FROM Table2"
rs.Open strSQL, conn

' 检查是否有结果
If Not rs.EOF Then
    ' 遍历结果集并显示每个结果
    Do Until rs.EOF
        MsgBox rs.Fields("ColumnName").Value
        rs.MoveNext
    Loop
End If

' 关闭第二个结果集
rs.Close

' 关闭数据库连接
conn.Close
Set rs = Nothing
Set conn = Nothing