在运行时修改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 & "DataMyDB.mdb;"

 

DataEnvironment1.Connection1.ConnectionString = strConn

 

End Sub 

上一个：真正删除数据库的记录
下一个：在VB中更改SQL Server数据库结构