专家坐堂-access数据源自动获取当前文件路劲下的access文件并加载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  access数据源自动获取当前文件路劲下的access文件并加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159995)

--  作者：李孝春
--  发布时间：2021/1/16 17:23:00
--  access数据源自动获取当前文件路劲下的access文件并加载

access数据源自动获取当前文件路劲下的access文件并加载

数据源中该内容可以获取ACC数据库文件内容
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Attachments\\文件管理.mdb;Persist Security Info=False;Jet OLEDB:Database Password=com
但是项目在发布后，该内容会提示找不到ACC数据库文件
（想实现项目不管我复制到那个地方，项目都自动从该项目Attachments文件夹下读取文件管理.mdb，下面红色代码怎么修改呢？）
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ProjectPath & "Attachments\\文件管理.mdb";Persist Security Info=False;Jet OLEDB:Database Password=com

--  作者：有点蓝
--  发布时间：2021/1/16 17:32:00
--
http://www.foxtable.com/webhelp/topics/0682.htm

--  作者：李孝春
--  发布时间：2021/1/16 18:03:00
--  回复：（有点蓝）http://www.foxtable.com/webhelp/to...

项目启动数据源BeforeConnectOuterDataSource事件代码：
If FileSys.FileExists("d:\\文件管理助手【请勿删除】\\文件管理.mdb") Then \'判断文件夹下是否有文件,如果有
If e.name="文件管理ACC" Then
e.C
End If
Else
If e.name="文件管理ACC" Then
e.C & e.ProjectPath & "Attachments\\文件管理.mdb;Persist Security Info=False;Jet OLEDB:Database Password=cnsjroom@163.com"
End If
End If

主窗体启动后事件代码：
If FileSys.DirectoryExists("d:\\文件管理助手【请勿删除】") Then \'判断文件夹是否存在,如果存在
……
Else
FileSys.CreateDirectory("d:\\文件管理助手【请勿删除】")
FileSys.CopyFile(ProjectPath & "Attachments\\文件管理.mdb", "d:\\文件管理助手【请勿删除】\\文件管理.mdb")\'如果没有就把指定目录下的文件复制到指定目标地址
MessageBox.Show("项目初始化成功,点击确定退出项目后重新打开项目!","温馨提示")
e.Form.Close
Syscmd.Project.Exit()
Application.Restart()
End If

打开主窗体时实现先判断是否有d:\\文件管理助手【请勿删除】文件夹，如果没有就创建目录，然后复制指定文件，然后提示初始化成功，重启项目
如果有目录，就判断是否有文件管理.MDB这个文件，如果有就直接连接数据库文件，并进入项目

麻烦老师看看上述思路和代码还有没有其它更佳方法？

[此贴子已经被作者于2021/1/17 18:56:57编辑过]

--  作者：有点蓝
--  发布时间：2021/1/17 19:48:00
--
主窗口的代码放到BeforeConnectOuterDataSource事件判断处理即可，没有必要重启项目

--  作者：李孝春
--  发布时间：2021/1/17 19:57:00
--  回复：（有点蓝）主窗口的代码放到BeforeConnectOuter...
主窗口的代码放到BeforeConnectOuterDataSource事件判断处理
原主窗口代码不会执行复制文件只会创建目录

--  作者：有点蓝
--  发布时间：2021/1/17 20:27:00
--
其实完全没有必要复制，直接使用项目里的文件不行吗？何必多此一举

--  作者：李孝春
--  发布时间：2021/1/17 22:33:00
--  回复：（有点蓝）其实完全没有必要复制，直接使用项目...
项目有时候会更新文件且这个数据库文件比较重要且会越来越大不方便与项目文件放置一起

--  作者：有点蓝
--  发布时间：2021/1/17 22:50:00
--

项目启动数据源BeforeConnectOuterDataSource事件代码：
If e.name="文件管理ACC" Then
If FileSys.FileExists("d:\\文件管理助手【请勿删除】\\文件管理.mdb") = False Then \'判断文件夹下是否有文件,如果有
If FileSys.DirectoryExists("d:\\文件管理助手【请勿删除】") = False Then \'判断文件夹是否存在,如果存在
FileSys.CreateDirectory("d:\\文件管理助手【请勿删除】")
End If
FileSys.CopyFile(ProjectPath & "Attachments\\文件管理.mdb", "d:\\文件管理助手【请勿删除】\\文件管理.mdb")\'如果没有就把指定目录下的文件复制到指定目标地址
End If
e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\文件管理助手【请勿删除】\\文件管理.mdb;Persist Security Info=False"
End If