Office中国论坛/Access中国论坛

标题: 如何在窗体中显示Recordset记录集的内容 [打印本页]

作者: accher 时间: 2005-8-19 05:27
标题: 如何在窗体中显示Recordset记录集的内容
请教各位，我用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 时间: 2005-8-19 05:32
set me.form1.form.recordset=rs

作者: accher 时间: 2005-8-19 09:04
不行呀，结果如下：运行时错误'7965'你输入的对象不是有效的Recordset属性

作者: zxbjyp 时间: 2005-8-19 15:01
set rs = me.form1.form.recordset

作者: kenccc 时间: 2010-9-21 13:13
我也碰到同样的问题，期待高人指点！

作者: aslxt 时间: 2010-9-21 13:43
本帖最后由 aslxt 于 2010-9-21 13:46 编辑

假如有一个表的名称为“抄电表”，窗体有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 时间: 2010-9-24 16:34
终于可以了，感谢aslxt ！！

作者: clmk 时间: 2011-9-1 17:01
aslxt 就是高{:soso_e100:}

作者: wind7412 时间: 2016-9-23 15:47
怎么我还是不行呢？子窗口里没作任何记录？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)