现在有一个个人信息access2000数据库,怎么样将居住地为“山西”的用户的个人信息(姓名、性别、年龄)输出到数据报表呢?
以下是部分代码:
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strsql As String
cn.Open "provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\db1.mdb"strsql = " select * from 个人信息 where 省分="山西" "rs.Open strsql, cn, adOpenStatic, adLockOptimisticIf Not rs.EOF Then
Set DataReport1.DataSource = rs
DataReport1.Show
Else
MsgBox "没有符合条件的人员"
End If
下来的datareport1该怎么做啊?
以下是部分代码:
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strsql As String
cn.Open "provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\db1.mdb"strsql = " select * from 个人信息 where 省分="山西" "rs.Open strsql, cn, adOpenStatic, adLockOptimisticIf Not rs.EOF Then
Set DataReport1.DataSource = rs
DataReport1.Show
Else
MsgBox "没有符合条件的人员"
End If
下来的datareport1该怎么做啊?
If .State = adStateOpen Then .Close
.Source = SQL语句
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
.DataSource=数据环境
.DataMember=Command名 这两行也可固定设好而不必每次设置
设置页表头部分(RpttLabel…为报表控件名)
.Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
.Sections(2).Controls("RptLabelDate").Caption = "打印日期:%D"
.Sections(3).Controls("RptLabel1").Left=…
…
设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
.Sections(3).Controls("RptShape1").Left=…
.Sections(3).Controls("RptShape1").Top=…
.Sections(3).Controls("RptShape1").Height=…
.Sections(3).Controls("RptShape1").Width=…
.Sections(3).Controls("RptTextBox1").DataMember=Command名
.Sections(3).Controls("RptTextBox1").DataField=字段1
.Sections(3).Controls("RptTextBox1").Font.Name=…
…
.Sections(3).Controls("RptShapeN").Visible=False
.Sections(3).Controls("RptTextBoxN").Visible=False
…
. Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
.Sections(2). Controls("RptLabelTitle").Left=…
…
.Sections(2). Controls("RptLabelTitle").Alignment=…
…
调整完毕后
.Show 或 .PrintReport
End With
这样做的优点是报表设计时简单,调整方便、随意,只需更改一点代码,而不必为了一点点的修改而费神的在设计窗口调整半天。
不过,现在基本推荐使用ActiveReport做报表,优点是,实现简单,打印功能可以随意设置。
我的站点 www.Emugua.net
最容易的就是加一个报表控件,然后设置它的各种属性.
设置它的datasource为你的查询SQL语句就可以了.
不过要记得先做报表.
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)和所属控件类别等将它们分成若干集合
在数据报表中,“分组”区域是显示记录集记录的区域,在该区域使用rptLabel控件作为字段名称的标签控件(用法跟Label控件相同),使用rptTextBox控件作为显示字段值的控件,其中DataField属性值必须设置为记录集的字段名,然后使用你以上的代码即可显示报表了。
然后在VB里调用该报表,重新设置数据源为rs即可。
Label3.Caption = rs.编号为什么不显示编号字段的内容呢?
Label3.Caption = rs.编号为什么不显示编号字段的内容呢?这是非法的,不可能将数据集rs的编号字段赋给Label3,Label控件不是容器.