怎样打印出查询结果的报表？

Question

在一个窗体中，用MSFLEXGRID显示查询到的数据，用CHECK和TEXTBOX组合实现输入查询条件，不知道怎样才能在查询出符合条件的结果后打印查询到的结果报表而不是整个库中的内容。

Answer 1

就用datareport
dim rst as new adodb.recordset
dim cnn as new adodb.connection
dim sql as string
sql="……"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show

Answer 2

dim comd as adodb.command
set comd=new adodb.command
环境对象名.command.item(索引值).commandtext=SQL查询语句
报表名.showcomd 对象变量为报表环境窗口的对象名

Answer 3

舒畅老兄，用你方法不行啊，运行程序提示我rst.Open sql, cnn, adOpenKeyset, adLockPessimistic一句有错误，好象是什么类型不允许或者超出范围，或者发生冲突等类的话。是不是dataenvironmnet、command和datareport的属性设置有问题？

Answer 4

rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show
没有rsCommand1 属性

Answer 5

回楼主:
如果连接没问题的话
那这一句有错的话也许是sql语句的错吧
我一直就是用的这种方法,没有错啊