报表的数据原问题！！

[vanny]

如何在VB中动态改变水晶报表的数据原的问题 如果不用dsn 直接指定数据库文件
怎样写呢，请举例说明：谢谢

[zsgzsgzsg]

Report1.DataFiles(0) = "c:\new\first.mdb"

[山雨欲来-风满楼]

用ConnectString啦，而且这样的话可以在程序中进行控制要打开的数据库文件

[jiajy]

dim m_Database as CRAXDDRT.database
Dim m_report As CRAXDDRT.Report
Dim m_application As New CRAXDDRT.Application
Dim cnn As ADODB.Connection
dim rs as ADODB.Recordset

set m_report=m_application.openreport(path & "test.rpt",1)
Set rs = New ADODB.Recordset
set cnn=new ADODB.connection
StrCnn = "......"
cnn.Open StrCnn
strSql = "select * from table "
rs.Open strSql, cnn, adOpenKeyset, adLockReadOnly
m_report.DiscardSavedData
Set m_Database = m_report.Database
m_Database.SetDataSource rs, 3, 1