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

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

新聞中心

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

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

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

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

以下是程序所使用的數(shù)據(jù)庫及控件的設(shè)置信息：
數(shù)據(jù)庫名：Northwind(SQL SERVER 2000中自帶的,如果沒有此數(shù)據(jù)庫請(qǐng)先建立)
表名：Products(如果沒有這個(gè)表，請(qǐng)使用后面附帶的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ù)庫連接對(duì)象  
    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. '定義記錄默認(rèn)排序方式的變量  
    13.   
  
  
  13. Dim mySort As String = "ASC" 
    14.   
  
  
  14.  
    15.   
  
  
  15. '定義記錄默認(rèn)排序字段的變量  
    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è)計(jì)器生成的代碼 "  
    26.   
  
  
  26.  
    27.   
  
  
  27. Public Sub New()  
    28.   
  
  
  28. MyBase.New()  
    29.   
  
  
  29.  
    30.   
  
  
  30. '該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。  
    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. 自己動(dòng)手修改VB.NET支付寶接口
  3. 如何快速掌握VB.NET控件數(shù)組
  4. 描述VB.NET IDisplayer接口
  5. 事例概括VB.NET Display方法

分享名稱：自己動(dòng)手用代碼實(shí)現(xiàn)VB.NET ListView加載數(shù)據(jù)
標(biāo)題來源：http://m.5511xx.com/article/cdodehe.html