这篇文章将为大家详细讲解有关VB.NET中怎么导出数据,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。
创新互联坚信:善待客户,将会成为终身客户。我们能坚持多年,是因为我们一直可值得信赖。我们从不忽悠初访客户,我们用心做好本职工作,不忘初心,方得始终。十载网站建设经验创新互联是成都老牌网站营销服务商,为您提供成都网站建设、网站制作、网站设计、H5页面制作、网站制作、品牌网站建设、微信小程序服务,给众多知名企业提供过好品质的建站服务。
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.
PivotCacheDim xPivotTable As Excel.
PivotTableDim xPivotField As Excel.
PivotFieldDim cnnsr As String, sql
As StringDim RowFields() As String =
{"", "", ""}Dim PageFields() As String =
{"", "", "", "", "", ""}'SERVER 是服务器名或服务器的IP地址
'DATABASE 是数据库名
'Table 是表名
Try
开始实现VB.NET导出数据
cnnsr = "ODBC;DRIVER=SQL
Server;SERVER=" + SERVERcnnsrcnnsr = cnnsr + ";UID=;
APP=Report Tools;WSID=ReportClient;
DATABASE=" + DATABASEcnnsrcnnsr = 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 = Falseexcel.Visible = True
Catch ex As Exception
If cnn.State = ConnectionState
.Open Thencnn.Close()
End If
xBk.Close(0)
excel.Quit()
MessageBox.Show(ex.Message,
"报表工具", MessageBoxButtons.
OK, MessageBoxIcon.Warning)End Try
关于VB.NET中怎么导出数据就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。