VB6调用crystal v.92做的报表,总是出现数据库登陆对话框,不知道怎么办!!高分求救~~
0755 2003-10-24 01:48:28
环境:win2000,vb6,crystalv9.2,sqlserver2K
在Crystal中采用OLEDB连接数据库,vb6中调用Crystal做成的报表时,老是出现数据库登陆对话框,不知道怎么去除,请各位大侠多多指教,我的VB代码如下:
Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
Set Report = CryApp.OpenReport(App.Path & "\report\SampleBill.rpt")
'adoRS.Open "select top 10 * from answers", cnn1, adOpenDynamic, adLockBatchOptimistic
'Report.Database.SetDataSource adoRS
CRViewer91.ReportSource = Report
CRViewer91.ViewReport