VB.NET中怎么導出數據

這篇文章將為大家詳細講解有關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中怎么導出數據就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。