日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
自己動手用代碼實現(xiàn)VB.NET ListView加載數(shù)據(jù)

VB.NET還是比較常用的，于是我研究了一下VB.NET ListView，在這里拿出來和大家分享一下，希望對大家有用。平時我們在VB.NET中開發(fā)數(shù)據(jù)庫相關(guān)的程序都會用到DataGrid來顯示數(shù)據(jù)，它的使用相對簡單，也有排序的功能，基本能滿一般的要求。但有時它并不能滿足項目的功能需求，這時我們就想到了用VB.NET ListView，雖然它的功能正是我們所要的，必競它不是一個數(shù)據(jù)庫的控件，不能像DataGrid那樣通過簡單的設(shè)置就可以顯示數(shù)據(jù)，同時也沒有排序的功能，這些就要我們自已用程序代碼來實現(xiàn)了。

成都創(chuàng)新互聯(lián)從2013年成立，先為無錫等服務(wù)建站，無錫等地企業(yè)，進行企業(yè)商務(wù)咨詢服務(wù)。為無錫企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

前些天在開發(fā)一個項目時就寫了一段使用VB.NET ListView顯示數(shù)據(jù)并實現(xiàn)排序的代碼，簡單地說一下它的實現(xiàn)原理：顯示數(shù)據(jù)是通過循環(huán)讀取數(shù)據(jù)記錄，用VB.NET ListView的Add方法將數(shù)據(jù)添加到ListView中；排序的功能是通過ListView列的點擊事件來得到要排序的字段，再使用ORDER BY關(guān)鍵字組合SQL重新加載數(shù)據(jù)來實現(xiàn)排序的。

以下是程序所使用的數(shù)據(jù)庫及控件的設(shè)置信息：
數(shù)據(jù)庫名：Northwind(SQL SERVER 2000中自帶的,如果沒有此數(shù)據(jù)庫請先建立)
表名：Products(如果沒有這個表，請使用后面附帶的SQL語句建立)
窗體名：frmListViewDb

 
 
 
      
  
  
  1. Imports System.Data.SqlClient  
    2.   
  
  
  2. Public Class frmListViewDb  
    3.   
  
  
  3. Inherits System.Windows.Forms.Form  
    4.   
  
  
  4.  
    5.   
  
  
  5. '定義數(shù)據(jù)庫連接對象  
    6.   
  
  
  6. Dim sdConn As New SqlConnection  
    7.   
  
  
  7. Dim conString As String = "data source=127.0.0.1;initial catalog=Northwind;uid=sa;password=123456" 
    8.   
  
  
  8.  
    9.   
  
  
  9. '定義記錄db2ListView執(zhí)行狀態(tài)的變量  
    10.   
  
  
  10. Dim Dbr As Integer  
    11.   
  
  
  11.  
    12.   
  
  
  12. '定義記錄默認排序方式的變量  
    13.   
  
  
  13. Dim mySort As String = "ASC" 
    14.   
  
  
  14.  
    15.   
  
  
  15. '定義記錄默認排序字段的變量  
    16.   
  
  
  16. Dim myField As String = "ProductID" 
    17.   
  
  
  17.  
    18.   
  
  
  18. '定義記錄上次排序的字段在LISTVIEW中的列ID的變量  
    19.   
  
  
  19. Dim pOrderID As Integer = 0 
    20.   
  
  
  20.  
    21.   
  
  
  21. '定義復(fù)選操作的相關(guān)變量  
    22.   
  
  
  22. Dim i As Integer  
    23.   
  
  
  23. Dim sCount As Integer  
    24.   
  
  
  24.  
    25.   
  
  
  25. #Region " Windows 窗體設(shè)計器生成的代碼 "  
    26.   
  
  
  26.  
    27.   
  
  
  27. Public Sub New()  
    28.   
  
  
  28. MyBase.New()  
    29.   
  
  
  29.  
    30.   
  
  
  30. '該調(diào)用是 Windows 窗體設(shè)計器所必需的。  
    31.   
  
  
  31. InitializeComponent()  
    32.   
  
  
  32.  
    33.   
  
  
  33. '在 InitializeComponent() 調(diào)用之后添加任何初始化  
    34.   
  
  
  34.  
    35.   
  
  
  35. End Sub  
    36.   
  
  
  36.  
    37.   
  
  
  37. '窗體重寫 dispose 以清理組件列表。  
    38.   
  
  
  38. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)  
    39.   
  
  
  39. If disposing Then  
    40.   
  
  
  40. If Not (components Is Nothing) Then  
    41.   
  
  
  41. components.Dispose()  
    42.   
  
  
  42. End If  
    43.   
  
  
  43. End If  
    44.   
  
  
  44. MyBase.Dispose(disposing)  
    45.   
  
  
  45. End Sub 
    46.

【編輯推薦】

  1. 原理分析VB.NET開發(fā)控件
  2. 自己動手修改VB.NET支付寶接口
  3. 如何快速掌握VB.NET控件數(shù)組
  4. 描述VB.NET IDisplayer接口
  5. 事例概括VB.NET Display方法

文章標(biāo)題：自己動手用代碼實現(xiàn)VB.NET ListView加載數(shù)據(jù)
轉(zhuǎn)載來于：http://www.dlmjj.cn/article/cdodehe.html