Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制项目内data文件夹下的AEECSS数据库到地方保存


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

主题：复制项目内data文件夹下的AEECSS数据库到地方保存
帅哥哟，离线，有人找我吗？
天宇科技
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		复制项目内data文件夹下的AEECSS数据库到地方保存  发帖心情 Post By：2021/3/27 13:15:00 [显示全部帖子]

复制运行项目内data文件夹下access数据库到其他地方保存，怎么写代码？
选择文件，和保存文件的地方，都用对话框显示，让用户自己选择。
[此贴子已经被作者于2021/3/27 13:16:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：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

用这段代码，生成的文件，好像是错的。
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：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

这段代码也是错的
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2021/3/27 13:31:00 [显示全部帖子]

第一代码，生成的文件打不开。
第二代码，提示如下：

图片点击可在新窗口打开查看此主题相关图片如下：111111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2021/3/27 13:57:00 [显示全部帖子]

我应该用第一代码还是第二段代码？

 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2021/3/27 15:40:00 [显示全部帖子]


Could not find directory 'C:\Users\Administrator.XTZJ-2021UDGZRW\Desktop\职系统\data.mdb'.
用第二段代码，提示。
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2021/3/27 16:40:00 [显示全部帖子]

用你上个贴的办法，复制出来的文件打不开，我测试了，他不自动生成后辍名，所以打不开。
[此贴子已经被作者于2021/3/27 16:42:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2021/3/27 18:40:00 [显示全部帖子]

Dim dlg As New SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim fn As String = ProjectPath & "\data.mdb"
    FileSys.CopyFile(fn, dlg.FileName, True)
End If

谢谢蓝版
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 6 次数据查询