请问如何将查询的结果输出到报表，谢谢

Question

我是用ADO连接数据库，发现VB的DATAREPORT报表数据源只能绑定表，存储过程，视图
我想将ADO连接后执行的查询结果输出的报表，不知如何去做。请各位朋友指教谢谢！

Answer 1

如果你用数据环境的话，可以建一个command，把查询语句写那command内。
也可以用Recordset,设置报表的数据源，DataReport1.DataSource = adoRS。
不知这是不是你想要的。

Answer 2

SQL="SELECT * FROM TABLE1"
SET OBJRST=OBJCONN.EXECUTE(SQL)
SET DATEREPORT1.DATASOURCE=OBJRST
在DETAIL段中，放置RPTTEXT框，该框有一个DATA_FIELD属性，让其赋值为TABLE1中的字段名称即可。

Answer 3

用datareport,报表名:datareport
打印表单上有一text控件和一按钮cmdprint
代码:
private sub cmdprint_click()
dim rs as new adodb.recordset
rs.open "select name from table where name='" & text1.text & "'",cn,1,1(cn为连接字串)
set datareport.datasource=rs
datareport.show
end sub在datareport中明细中画出rptTEXTBOX控件,设置datafield为字段名name.

Answer 4

定义的记录集rs查询后返回一个记录集
用dim dpt1 as new datareport1
set dpt1.datasource=rs
就行了，很简单的

Answer 5

利用dataenvironment 设置变量，然后通过command的click返回变量查询。可以将结果传给报表。