以下是我寫的一個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