调用水晶报表时出错，高分求救

Question

运行以下代码：
Private Sub Form_Load()Dim CRY As CRAXDRT.Report
  Dim CRYAT As CRAXDRT.Application
  Set CRYAT = New CRAXDRT.Application
  Set CRY = CRYAT.OpenReport(App.Path + "\rpclient.rpt")
  CRViewer1.ReportSource = CRY
  CRViewer1.ViewReportEnd Sub
提示：server has not yet been opened
不能预览做好了的报表。这是什么意思，有什么办法可以调用做好了的报表以及打印查询的值。

Answer 1

  Set CRY = CRYAT.OpenReport(App.Path + "\rpclient.rpt")
改成Set CRY = CRYAT.OpenReport(“报表的详细路径试试\rpclient.rpt")
举个例子"e:\sjbb\rpclient.rpt"

Answer 2

建议你按这样步子来作：
 1、建报表。选择 ADO and OLE DB键接。
 2.在VB创建新键接,与记录集。
    Dim miConn As ADODB.Connection
    Dim rs As New ADODB.Recordset
    miConn.open""
    LockType = adLockReadOnly
       .CursorLocation = adUseClient
       .Source = "select * from xxx"
       .Open
    记住这此的记录集要与建表是的记录集相同。
  3. Report.Database.SetDataSource rs, 3

Answer 3

Private Sub Form_Load()
  Dim RptPath As Sting '定义一个变量保存报表路径
  Dim CRY As CRAXDRT.Report
  Dim CRYAT As CRAXDRT.Application
  Set CRYAT = New CRAXDRT.Application  RptPath＝App.Path & "\rpclient.rpt"
  Set CRY = CRYAT.OpenReport (RptPath）
  CRViewer1.ReportSource = CRY
  CRViewer1.ViewReportEnd Sub
以上我测试通过

Answer 4

好像是你的数据库服务没有打开，SQL Server是否已经启动了？