| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 自动备份 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129503) |
| -- 作者：sanny -- 发布时间：2018/12/29 19:09:00 -- [求助] 自动备份 版主，请问Foxtable的数据来自access中，为安全起见，如何将aceess每天自动备份到指定的文件中。谢谢。 |
| -- 作者：2900819580 -- 发布时间：2018/12/30 9:37:00 -- 这是我做的备份，供你参考，在计划任务中做个计划就可以了。 Dim s As String = 数据 源连接 If Connections.TryConnect(s) = False Then MessageBox.Show("数据源无法连通!") Exit Sub End If Dim lst As List(Of String) lst = Connections("ksg").GetTableNames Dim d As Date = Functions.Execute("返回服务器日期") Dim cmd As new SQLCommand Dim Sqldt As DataTable cmd.C Dim tb As Table = Tables(e.Form.Name & "_Table1") If Forms("数据加载提醒").Opened = False Then Forms("数据加载提醒").Open For i As Integer = 0 To lst.Count - 1 If Forms("数据加载提醒").Opened = True Then Forms("数据加载提醒").Controls("Label1").text = "正在刷新数据---" & lst(i) & "/" & i & "/" & lst.Count - 1 & " 条数据!请耐心等待" Application.DoEvents() cmd.CommandText = "se lect * from {" & lst(i) & "} " Sqldt = cmd.ExecuteReader tb.DataSource = sqldt tb.SaveExcel("D:\\Baomic\\管理系统数据备份\\" & d.Year & "_" & d.Month & "_" & d.Day & "\\" & lst(i) & ".xls" ,"样板单") Next If Forms("数据加载提醒").Opened = True Then Forms("数据加载提醒").Close MessageBox.Show("数据备份完成")
[此贴子已经被作者于2018/12/30 9:37:11编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/12/30 10:02:00 -- 以下是引用sanny在2018/12/29 19:09:00的发言：
版主，请问Foxtable的数据来自access中，为安全起见，如何将aceess每天自动备份到指定的文件中。谢谢。
备份access，直接拷贝mdb文件即可的。
http://www.foxtable.com/webhelp/scr/0342.htm
你可以定时备份
http://www.foxtable.com/webhelp/scr/0657.htm
也可以在每次关闭系统的时候备份 |
| -- 作者：sanny -- 发布时间：2018/12/30 10:16:00 -- 版主
加到计划管理后，如何取名为当前日期的，然后关闭foxtable自动备份，谢谢。 FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\test.txt") |
| -- 作者：有点甜 -- 发布时间：2018/12/30 10:38:00 -- FileSys.CopyFile("C:\\TestFiles\\test.txt", "C:\\TestFiles2\\test" & format(date.now, "yyyyMMddHHmmss") & ".txt") |
| -- 作者：sanny -- 发布时间：2018/12/30 10:49:00 -- 版主，每次关闭系统的时候备份怎么设置？谢谢了。 |
| -- 作者：有点甜 -- 发布时间：2018/12/30 11:11:00 -- 以下是引用sanny在2018/12/30 10:49:00的发言：
版主，每次关闭系统的时候备份怎么设置？谢谢了。
在beforeCloseProject事件写备份代码
http://www.foxtable.com/webhelp/scr/0668.htm
|
| -- 作者：sanny -- 发布时间：2018/12/30 11:27:00 -- 感谢！ |