VB.NET导出数据实现你想要的效果

开发 后端
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

准备行字段

  1. RowFields(0) = "字段1"  
  2. RowFields(1) = "字段2"  
  3. 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导出数据的具体代码编写就为大家介绍到这里。

【编辑推荐】

  1. VB.NET删除控件具体应用技巧分享
  2. VB.NET动态属性基本概念及应用方法介绍
  3. VB.NET通知控件基本概念解析
  4. VB.NET消息队列相关内容详细介绍
  5. VB.NET浮动窗体创建技巧分享
责任编辑:曹凯 来源: IT168
相关推荐

2010-01-12 14:02:14

VB.NET数据实体层

2009-10-29 09:57:16

VB.NET实现数据绑

2010-01-11 17:40:36

VB.NET相框效果

2010-01-22 18:14:49

VB.NET菜单组件

2009-10-13 10:21:58

VB.NET实现Web

2010-01-12 10:48:54

VB.NET LIST

2009-10-12 14:32:40

VB.NET实现定时关

2010-01-08 15:41:36

VB.NET窗口关闭

2009-10-23 13:22:25

VB.NET实现拖动图

2010-01-12 10:40:58

VB.NET数据库压缩

2010-01-15 18:24:14

VB.NET打开Not

2009-10-14 13:56:05

VB.NET数据窗体

2010-01-12 16:39:26

VB.NET数据绑定

2009-10-14 13:15:09

VB.NET数据绑定

2009-10-29 14:02:24

VB和VB.NET比较

2009-10-23 15:35:42

VB.NET实用教程

2010-01-15 19:17:23

2010-01-21 17:48:25

VB.NET Sing

2009-11-03 10:18:46

VB.NET继承

2010-01-08 15:33:57

VB.NET文字宽度计
点赞
收藏

51CTO技术栈公众号