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

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

成都创新互联服务项目包括乌拉特后网站建设、乌拉特后网站制作、乌拉特后网页制作以及乌拉特后网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，乌拉特后网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到乌拉特后省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

 
 
 
  
  
  Dim excel As Excel.Application    
  
  Dim xBk As Excel._Workbook    
  
  Dim xSt As Excel._Worksheet    
  
  Dim xRange As Excel.Range    
  
  Dim xPivotCache As Excel.
PivotCache    
  
  Dim xPivotTable As Excel.
PivotTable    
  
  Dim xPivotField As Excel.
PivotField    
  
  Dim cnnsr As String, sql 
As String    
  
  Dim RowFields() As String = 
{"", "", ""}    
  
  Dim PageFields() As String = 
{"", "", "", "", "", ""}    
  
  'SERVER 是服务器名或服务器的IP地址    
  
  'DATABASE 是数据库名    
  
  'Table 是表名    
  
  Try

开始实现VB.NET导出数据

 
 
 
  
  
  cnnsr = "ODBC;DRIVER=SQL 
Server;SERVER=" + SERVER     
  
  cnnsrcnnsr = cnnsr + ";UID=;
APP=Report Tools;WSID=ReportClient;
DATABASE=" + DATABASE    
  
  cnnsrcnnsr = cnnsr + ";
Trusted_Connection=Yes"    
  
  excel = New Excel.ApplicationClass    
  
  xBk = excel.Workbooks.Add(True)    
  
  xSt = xBk.ActiveSheet    
  
  xRange = xSt.Range("A4")    
  
  xRange.Select()

开始

 
 
 
  
  
  xPivotCache = xBk.PivotCaches
.Add(SourceType:=2)    
  
  xPivotCache.Connection = cnnsr   
  
  xPivotCache.CommandType = 2   
  
  sql = "select * from " + Table    
  
  xPivotCache.CommandText = sql   
  
  xPivotTable = xPivotCache.
CreatePivotTable(TableDestination:
="Sheet1!R3C1", TableName:=
"数据透视表1", DefaultVersion:=1)

准备行字段

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

准备页面字段

 
 
 
  
  
  PageFields(0) = "字段4"    
  
  PageFields(1) = "字段5"    
  
  PageFields(2) = "字段6"    
  
  PageFields(3) = "字段7"    
  
  PageFields(4) = "字段8"    
  
  PageFields(5) = "字段9"    
  
  xPivotTable.AddFields(RowFields
RowFields:=RowFields, PageFields
PageFields:=PageFields)    
  
  xPivotField = xPivotTable.
PivotFields("数量")    
  
  xPivotField.Orientation = 4

关闭工具条

 
 
 
  
  
  'xBk.ShowPivotTableFieldList
 = False   
  
  'excel.CommandBars("PivotTable")
.visible = False   
  
  excel.Visible = True   
  
  Catch ex As Exception    
  
  If cnn.State = ConnectionState
.Open Then    
  
  cnn.Close()    
  
  End If    
  
  xBk.Close(0)    
  
  excel.Quit()    
  
  MessageBox.Show(ex.Message,
 "报表工具", MessageBoxButtons.
OK, MessageBoxIcon.Warning)    
  
  End Try

VB.NET导出数据的具体代码编写就为大家介绍到这里。

【编辑推荐】

VB.NET删除控件具体应用技巧分享
VB.NET动态属性基本概念及应用方法介绍
VB.NET通知控件基本概念解析
VB.NET消息队列相关内容详细介绍
VB.NET浮动窗体创建技巧分享

名称栏目：VB.NET导出数据实现你想要的效果
分享链接：http://www.mswzjz.com/qtweb/news34/176334.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容