菜鸟发问,如何将查询结果传入AdoDc,然后再传入报表

box1106 2003-11-08 05:14:31
如题!其实我知道这是个简单的问题,但我没能实现它。由select语句得到查询结果,可如何把它传入AdoDc,再传入报表呢?我的代码如下:
'querystring 为得到的select语句


Dim rpt1 As New DataReport1
Dim cnn1 As ADODB.Connection
Dim ado As ADODB.Recordset
Dim strcnn As String

Set cnn1 = New ADODB.Connection

strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source=E:\wzq\client\db1.mdb;Persist Security Info=False"
cnn1.Open strcnn

Set ado = New ADODB.Recordset

ado.Open querystring, strcnn, , , adCmdText
Set rpt1.DataSource = ado
rpt1.Show 1

可是提示出错,不知这样对不对?谢谢各位大侠帮忙了!
...全文
16 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

6,108

社区成员

发帖
与我相关
我的任务
社区描述
其他数据库开发 数据库报表
社区管理员
  • 数据库报表社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧