以下是我写的一个Form 包含一个crystal report 8.5 的元件 CRViewer 这一小段程式在未修改前 run都好好的 但是 我一改了资料库跟report的来源 它就停在crRpt.ReadRecords这一行 error message 是 Server has been not yet opened. 请教一下各位高手 = =|| Option Explicit Private cn As New ADODB.Connection Private rs As New ADODB.Recordset Dim crApp As CRAXDRT.Application Dim crRpt As CRAXDRT.Report Dim query1 As String Dim SQLSRV1 As String Public DBname As String Private cnmdb As ADODB.Connection Private rsmdb As ADODB.Recordset Private Sub Form_Load() SQLSRV1 = "Provider=SQLOLEDB.1;" _ & "Password=7777777;Persist Security Info=True;User ID=sa;" _ & "Initial Catalog=STFXMM2003;Data Source=TEST\TESTSERVER" DBname = "COMPOUNDEND" '这里我修改了 Catalog , datasource , DBname Set cnmdb = New ADODB.Connection cnmdb.ConnectionString = SQLSRV1 cnmdb.CursorLocation = adUseClient cnmdb.Open Set rsmdb = New ADODB.Recordset query1 = "SELECT * FROM " & DBname '这里我修改了DBname rsmdb.Open query1, cnmdb, adOpenStatic, adLockOptimistic Set cn = New ADODB.Connection cn.ConnectionString = SQLSRV1 cn.CursorLocation = adUseClient cn.Open Set rs = New ADODB.Recordset query1 = "SELECT * FROM compoundend" '这里我修改了query1,指向DBname rs.Open query1, cn, adOpenStatic, adLockOptimistic Set crApp = New CRAXDRT.Application Set crRpt = crApp.OpenReport("Q:\temp\Frank_Huang\CPReport.rpt") '这里我修改了rpt的来源跟档名 Me.Height = 10000 Me.Width = 12000 crRpt.DiscardSavedData crRpt.Database.SetDataSource rs, 3 crRpt.ReadRecords CRViewer1.EnableGroupTree = False CRViewer1.EnableExportButton = False CRViewer1.EnablePrintButton = True CRViewer1.EnableSearchControl = False CRViewer1.ReportSource = crRpt CRViewer1.ViewReport CRViewer1.Top = Me.ScaleTop CRViewer1.Left = Me.ScaleLeft CRViewer1.Width = Me.ScaleWidth CRViewer1.Height = Me.ScaleHeight End Sub PS: 顺道一提 请问那里有crystal report 的help档 跟vb6有连结的 = = --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 211.20.28.253