水晶报表问题

Question

各位帮个忙，怎么连接server数据库到水晶报表上，有谁有详细点的连接过程，谢谢

Answer 1

Public strPublicSql As String
Public rsImport As New ADODB.Recordset
Public objApp As New CRAXDRT.Application
Public objReport As CRAXDRT.Report
Private Sub Form_Load()
    Dim strPathName As String, strReportName As String, strSqlPath As String
    Dim rsPath As New ADODB.Recordset
    strSqlPath = "select mean from Parameter_tab where parameter_name='tabOrderFormReport'"
    rsPath.Open strSqlPath, strPubConnect, adOpenKeyset, adLockReadOnly
     rsImport.open "select * from tb where ...." , strPubConnect, adOpenKeyset, adLockReadOnly    If Not rsPath.EOF Then
        strPathName = rsPath.Fields(0).Value
    Else
        MsgBox "§ä¤£¨ì³øªí¸ô®|¡A½Ð»P¸ê°TÁp¨t¡I", vbCritical, "´£¿ô±z"
        Exit Sub
    End If
    strReportName = "custom_tabImportReport.rpt"
    
    Screen.MousePointer = 11
''    Set objReport = objApp.OpenReport(strPathName & strReportName, 1)
    Set objReport = objApp.OpenReport("G:\Report\" & strReportName, 1)
    objReport.Database.SetDataSource rsImport
    objReport.ReadRecords
    CRViewer91.ReportSource = objReport
    CRViewer91.ViewReport
    
    Screen.MousePointer = 0
    
End SubPrivate Sub Form_Resize()
    CRViewer91.Top = 0
    CRViewer91.Left = 0
    CRViewer91.Height = ScaleHeight
    CRViewer91.Width = ScaleWidth
End Sub