自拍偷在线精品自拍偷,亚洲欧美中文日韩v在线观看不卡

自己動手用代碼實現(xiàn)VB.NET ListView加載數(shù)據(jù)

開發(fā) 后端
這里介紹使用VB.NET ListView顯示數(shù)據(jù)并實現(xiàn)排序的代碼,簡單地說一下它的實現(xiàn)原理:顯示數(shù)據(jù)是通過循環(huán)讀取數(shù)據(jù)記錄,用VB.NET ListView的Add方法將數(shù)據(jù)添加到ListView中。

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)了。

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

【編輯推薦】

  1. 原理分析VB.NET開發(fā)控件
  2. 自己動手修改VB.NET支付寶接口
  3. 如何快速掌握VB.NET控件數(shù)組
  4. 描述VB.NET IDisplayer接口
  5. 事例概括VB.NET Display方法
責任編輯:佚名 來源: CSDM
相關(guān)推薦

2009-10-26 14:25:09

VB.NET控件數(shù)組

2009-10-27 09:01:54

VB.NET內(nèi)存指針

2010-01-12 10:48:54

VB.NET LIST

2009-10-27 15:07:40

VB.NET支付寶接口

2009-10-29 09:57:16

VB.NET實現(xiàn)數(shù)據(jù)綁

2009-11-03 16:43:54

VB.NET拖放文件

2010-01-08 15:41:36

VB.NET窗口關(guān)閉

2009-10-15 17:57:33

VB.NET List

2009-11-03 10:18:46

VB.NET繼承

2010-01-20 13:42:10

VB.NET訪問INIGetPrivateP

2010-01-22 15:09:11

VB.NET下載程序

2010-01-22 17:12:08

VB.NET訪問Ifr

2009-11-02 16:55:50

VB.NET Smar

2010-01-14 17:03:01

VB.NET獲取網(wǎng)卡地

2010-01-13 09:31:39

VB.NET窗體打印

2010-01-15 11:31:02

VB.NET接口實現(xiàn)多

2009-10-13 10:21:58

VB.NET實現(xiàn)Web

2009-10-12 14:32:40

VB.NET實現(xiàn)定時關(guān)

2009-10-23 13:22:25

VB.NET實現(xiàn)拖動圖

2010-01-18 15:01:02

VB.NET異常迭代捕
點贊
收藏

51CTO技術(shù)棧公眾號