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

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

新聞中心

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

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

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

前些天在開發(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關鍵字組合SQL重新加載數(shù)據(jù)來實現(xiàn)排序的。

以下是程序所使用的數(shù)據(jù)庫及控件的設置信息：
數(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. '定義復選操作的相關變量  
    22.   
  
  
  22. Dim i As Integer  
    23.   
  
  
  23. Dim sCount As Integer  
    24.   
  
  
  24.  
    25.   
  
  
  25. #Region " Windows 窗體設計器生成的代碼 "  
    26.   
  
  
  26.  
    27.   
  
  
  27. Public Sub New()  
    28.   
  
  
  28. MyBase.New()  
    29.   
  
  
  29.  
    30.   
  
  
  30. '該調用是 Windows 窗體設計器所必需的。  
    31.   
  
  
  31. InitializeComponent()  
    32.   
  
  
  32.  
    33.   
  
  
  33. '在 InitializeComponent() 調用之后添加任何初始化  
    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方法

本文題目：自己動手用代碼實現(xiàn)VB.NET ListView加載數(shù)據(jù)
文章出自：http://www.5511xx.com/article/cdodehe.html