文章作者 100test 发表时间 2007:09:06 11:59:35
来源 100Test.Com百考试题网
第一步:
在VB工程中Project菜单加入"Add Crystal Report 9",报表名使用默认即可。这时Form2(Crystal Rerport自动添加的Form,假设名为Form2)被自动分配了如下代码:
Option Explicit Private Sub Form_Load() Screen.MousePointer = vbHourglass 调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report 该语句的赋值将在后面被修改 CRViewer91.ViewReport End Sub Private Sub Form_Resize() CRViewer91.Top = 0 End Sub |
第二步:
点击Crystal Report设计器的"数据库字段",选定"数据库专家...",然后点"创建新连接",再点"仅字段定义",创建"数据库定义"文件,字段名和宽度和原数据库表保持一致。最后,在数据库字段中获得了相应字段,将其置于报表上,按水晶报表的要求配置。
第三步:
该步骤非常关键,添加一个Modual到工程文件中,定义全局的ADODB变量,实现数据库和水晶报表的动态连接。代码如下:
Public conn As New ADODB.Connection Public rs As New ADODB.Recordset |
第四步:
关于VB程序的ADO数据库连接注意事项,请看下面的打印按钮例程。
Private Sub Command1_Click() Dim connstr As String If conn.State = adStateOpen Then conn.Close |