VB6中使用报表及向报表传送动态数据

VB6不太熟悉，为了帮朋友实现一个报表，重新拾了一下，过程如下：

1、引用ADO的过程就不详细说了；

2、建立一个工程后，主要有三个文件：

3、窗口文件设置简单，主要的任务是显示报表，并接收一个动态的值传送给报表显示，如标题、时间一类的：

4、定义一个数据结构，来自于要使用的数据库内表，建立一Connection之后再使用Sql进行读取：

5、在报表文件内使用“检索结构”后，将结构内的字段排列在报表文件内，报表标题为空，显示从主调用程序传递来的数据，此处为Label5：

6、在主窗口程序的按钮中写如下代码：

Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=*;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=.\sql2000"
    conn.Open
    
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT top 2 * FROM EMPLOYEES", conn
    
    Set DataReport1.DataSource = rs
    DataReport1.Sections(1).Controls("Label5").Caption = Text1.Text
    DataReport1.Show
    
End Sub

7、程序运行结果如下（只取两行数据）：