自己动手用代码实现VB.NET ListView加载数据

VB.NET还是比较常用的，于是我研究了一下VB.NET ListView，在这里拿出来和大家分享一下，希望对大家有用。平时我们在VB.NET中开发数据库相关的程序都会用到DataGrid来显示数据，它的使用相对简单，也有排序的功能，基本能满一般的要求。但有时它并不能满足项目的功能需求，这时我们就想到了用VB.NET ListView，虽然它的功能正是我们所要的，必竞它不是一个数据库的控件，不能像DataGrid那样通过简单的设置就可以显示数据，同时也没有排序的功能，这些就要我们自已用程序代码来实现了。

成都创新互联从2013年成立，先为无锡等服务建站，无锡等地企业，进行企业商务咨询服务。为无锡企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

前些天在开发一个项目时就写了一段使用VB.NET ListView显示数据并实现排序的代码，简单地说一下它的实现原理：显示数据是通过循环读取数据记录，用VB.NET ListView的Add方法将数据添加到ListView中；排序的功能是通过ListView列的点击事件来得到要排序的字段，再使用ORDER BY关键字组合SQL重新加载数据来实现排序的。

以下是程序所使用的数据库及控件的设置信息：
数据库名：Northwind(SQL SERVER 2000中自带的,如果没有此数据库请先建立)
表名：Products(如果没有这个表，请使用后面附带的SQL语句建立)
窗体名：frmListViewDb

 
 
   
  
  Imports System.Data.SqlClient    
  
  Public Class frmListViewDb    
  
  Inherits System.Windows.Forms.Form    
  
     
  
  '定义数据库连接对象    
  
  Dim sdConn As New SqlConnection    
  
  Dim conString As String = "data source=127.0.0.1;initial catalog=Northwind;uid=sa;password=123456"   
  
     
  
  '定义记录db2ListView执行状态的变量    
  
  Dim Dbr As Integer    
  
     
  
  '定义记录默认排序方式的变量    
  
  Dim mySort As String = "ASC"   
  
     
  
  '定义记录默认排序字段的变量    
  
  Dim myField As String = "ProductID"   
  
     
  
  '定义记录上次排序的字段在LISTVIEW中的列ID的变量    
  
  Dim pOrderID As Integer = 0   
  
     
  
  '定义复选操作的相关变量    
  
  Dim i As Integer    
  
  Dim sCount As Integer    
  
     
  
  #Region " Windows 窗体设计器生成的代码 "    
  
     
  
  Public Sub New()    
  
  MyBase.New()    
  
     
  
  '该调用是 Windows 窗体设计器所必需的。    
  
  InitializeComponent()    
  
     
  
  '在 InitializeComponent() 调用之后添加任何初始化    
  
     
  
  End Sub    
  
     
  
  '窗体重写 dispose 以清理组件列表。    
  
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)    
  
  If disposing Then    
  
  If Not (components Is Nothing) Then    
  
  components.Dispose()    
  
  End If    
  
  End If    
  
  MyBase.Dispose(disposing)    
  
  End Sub

【编辑推荐】

原理分析VB.NET开发控件
自己动手修改VB.NET支付宝接口
如何快速掌握VB.NET控件数组
描述VB.NET IDisplayer接口
事例概括VB.NET Display方法

新闻标题：自己动手用代码实现VB.NET ListView加载数据
文章来源：http://www.hantingmc.com/qtweb/news40/281490.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容