这是我做的备份，供你参考，在计划任务中做个计划就可以了。
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编辑过]
加好友 
发短信
Post By：2018/12/30 9:37:00 [显示全部帖子]
