以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何定期备份数据库中的几个表，存成 Excel 表格  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85197)
--  作者：sjx71
--  发布时间：2016/5/19 19:48:00
--  [求助]如何定期备份数据库中的几个表，存成 Excel 表格
如何定期备份数据库中的几个表，存成 Excel 表格

比如每周一中午12:00 备份数据库中的表A，表B。

谢谢老师
--  作者：大红袍
--  发布时间：2016/5/19 19:59:00
--  

参考代码

 

static d As Date = Date.today.AddDays(-1)
If d <> Date.today AndAlso Date.Today.DayOfWeek = 1 AndAlso Date.Now.Hour = 12 Then
    d = Date.today
   
    Tables("表A").SaveExcel("d:\\test" & format(d, "yyyMMdd") & ".xls", "表A")
    Tables("表B").SaveExcel("d:\\test" & format(d, "yyyMMdd") & ".xls", "表B")
End If

 

http://www.foxtable.com/help/topics/0657.htm

 

[此贴子已经被作者于2016/5/19 20:09:31编辑过]
--  作者：sjx71
--  发布时间：2016/5/19 20:09:00
--  
谢谢大红袍老师