＋设为首页 ＋添加到收藏夹
请问如何在vb6下调用crystalreport9 (麻烦讲详细点）
Dim Pw_Conn As ADODB.Connection 楢愙
Dim Pw_RstMdb As ADODB.Recordset 儗僐乕僪僙僣僩
Dim Pw_MdbFname As String MDB僼傽僀儖柤
Dim Pw_WmdbFname As String WMDB僼傽僀儖柤
Dim Pw_AppPath As String
Dim Pw_Ret As String
On Error GoTo ERR_RTN
If Not Gf_Get_Inifile("Path", "KAIINMDB", Pw_Ret) Then
GoTo ERR_RTN
End If
Pw_MdbFname = Pw_Ret
Pw_WmdbFname = Replace(Pw_MdbFname, "\mdb", "\wmdb")
Set Pw_Conn = New ADODB.Connection
With Pw_Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open Pw_WmdbFname
End With
Set Pw_RstMdb = New ADODB.Recordset
Call Pw_RstMdb.Open _
("FB0020", Pw_Conn, adOpenDynamic, adLockOptimistic, adCmdTable)
Open the Events.rpt report file.
Set CrReport = Appl.OpenReport(Pw_AppPath & "Rpt_FB0020.rpt")
CrReport.DiscardSavedData
CrReport.Database.SetDataSource Pw_RstMdb
CrReport.Database.Verify
CrReport.ParameterFields(1).AddCurrentValue Format(Now, "yy/mm/dd hh:mm:ss")
Txt_CRViewer.ReportSource = CrReport
Txt_CRViewer.ViewReport
Exit Sub
