在VB6中怎么做数据报表?

Question

指定data report的dataresourse(数据源)

Answer 1

data report 的 dataresourse 无法与数据库连接起来

Answer 2

http://www.playyuer.com 提供
《vb 6之数据报表使用技巧》
http://media.ccidnet.com/media/ciw/871/b1301.htm
《VB6之Data Report全面解决方案(1)》
http://microinfo.top263.net/Txt/DRptPlus.txt
《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
http://microinfo.top263.net/Txt/ImageRpt.txt
下载例程
http://microinfo.top263.net/Zip/ImageRpt.exe
http://microinfo.top263.net/Zip/FmtDatRpt.zip

Answer 3

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim connstr As String
Dim ssql As String
ssql = "select * from order1 order by style_no"
connstr = "provider=microsoft.jet.oledb.3.51;data source=" & App.Path & "\wei1.mdb"
conn.Open connstr
Set rs = conn.Execute(ssql)
End Sub
Private Sub Command1_Click()
If rs.State <> adStateOpen Then
  rs.Open
End If
Set DataReport1.DataSource = rs
DataReport1.Sections("section1").Controls.Item("text1").DataField = rs.Fields(0).Name
DataReport1.Sections("section1").Controls.Item("text2").DataField = rs.Fields(1).Name
DataReport1.Sections("section1").Controls.Item("text3").DataField = rs.Fields(2).Name
DataReport1.Sections("section1").Controls.Item("text4").DataField = rs.Fields(3).Name
DataReport1.Sections("section1").Controls.Item("text5").DataField = rs.Fields(4).Name
DataReport1.Sections("section1").Controls.Item("text6").DataField = rs.Fields(5).Name
DataReport1.Sections("section1").Controls.Item("text7").DataField = rs.Fields(6).Name
DataReport1.WindowState = vbMaximized
DataReport1.Show
End Sub