如何显示和导出recordset中的内容？

kenccc

１、我在access用ADO打开了recordset，但不知如何将其中内容显示出来，比如在窗体上显示出来。正在开发小工具，卡壳了，求高人指点！！
２、如果不能在窗体显示，能否导出到excel文件？

tmtony

可建立一个窗体,在窗体打开事件中设置me.recordset=你的recordset
然后在窗体 添加控件,绑定为你的 各字段名,就可显示你的记录集中的内容了

kenccc

我的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

求救中。。。

xingzhihao

我昨天也遇到类似问题，已经解决，但是这种记录集不能编辑的，太遗憾了。
主要是加这一行：
me.form.recordset=rst

kenccc

xingzhihao你好!
我按加了你的那句,还是不行,能否提供完整些的代码?先谢了~~

xingzhihao

主窗体上建立一个子窗体
设置子窗体的模式为数据表
设置子窗体的数据源=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

导出excel

kenccc

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

鱼儿游游

set me.form.recordset=rst