跟随VB6一起发布的数据环境(DataEnvironment)大大简化了有关程序的设计工作。为了能和你的数据库相连,在设计时,通常需要事先定义数据环境的连接字符串(Connection String)。但在发布你的应用程序时,或在运行你的程序过程中,你可能需要改变事先定义好的连接字符串。实现它的最简单的方法就是利用数据环境的Initialize事件。

 

举例来说,在程序中你可能会用到Access数据库,数据环境将把该数据库的路径等信息储存到连接字符串中。当你发布你的应用程序时,你可能想改变该数据库的路径,例如把它放在程序的所在目录的一个子目录中,用下面的代码就能轻松实现。

 

 

Private Sub DataEnvironment_Initialize()

 

Dim strConn As String

 

 

strConn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _

                  "Data Source=" & App.Path & "DataMyDB.mdb;"

 

DataEnvironment1.Connection1.ConnectionString = strConn

 

End Sub