1,217
社区成员
发帖
与我相关
我的任务
分享vb中水晶报表数据源更换的问题
在一台机器上作了张水晶报表（数据源通过ado连接），添加到vb中，生成一个工程。把这个工程放到另一台机器里，连接的是不同的服务器，但是有相同的数据库。（一台测试用服务器，一台正式的服务器）由于数据源不同，所以会报错。请问可以在vb中写些代码来自动根换数据源吗
...全文
请发表友善的回复…
发表回复
zhanghanqin 2004-12-16
- 打赏
- 举报
Dim m_Report As CRAXDRT.Report
Dim m_App As CRAXDDRT.Application
dim cn as new adodc.ConnectionString
dim rs as new adodc.Recordset
Private Sub Form_Load()
cn.open "............"
Set m_App = New CRAXDRT.Application
Set m_Report = m_App.OpenReport(App.Path & "\report1.rpt")
rs.Open "select * from table ", cn, 3, 2
m_Report.Database.Tables(1).SetDataSource rs
m_Report.DiscardSavedData
CRViewer91.ReportSource = m_Report
CRViewer91.ViewReport
End Sub
Dim m_App As CRAXDDRT.Application
dim cn as new adodc.ConnectionString
dim rs as new adodc.Recordset
Private Sub Form_Load()
cn.open "............"
Set m_App = New CRAXDRT.Application
Set m_Report = m_App.OpenReport(App.Path & "\report1.rpt")
rs.Open "select * from table ", cn, 3, 2
m_Report.Database.Tables(1).SetDataSource rs
m_Report.DiscardSavedData
CRViewer91.ReportSource = m_Report
CRViewer91.ViewReport
End Sub
RUKYO 2004-09-18
- 打赏
- 举报
自动根换数据源?
wumylove1234 2004-09-18
- 打赏
- 举报
呵呵!
IE14571 2004-09-18
- 打赏
- 举报
VB的我沒有寫過,不過它也應該有一個屬性叫做ReportSource吧,你要寫程式去給這個屬性賦值,應該就可以解決掉你的問題.
