运行一个基本查询

RDO

该事件过程返回一个基于 SQL 语句的结果集。它执行一个受限查询，并将结果集传递到一个控件，该控件将结果数据插入到某个 MSHFlexGrid 控件中。注意，建立结果集需要一个打开的连接。

Private Sub RunButton_Click()
   Dim rs As rdoResultset
   Set rs = cn.OpenResultset("select * from titles where title _
    like '%h'")
   rdoGrid1.ShowData rs
   rs.Close
End Sub

ADO

一旦打开了数据库连接，您就可以对其运行一个查询。下面的事件过程和先前的 RDO 代码是非常相似的。不过，在这种情况下，您用进行 SQL 查询的新 ADO Open 方法和 ADO Connection 对象作为参数，而不是使用 rdoConnection 对象的 OpenResultset 方法。您也可以选择使用 ADO Connection 对象的 Execute 方法，就象您可以在 RDO 中所做的那样（只要它不返回一个行集合）。

ADO2 和 RDO2 相比，一个主要的不同之处在于 ADO2 允许您创建一个记录集，并在打开该记录集之前对其属性进行设置。

Private Sub RunButton_Click()
   Dim rs As New ADODB.Recordset
   rs.Open "select * from titles where title like '%h'", cn
   ADOGrid1.ShowData rs
   rs.Close
End Sub

您可以运行该查询，并在 ADO 中异步地处理其结果集。也就是说，you specify the adFetchAsynch option on rs.Open，ADO 导致游标驱动程序自动充填背景中的结果集。