Foxtable(狐表)用户栏目专家坐堂 → 怎么实现项目启动先创建目录,复制mdb文件,然后再进行数据连接,项目启动


  共有2207人关注过本帖树形打印复制链接

主题:怎么实现项目启动先创建目录,复制mdb文件,然后再进行数据连接,项目启动

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
怎么实现项目启动先创建目录,复制mdb文件,然后再进行数据连接,项目启动  发帖心情 Post By:2021/1/17 13:32:00 [只看该作者]

项目启动数据源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:13编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/17 20:26:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=159995

 回到顶部