vb中水晶报表8.0的动态数据源(ODBC)问题
环境:win2000 + vb6 + SQL Server
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "dsn=" & ReDsn & ";uid=" & ReUid & ";pwd=" & RePwd
cn.Open
rs.CursorLocation = adUseClient
sql = "select * from UserInfo"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Rpt.DiscardSavedData
Rpt.Database.SetDataSource rs, 3
CRViewer1.ReportSource = Rpt
更改DSN名称重新配置数据源后,rs表中的数据都可以访问了,但运行后就会出现“Server has not yet been opened!”提示,没更换DSN之前一切都是正常的,请问程序中(非手动)要如何动态设置水晶报表的数据源呢?ODBC配置中已指定默认数据库,上述的cn还没有反应出水晶报表所需连接的数据库吗?