如何在窗体中显示Recordset记录集的内容

accher

请教各位，我用ADO Recordset做了个查询，要将查询结果在窗体中显示出来，尝试了几种办法都未能成功。先建立了一个列表框，将列表框的RowSource属性设为记录集；再尝试建立子窗体，把子窗体的RecordSource属性设为记录集；最后索性把窗体和列表框的Recordset属性都设为记录集。结果要么不支持，要么不匹配，都不行。我的过程是否有什么问题，或者还有其他的更好办法？以下是简单的程序：



Dim rs As New ADODB.Recordset

rs.Open "Table1", CurrentProject.Connection

       Me! Form1.Form.RecordSource = rs

       Me! Form1.Form.Recordset = rs

       Me.List1.RowSource=rs

       Me.List1. Recordset =rs

CHENZHIRONG

set me.form1.form.recordset=rs

accher

不行呀，结果如下：运行时错误'7965'你输入的对象不是有效的Recordset属性

zxbjyp

set rs = me.form1.form.recordset

kenccc

我也碰到同样的问题，期待高人指点！

aslxt

假如有一个表的名称为“抄电表”，窗体有Command0，抄电表子窗体，下列语法没有问题，注意最后一行的“set ...”
Private Sub Command0_Click()
  Dim Rec As ADODB.Recordset
  Set Rec = New ADODB.Recordset
  Rec.Open "SELECT * FROM 抄电表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Set Me.抄电表子窗体.Form.Recordset = Rec
End Sub
如果还有问题，请做实例库传上来，帮你看看

kenccc

终于可以了，感谢aslxt ！！

clmk

aslxt 就是高{:soso_e100:}

wind7412

怎么我还是不行呢？子窗口里没作任何记录？

wind7412

我的窗体能显示了，但是找出5百多条记录，显示的速度慢啊，是什么原因呢？我是用ADO连接的Oracle数据库（ODBC方式）,然后进行SQL查询，得到记录集的。有谁知道吗？