142.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

在运行时修改DataEnvironment的连接字符串



跟随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 & "\Data\MyDB.mdb;"

DataEnvironment1.Connection1.ConnectionString = strConn

End Sub