第三步：
该步骤非常关键，添加一个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
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序当前目录的测试Access数据库
conn.ConnectionString = connstr
conn.Open
conn.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
rs.Open "test", conn, adOpenKeyset, adLockReadOnly
' Report.Database.SetDataSource rs, 3, 1
Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程
End Sub
需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。
第五步：
创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。
上一篇:
VB中用第三方控件打造Office XP菜单
下一篇:
VB设计自动提醒小程序
精品推荐