如何在数据报表打印中打印出符合要求的记录？

Question

我刚学着用VB编写数据库程序，有一个问题：
我想在数据报表打印中打印出符合要求的记录，我的想法是通过SQL 的WHERE 语句来控制在数据环境中的数据源，但一运行，就出错，提示为“无效的数据塬”，请问如何解决？

Answer 1

我现在的问题是：我数据环境的数据源是由 SQL 语句： SELECT * FROM 收文管理 WHERE id = numb ORDER BY ID ，其中NUMB 是我定义的参数，程序一运行，就提示为“NUMB无默认值”，关键的问题是检索的NUMB值我应该在何处输入？

Answer 2

还有，NUMB是动态变化的，不是定值

Answer 3

是不是从程序中取出来的值？是的话就这样写
dim strSql as string
strSql="SELECT * FROM 收文管理 WHERE id =" & numb & " order by id"

Answer 4

Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReportdazd.DataSource = DataEnvironment1
DataRepor1.Showrst是adodb.recordset
把你的数据源赋给这里的rst就行了

Answer 5

谢谢舒畅，我还有疑问，RST是什么？
我是这么定义RST的：
dim RST as string
RST="SELECT * FROM 收文管理 WHERE id =" & numb & " order by id"Set DataEnvironment1.rs收文管理.DataSource = RST     （一运行就到RST出错了）
Set drsw.DataSource = DataEnvironment1                (drsw是我数据报表名称）
drsw.Show我应该如何定义RST？还请继续帮助，谢谢！！！！

Answer 6

rst是记录集
project->references->microsoft activex data objects 2.7 libraryDim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset