日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯網營銷解決方案
VB.NET導出數據實現你想要的效果

 VB.NET開發(fā)語言為我們平時的開發(fā)方式帶來了非常的改變。很多時候可以利用Excel的數據透視表導出你想要的報表格式。那么VB.NET導出數據該如何實現呢？下面的代碼可以從數據庫中取出數據然后導入Excel。

成都創(chuàng)新互聯服務項目包括烏拉特后網站建設、烏拉特后網站制作、烏拉特后網頁制作以及烏拉特后網絡營銷策劃等。多年來，我們專注于互聯網行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯網行業(yè)的解決方案，烏拉特后網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到烏拉特后省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

 
 
 
    
  
  
  
  1. Dim excel As Excel.Application  
    2.   
  
  
  2. Dim xBk As Excel._Workbook  
    3.   
  
  
  3. Dim xSt As Excel._Worksheet  
    4.   
  
  
  4. Dim xRange As Excel.Range  
    5.   
  
  
  5. Dim xPivotCache As Excel.
    PivotCache  
    6.   
  
  
  6. Dim xPivotTable As Excel.
    PivotTable  
    7.   
  
  
  7. Dim xPivotField As Excel.
    PivotField  
    8.   
  
  
  8. Dim cnnsr As String, sql 
    As String  
    9.   
  
  
  9. Dim RowFields() As String = 
    {"", "", ""}  
    10.   
  
  
  10. Dim PageFields() As String = 
    {"", "", "", "", "", ""}  
    11.   
  
  
  11. 'SERVER 是服務器名或服務器的IP地址  
    12.   
  
  
  12. 'DATABASE 是數據庫名  
    13.   
  
  
  13. 'Table 是表名  
    14.   
  
  
  14. Try 
    15.

開始實現VB.NET導出數據

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

開始

 
 
 
    
  
  
  
  1. xPivotCache = xBk.PivotCaches
    .Add(SourceType:=2)  
    2.   
  
  
  2. xPivotCache.Connection = cnnsr 
    3.   
  
  
  3. xPivotCache.CommandType = 2 
    4.   
  
  
  4. sql = "select * from " + Table  
    5.   
  
  
  5. xPivotCache.CommandText = sql 
    6.   
  
  
  6. xPivotTable = xPivotCache.
    CreatePivotTable(TableDestination:
    ="Sheet1!R3C1", TableName:=
    "數據透視表1", DefaultVersion:=1) 
    7.

準備行字段

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

準備頁面字段

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

關閉工具條

 
 
 
    
  
  
  
  1. 'xBk.ShowPivotTableFieldList
     = False 
    2.   
  
  
  2. 'excel.CommandBars("PivotTable")
    .visible = False 
    3.   
  
  
  3. excel.Visible = True 
    4.   
  
  
  4. Catch ex As Exception  
    5.   
  
  
  5. If cnn.State = ConnectionState
    .Open Then  
    6.   
  
  
  6. cnn.Close()  
    7.   
  
  
  7. End If  
    8.   
  
  
  8. xBk.Close(0)  
    9.   
  
  
  9. excel.Quit()  
    10.   
  
  
  10. MessageBox.Show(ex.Message,
     "報表工具", MessageBoxButtons.
    OK, MessageBoxIcon.Warning)  
    11.   
  
  
  11. End Try 
    12.

VB.NET導出數據的具體代碼編寫就為大家介紹到這里。

【編輯推薦】

  1. VB.NET刪除控件具體應用技巧分享
  2. VB.NET動態(tài)屬性基本概念及應用方法介紹
  3. VB.NET通知控件基本概念解析
  4. VB.NET消息隊列相關內容詳細介紹
  5. VB.NET浮動窗體創(chuàng)建技巧分享

當前題目：VB.NET導出數據實現你想要的效果
轉載來于：http://m.5511xx.com/article/cddhphe.html