Foxtable(狐表) → 用户栏目 → 专家坐堂 → sql所有表数据如何批量导出为excel


  共有6692人关注过本帖树形打印复制链接

主题：sql所有表数据如何批量导出为excel
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6230 威望：0 精华：0 注册：2018/5/10 9:05:00 		sql所有表数据如何批量导出为excel  发帖心情 Post By：2022/10/18 15:32:00 [只看该作者]

前一阵经历了勒索病毒  想每天把sql数据导出为excel 并发送到邮箱，防止中毒后可以快速恢复数据

1。邮件发送已经借助帮助可以实现
2。如下帮助代码想按照sql数据库结构直接导出，不想填写指定表头。
3.  官方是否有防毒备份数据更加好的办法可以指导，谢谢！

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S elect  * From {物料档案} "
Dim dt As  DataTable  = cmd.ExecuteReader()
Dim nms() As String = {"产品编号","分类","规格","备注"}
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
For c As Integer = 0 To nms.Count -1
    Sheet(0, c).Value = nms(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1
    For c As Integer = 0 To nms.Count -1
        Sheet(r +1, c).Value = dt.DataRows(r)(nms(c))
    Next
Next
'打开工作簿
Book.Save("d:\test.xls")
Dim Proc As New Process
Proc.File = "d:\test.xls"
Proc.Start()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/18 15:41:00 [只看该作者]

遍历获取列名：http://www.foxtable.com/webhelp/topics/1428.htm
比如
For c As Integer = 0 To DataTables("订单").DataCols.Count -1
    Sheet(0, c).Value = DataTables("订单").DataCols(c).name
Next

防毒我也不懂。备份数据库的话，SqlServer可以设置计划自动备份。但是建议备份后，下载到多个地方保存，比如本地，然后在复制一份到移动硬盘里。
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6230 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2022/10/18 15:56:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S elect  * From {物料档案} "
Dim dt As  DataTable  = cmd.ExecuteReader()
Dim nms() As String = {"产品编号","分类","规格","备注"}
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
For c As Integer = 0 To nms.Count -1
    Sheet(0, c).Value = nms(c)
Next
For c As Integer = 0 To dt.DataCols.Count -1
    Sheet(0, c).Value = dt.DataCols(c).name
Next
For r As Integer = 0 To dt.DataRows.Count - 1
    For c As Integer = 0 To dt.DataCols.Count -1
        Sheet(r +1, c).Value = dt.DataRows(r)(nms(c))     '帮忙指导一下这里该如何改，谢谢！
    Next
Next
Book.Save("d:\test.xls")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/18 15:58:00 [只看该作者]

Sheet(r +1, c).Value = dt.DataRows(r)(dt.DataCols(c).name) 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询