环境: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
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
解决方案 »
- 被BARCODE PRINTER搞的头大
- 请问高手:如何用TWAIN设备自动拍照?
- 选择多条记录
- VB中如何执行一条SQL语句.?
- 如何来制作这样的一个程序!
- wav文件的文件头格式?
- VB中GRID控件如何实现分页显示?
- data控件能否实现“另存为”?请讲的详细点
- 为什么我用DATE 读*。mdb老是说不能识别啊???
- 我想利用api删除注册表下HKEY_CURRENT_USER\software\microsoft\internet explorer\typedurls\下的所有键值(给满分, 再要再加)
- WIN2K隐藏进程和任务管理器看不见,第三方软件也找不到,高手请进?
- 怎样ReDim 一个二维数组?
Dim CryApp As New CRAXDDRT.Application Dim moxAplication As CRAXDRT.Application
Dim moxData As CRAXDRT.DatabaseTable
Set moxAplication = New CRAXDRT.Application
Set moxReport = moxAplication.OpenReport("E:\jyc040e1.rpt")
Call moxReport.DiscardSavedData
Call moxReport.Database.Tables(2).SetLogOnInfo("aplite2", "", "ct00", "nec")
'***或者用下面的
' For Each moxData In moxReport.Database.Tables
' Call moxData.SetLogOnInfo("aplite2", "", "ct00", "nec")
' Next
'SQL
'moxReport.SQLQueryString = "select * from V_JYC040E"
'RANGE
'moxReport.RecordSelectionFormula = "{V_JYC040E111.ZYUCHUYMD}>=20011101 AND {V_JYC040E111.ZYUCHUYMD}<20011201"
'************************************ CRViewer1.ReportSource = moxReport
CRViewer1.ViewReport
CRViewer1.Zoom (100)
Set moxAplication = Nothing
cryTrialReport.Database.LogOnServer "pdsodbc.dll", ODBC名, 数据库名,Uid,Pwd
在9.1肯定也有,加上应该就可以了
因为Crystal的报表的数据源是自成体系的(相对VB的数据源而言)
Call moxReport.Database.Tables(2).SetLogOnInfo("数据库名", "", "用户名", "密码")
Tables(2)的"2"是代表什么的?