Office中国论坛/Access中国论坛

标题: 如何显示和导出recordset中的内容？ [打印本页]

作者: kenccc 时间: 2010-9-21 08:35
标题: 如何显示和导出recordset中的内容？
１、我在access用ADO打开了recordset，但不知如何将其中内容显示出来，比如在窗体上显示出来。正在开发小工具，卡壳了，求高人指点！！
２、如果不能在窗体显示，能否导出到excel文件？

作者: tmtony 时间: 2010-9-21 11:06
可建立一个窗体,在窗体打开事件中设置me.recordset=你的recordset
然后在窗体添加控件,绑定为你的各字段名,就可显示你的记录集中的内容了

作者: kenccc 时间: 2010-9-21 12:42
我的recordset是执行sql语句后查询出来的若干条记录，能否在窗体以“数据表”形式显示？最好能有一段代码示例，下面是我写的打开recordset的代码，后面不知怎样写了，我是新手，只好麻烦各位了，小的先行谢过~~~

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & CurrentProject.Path & "\随机抽件器1.5.mdb;"
rst.CursorLocation = adUseClient
sql = "SELECT distinct 操作员ID FROM telephone"
rst.Open sql, cnn

作者: kenccc 时间: 2010-9-21 13:06
求救中。。。

作者: xingzhihao 时间: 2010-9-21 16:01
我昨天也遇到类似问题，已经解决，但是这种记录集不能编辑的，太遗憾了。
主要是加这一行：
me.form.recordset=rst

作者: kenccc 时间: 2010-9-21 23:46
xingzhihao你好!
我按加了你的那句,还是不行,能否提供完整些的代码?先谢了~~

作者: xingzhihao 时间: 2010-9-22 09:31
主窗体上建立一个子窗体
设置子窗体的模式为数据表
设置子窗体的数据源=telephone
添加字段控件到子窗体
删除子窗体的数据源
运行下列程序
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" & CurrentProject.Path & "\随机抽件器1.5.mdb;"
rst.CursorLocation = adUseClient
sql = "SELECT distinct 操作员ID FROM telephone"
rst.Open sql, cnn
me.子窗体.form.recordset=rst

作者: mewell 时间: 2010-9-22 16:16
导出excel

作者: kenccc 时间: 2010-9-23 14:47
xingzhihao你好!
我按你写的代码运行,提示: 运行时错误'91':对象变量或with块变量未设置.
请帮忙看看附件,指出问题,谢谢!

作者: 鱼儿游游 时间: 2011-1-1 01:35
set me.form.recordset=rst

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