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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

数据环境的代码
======================================
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 SubPrivate Sub DataEnvironment_Terminate()
    gCon.Close
'    Set gCon = Nothing
End Subgcon就是你在数据环境中建的连接，
==============================
上面说错了，不用定义的

Answer 6

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

Answer 7

你说的没有错,只是不使用 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
这样也能拷定!谢谢你.