在VB6开发中使用DataReport结合数据环境可以实现常见的打印问题，属于打印的优先选择方案。当然，在更复杂的情况下，你一般使用Crystal Report方案。本文介绍在使用数据环境时遇到的一个路径问题。
一般的VB开发书中并没有对路径问题给出很好的解释，包括我面前的这个“Visual Basic宝典”系列。更意外的是，包括离线MSDN，都没有对这个问题给出解释。
在实战环境下使用DataEnvironment必须要解决相对路径问题。自我学习中，在数据环境的属性中定好数据库的路径后,这样数据库就被固定在了某个路径上，根据不适合软件的安装使用。
其实，答案很简单，如下图所示。单击图中的图标从数据环境切换到后台代码编辑器。
然后在代码中创建如下内容即可：
Private Sub DataEnvironment_Initialize()
Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=; " & _
"Data Source= " & App.Path & "\Data\YMCow.mdb;Persist Security Info=True"
Connection1.Open
End Sub
因此，以前你试验使用的设置的那个固定路径，在运行程序时需要再次回到以前的设置对话框中手动清除。
未命名.JPG
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
