怎么养将查到的内容打印到报表？

Question

现在建有一个access数据库，怎么样把年龄是30岁的人的详细资料打印输出到报表上呢（datareport）？

Answer 1

select * from 表 where 年龄=30
...
...
...
set datareport.datasource=rst(查询的记录集)

Answer 2

...rs.open "select * from tablename where age=30",cnif not rs.eof then
    set datareport1.datasource=rs
    datareport1.show
  else
    msgbox "没有符合条件的人员"
end ifset rs=nothing...

Answer 3

Option ExplicitDim adoConnectionX As New ADODB.Connection
Dim adoRecordsetX As New ADODB.RecordsetPrivate Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的，或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from 产品", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
  
  '-------------------------------------------------------------------------
  '以下根据控件所在区域(Sections)和所属控件类别等将它们分成若干集合

Answer 4

Set DataReport1.DataSource = rs