vb中水晶报表数据源更换的问题

ancle 2004-09-17 04:10:20
在一台机器上作了张水晶报表(数据源通过ado连接),添加到vb中,生成一个工程。把这个工程放到另一台机器里,连接的是不同的服务器,但是有相同的数据库。(一台测试用服务器,一台正式的服务器)由于数据源不同,所以会报错。请问可以在vb中写些代码来自动根换数据源吗
...全文
126 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
RUKYO 2004-09-18
自动根换数据源?
回复
wumylove1234 2004-09-18
呵呵!
回复
IE14571 2004-09-18
VB的我沒有寫過,不過它也應該有一個屬性叫做ReportSource吧,你要寫程式去給這個屬性賦值,應該就可以解決掉你的問題.
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-17 04:10
社区公告
暂无公告