以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据库  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126928)

--  作者:13775189031
--  发布时间:2018/11/1 9:40:00
--  数据库

我的帖子怎么不见了/

误删Access数据库,能否恢复foxtable里的表格?


--  作者:有点甜
--  发布时间:2018/11/1 10:06:00
--  
如果你access数据库文件直接删除了,是无法恢复的。除非你能恢复access文件。
--  作者:13775189031
--  发布时间:2018/11/1 10:13:00
--  

那怎样能实现access数据库和项目同时备份?


--  作者:有点甜
--  发布时间:2018/11/1 10:22:00
--  
以下是引用13775189031在2018/11/1 10:13:00的发言:

那怎样能实现access数据库和项目同时备份?

 

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126267&replyID=846683&skin=1

 


--  作者:13775189031
--  发布时间:2018/11/1 13:18:00
--  

在计划管理里设置“备份”,把服务器上的文件夹备份到G盘,是这样么?

 

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.DeleteDirectory("G:\\辅机生产管理系统备份", 2, 2)
    FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\辅机事业部\\辅机事业部生产管理系统", "G:\\辅机生产管理系统备份")
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder("G:\\辅机生产管理系统备份")
    zip.Close()
End If


--  作者:13775189031
--  发布时间:2018/11/1 13:36:00
--  

可是执行下来没有按编码存储到G盘,保存到了“库\\文档”?


--  作者:13775189031
--  发布时间:2018/11/1 13:56:00
--  

显示错误

.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.10.9.1
错误所在事件:计划备份
详细错误信息:
在某些文件和目录下无法完成操作。有关详细信息,请参阅该异常的 Data 属性。


--  作者:有点甜
--  发布时间:2018/11/1 14:55:00
--  
Dim fName = "G:\\辅机生产管理系统备份\\" & format(Date.now, "yyyyMMddHHmmss") & ".zip"
FileSys.DeleteDirectory("d:\\test", 2, 2)
FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\辅机事业部\\辅机事业部生产管理系统", "d:\\test")
Dim zip As New zipFile
zip.Create(fname)
zip.AddFolder("d:\\test")
zip.Close()

--  作者:13775189031
--  发布时间:2018/11/1 16:03:00
--  

Dim fName = "G:\\辅机生产管理系统备份\\" & format(Date.now, "yyyyMMddHHmmss") & ".zip"
FileSys.DeleteDirectory("G:\\辅机生产管理系统备份", 2, 2)
FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\辅机事业部\\辅机事业部生产管理系统", "G:\\辅机生产管理系统备份")
Dim zip As New zipFile
zip.Create(fname)
zip.AddFolder("G:\\辅机生产管理系统备份")
zip.Close()

 

还是显示:

 

.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.10.9.1
错误所在事件:计划备份
详细错误信息:
在某些文件和目录下无法完成操作。有关详细信息,请参阅该异常的 Data 属性。


--  作者:有点甜
--  发布时间:2018/11/1 17:20:00
--  

那就改成这样

 

Dim fName = "G:\\辅机生产管理系统备份\\" & format(Date.now, "yyyyMMddHHmmss")
FileSys.CopyDirectory("\\\\172.17.57.200\\jsdlzb-pub\\辅机事业部\\辅机事业部生产管理系统", fname, True)