使用了Oracle8i数据库
安装了Crystal Reports9.2
前提:
1。使用数据库专家在Crystal Reports9.2中,与在VB6中创建的连接是一样的
2。conn是用ADO方法正确打开的数据库链接
3。Report是从VB下添加的Crystal Reports9设计器变量。
4。在VB设计器中的报表设计与直接在Crystal Reports9.2中是一样的
5。Crystal Reports9.2中预览时正常显示报表,而在VB中执行到CRViewer.ViewReport时提示登录失败Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "select * from dic_employee"
Set rs = cmd.Execute
Report.Database.SetDataSource rs
CRViewer.ReportSource = Report
CRViewer.ViewReport