如何使用程序动态改变数据环境的 connection 对象所使用的数据库?急急急!

[LYSSHE]

我使用 DataEnvironment1(数据环境)来做一个把数据分组打印的报表,现在想使用程序动态来改变DataEnvironment1.connection 对象所使用数据库的路径.使用如下方法可以正确设置:
DataEnvironment1.Connection1.ConnectionString = "provider={Microsoft.Jet.OLEDB.4.0};Data Source='" & FilePath & "';Persist Security Info=False"
但运行时出错!提示为:"从当前数据资源中读取得值失败!"

设置Connection 对象的ConnectionSource 时出现"对象不支持命参数?请问该如何解决动态路径的问题?
或者有什么方法不使用数据环境就可以实现分组汇总打印的功能?请各位多多指教!!

[ferrytang]

在DataEnvironment1中定义一个ado.connection gcon
就是代码打开的那种
然后，在数据环境初始化的时候
set DataEnvironment1.connetion=gcon

[LYSSHE]

我使用数据环境实现的功能有点类似于"子表与主表打印的功能"
即主表与子表是一对多的关系.现在要打印主表的明细资料.每打一条主表的记录之后再打印与之相对应的所有子表记录.这种功能一定使用报表设计器的"分组标头"吗?(VB6)

[ferrytang]

在DataEnvironment1中定义一个ado.connection gcon
就是代码打开的那种
然后，在数据环境初始化的时候
set DataEnvironment1.connetion=gcon

[ferrytang]

yes

[LYSSHE]

ferrytang(ferry) :
谢谢你! 但在试用你所说的那种方法之前还想问你一个问题.
能不能不在 DataEnvironment1 中定义与打开.因为我在当前工程打开时就已经定义一个全局使用的adodb.connection 对象了.这能使用吗?

[LYSSHE]

ferrytang(ferry) :
请你回来帮帮忙.
我按照你的做法去做了,可是有问题!
出错提示为:编译错误 "属性的使用无效!"
为什么呢?

[ferrytang]

不能用！

[LYSSHE]

为什么我使用 set DataEnvironment1.connetion=gcon 这样的方法
出错了!是不是需要特别的注意那个地方.

[ferrytang]

数据环境的代码
======================================


Private Sub DataEnvironment_Initialize()
Dim strCon As String
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & App.Path & "\store.mdb"
gCon.Open strCon
End Sub

Private Sub DataEnvironment_Terminate()
gCon.Close
' Set gCon = Nothing
End Sub

gcon就是你在数据环境中建的连接，
==============================
上面说错了，不用定义的

[LYSSHE]

谢谢你:ferrytang(ferry)
已经解决 (:-)
你的 QQ ? 交个朋友好吗?

[LYSSHE]

你说的没有错,只是不使用 Set 就可以了,而直接用
Dim Report_Data As New ADODB.Connection
Private Sub DataEnvironment_Initialize()
With Report_Data
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Persist Security Info=False"
.Open
End With
DataEnvironment1.Connection1 = Report_Data
End Sub
这样也能拷定!谢谢你.

[LYSSHE]

你现在在做商用的程序吗?

[ferrytang]

13275013

[LYSSHE]

我的是 88495208 但上班时间我不能用的.只有晚上7:00之后可以偷偷地聊一下.这里太不好了.

[LYSSHE]

我稍后再找你.ok?

[ferrytang]

哦