你在使用到数据环境时,可以参考如下代码: Dim DataEnv As New DataEnvironment1 With DataEnv.CnnPrintPreview If .State = 1 Then .Close .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Persist Security Info=False;" _ & "Data Source=" & App.Path & "××.mdb" .Open End With
Dim DataEnv As New DataEnvironment1
With DataEnv.CnnPrintPreview
If .State = 1 Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Persist Security Info=False;" _
& "Data Source=" & App.Path & "××.mdb"
.Open
End With
你可以在安装程序目录里的SETUP。LST 文件用记事本打开指定一下数据库目录就行了。
问题解决,返回。
你可以在安装程序目录里的SETUP。LST 文件用记事本打开指定一下原数据库目录就行了。
问题解决,返回。