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

[19790219]

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

[yousuf]

我正在研究
等待答案

[haipingma]

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

[TaoHuang]

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

[sunruping]

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