以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制项目内data文件夹下的AEECSS数据库到地方保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161700)
--  作者：天宇科技
--  发布时间：2021/3/27 13:15:00
--  复制项目内data文件夹下的AEECSS数据库到地方保存
复制运行项目内data文件夹下access数据库到其他地方保存，怎么写代码？
选择文件，和保存文件的地方，都用对话框显示，让用户自己选择。
[此贴子已经被作者于2021/3/27 13:16:05编辑过]
--  作者：天宇科技
--  发布时间：2021/3/27 13:24:00
--  
Dim dlg As New SaveFileDialog

If dlg.ShowDialog = DialogResult.OK Then
    Dim fn As String = ProjectPath & "\\data.mdb"
    FileSys.CopyFile(fn, dlg.FileName, True)
End If

用这段代码，生成的文件，好像是错的。
--  作者：天宇科技
--  发布时间：2021/3/27 13:26:00
--  
Dim dlg As New SaveFileDialog

If dlg.ShowDialog = DialogResult.OK Then
    Dim fn As String = ProjectPath & "data.mdb"
    FileSys.CopyDirectory(fn, dlg.FileName, True)
End If

这段代码也是错的
--  作者：有点蓝
--  发布时间：2021/3/27 13:27:00
--  
就这样用

好像？什么地方是错的？
--  作者：天宇科技
--  发布时间：2021/3/27 13:31:00
--  
第一代码，生成的文件打不开。
第二代码，提示如下：

图片点击可在新窗口打开查看此主题相关图片如下：111111.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/3/27 13:52:00
--  
提示的意思是找不到文件，要么路径错误，要么没有权限
--  作者：天宇科技
--  发布时间：2021/3/27 13:57:00
--  
我应该用第一代码还是第二段代码？
--  作者：有点蓝
--  发布时间：2021/3/27 14:10:00
--  
使用CopyFile
[此贴子已经被作者于2021/3/27 16:26:30编辑过]
--  作者：天宇科技
--  发布时间：2021/3/27 15:40:00
--  

Could not find directory \'C:\\Users\\Administrator.XTZJ-2021UDGZRW\\Desktop\\职系统\\data.mdb\'.
用第二段代码，提示。
--  作者：天宇科技
--  发布时间：2021/3/27 15:58:00
--  
蓝版，你打开菜单“生成上报数据”那儿，操作看下，为什么为提示：

Could not find directory \'C:\\Users\\Administrator.XTZJ-2021UDGZRW\\Desktop\\职系统\\data.mdb\'.
If e.name = "datazc" Then

BeforeConnectOuterDataSource事件中代码如下。

    e.C & e.ProjectPath & "data.mdb;Persist Security Info=False"
End If
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:职系统.rar


[此贴子已经被作者于2021/3/27 15:59:51编辑过]