文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

VB.NET中怎么导出数据

2023-06-17 17:33

关注

这篇文章将为大家详细讲解有关VB.NET中怎么导出数据,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。

 VB.NET开发语言为我们平时的开发方式带来了非常的改变。很多时候可以利用Excel的数据透视表导出你想要的报表格式。那么VB.NET导出数据该如何实现呢?下面的代码可以从数据库中取出数据然后导入Excel。

  1. Dim excel As Excel.Application  

  2. Dim xBk As Excel._Workbook  

  3. Dim xSt As Excel._Worksheet  

  4. Dim xRange As Excel.Range  

  5. Dim xPivotCache As Excel.
    PivotCache  

  6. Dim xPivotTable As Excel.
    PivotTable  

  7. Dim xPivotField As Excel.
    PivotField  

  8. Dim cnnsr As String, sql 
    As String  

  9. Dim RowFields() As String = 
    {"", "", ""}  

  10. Dim PageFields() As String = 
    {"", "", "", "", "", ""}  

  11. 'SERVER 是服务器名或服务器的IP地址  

  12. 'DATABASE 是数据库名  

  13. 'Table 是表名  

  14. Try 

开始实现VB.NET导出数据

  1. cnnsr = "ODBC;DRIVER=SQL 
    Server;SERVER=" + SERVER   

  2. cnnsrcnnsr = cnnsr + ";UID=;
    APP=Report Tools;WSID=ReportClient;
    DATABASE=" + DATABASE  

  3. cnnsrcnnsr = cnnsr + ";
    Trusted_Connection=Yes"  

  4. excel = New Excel.ApplicationClass  

  5. xBk = excel.Workbooks.Add(True)  

  6. xSt = xBk.ActiveSheet  

  7. xRange = xSt.Range("A4")  

  8. xRange.Select() 

开始

  1. xPivotCache = xBk.PivotCaches
    .Add(SourceType:=2)  

  2. xPivotCache.Connection = cnnsr 

  3. xPivotCache.CommandType = 2 

  4. sql = "select * from " + Table  

  5. xPivotCache.CommandText = sql 

  6. xPivotTable = xPivotCache.
    CreatePivotTable(TableDestination:
    ="Sheet1!R3C1", TableName:=
    "数据透视表1", DefaultVersion:=1) 

准备行字段

RowFields(0) = "字段1"  RowFields(1) = "字段2"  RowFields(2) = "字段3"

准备页面字段

  1. PageFields(0) = "字段4"  

  2. PageFields(1) = "字段5"  

  3. PageFields(2) = "字段6"  

  4. PageFields(3) = "字段7"  

  5. PageFields(4) = "字段8"  

  6. PageFields(5) = "字段9"  

  7. xPivotTable.AddFields(RowFields
    RowFields:=RowFields, PageFields
    PageFields:=PageFields)  

  8. xPivotField = xPivotTable.
    PivotFields("数量")  

  9. xPivotField.Orientation = 4 

关闭工具条

  1. 'xBk.ShowPivotTableFieldList
     = False 

  2. 'excel.CommandBars("PivotTable")
    .visible = False 

  3. excel.Visible = True 

  4. Catch ex As Exception  

  5. If cnn.State = ConnectionState
    .Open Then  

  6. cnn.Close()  

  7. End If  

  8. xBk.Close(0)  

  9. excel.Quit()  

  10. MessageBox.Show(ex.Message,
     "报表工具", MessageBoxButtons.
    OK, MessageBoxIcon.Warning)  

  11. End Try 

关于VB.NET中怎么导出数据就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯