在水晶报表设计过程中,如何使用动态的数据库连接?

Question

编程过程碰到的问题:
    在水晶报表设计过程中,能不能使用不确定的数据库名,用户和密码,而由参数传入?

Answer 1

Dim cryApp As New CRAXDRT.Application
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Report As CRAXDRT.Report
Private Sub Command1_Click()
        Set Report = cryApp.OpenReport("E:\report1.rpt")
        Report.Database.SetDataSource rs
        Form2.CRViewer1.ReportSource = Report
        Form2.Show
        
End Sub
Private Sub Form_Load()
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DatabaseName;Data Source=servername"
rs.Open "select * from tableName", cn, adOpenKeyset, adLockReadOnly
        
End Sub

Answer 2

你这种方法只能传送一个记录集,如果有多个子报表怎么办?不过,这个问题我已经解决.可以查看我以前的帖子.或者发[email protected]

Answer 3

建議你用TTX文件做報表，非常動態。