[求助] 自动备份 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

版主，请问Foxtable的数据来自access中，为安全起见，如何将aceess每天自动备份到指定的文件中。谢谢。

这是我做的备份，供你参考，在计划任务中做个计划就可以了。

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" ,"样板单")

If Forms("数据加载提醒").Opened = True Then Forms("数据加载提醒").Close

MessageBox.Show("数据备份完成")

[此贴子已经被作者于2018/12/30 9:37:11编辑过]

以下是引用sanny在2018/12/29 19:09:00的发言：
版主，请问Foxtable的数据来自access中，为安全起见，如何将aceess每天自动备份到指定的文件中。谢谢。

备份access，直接拷贝mdb文件即可的。

你可以定时备份

也可以在每次关闭系统的时候备份

版主

加到计划管理后，如何取名为当前日期的，然后关闭foxtable自动备份，谢谢。

FileSys.CopyFile("C:\TestFiles\test.txt", "C:\TestFiles2\test.txt")

FileSys.CopyFile("C:\TestFiles\test.txt", "C:\TestFiles2\test" & format(date.now, "yyyyMMddHHmmss") & ".txt")

版主，每次关闭系统的时候备份怎么设置？谢谢了。

以下是引用sanny在2018/12/30 10:49:00的发言：

版主，每次关闭系统的时候备份怎么设置？谢谢了。

在beforeCloseProject事件写备份代码

主题：[求助] 自动备份