VB6 ADO Set rs = command.Execute

您好！您提到的问题是关于在使用 VB6 和 ADO 时如何执行命令并将结果存储在 Recordset 对象中。以下是一个简单的示例，说明如何执行命令并将结果存储在 Recordset 对象中：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

' 创建连接对象
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Persist Security Info=False"
conn.Open

' 创建命令对象
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM mytable"
cmd.CommandType = adCmdText

' 执行命令并将结果存储在 Recordset 对象中
Set rs = cmd.Execute

' 遍历 Recordset 对象并显示结果
Do While Not rs.EOF
    Debug.Print rs("column1"), rs("column2")
    rs.MoveNext
Loop

' 关闭 Recordset 和连接对象
rs.Close
conn.Close

' 释放对象
Set rs = Nothing
Set conn = Nothing
Set cmd = Nothing

在这个示例中，我们首先创建了一个 ADODB.Connection 对象，并使用 Jet 数据库引擎打开一个本地数据库文件。然后，我们创建了一个 ADODB.Command 对象，并将其与连接对象关联。我们将 SQL 查询语句设置为命令对象的 CommandText 属性，并指定我们要执行的命令类型。最后，我们使用命令对象的 Execute 方法执行命令并将结果存储在 Recordset 对象中。我们可以遍历 Recordset 对象并显示结果，然后关闭 Recordset 和连接对象，并释放对象。