VB编程教程：如何将数据库数据添加到Listview中 (vb listview 加数据库)
VB编程是一个非常强大的开发工具，具有广泛的应用范围。其中，将数据库数据添加到Listview中是一个很重要的功能。本篇文章将介绍如何使用VB编程实现这一功能，帮助开发者更好地掌握VB编程技能。
一、创建VB窗体
在开始编写VB程序之前，需要先创建VB窗体。打开VB编程软件，新建VB工程，然后在工具箱中拖动Listview控件到窗体上即可。在窗体中添加一个按钮，用于将数据库数据添加到Listview中。
二、连接数据库
在VB编程中，连接数据库是必不可少的一步。连接数据库需要使用连接字符串，可以使用ODBC或OLEDB等方式。在本篇文章中，使用OLEDB方式连接数据库。
在VB工程中添加以下代码：
‘ 建立连接方式
Dim cn As New OleDbConnection(“provider=microsoft.jet.oledb.4.0;data source=d:\test.mdb”)
cn.Open()
‘ 初始化数据适配器
Dim da As OleDbDataAdapter = New OleDbDataAdapter(“SELECT * FROM table”, cn)
‘ 建立数据集
Dim ds As DataSet = New DataSet()
‘ 把数据填入数据集
da.Fill(ds)
‘ 关闭连接
cn.Close()
以上代码首先建立了一个OLEDB连接对象，连接到一个数据库。接着，建立了一个OleDbDataAdapter对象，通过DataAdapter对象下的Fill()函数将数据填充到DataSet对象中。关闭连接，释放资源。
三、将数据添加到Listview中
在VB工程中添加以下代码：
‘ 清空ListView控件
ListView1.Items.Clear()
‘ 遍历数据集
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count – 1
‘ 建立ListView子项
Dim item As ListViewItem = New ListViewItem()
‘ 添加ListView子项的之一列
item.SubItems.Add(ds.Tables(0).Rows(i)(“name”).ToString())
‘ 添加ListView子项的第二列
item.SubItems.Add(ds.Tables(0).Rows(i)(“price”).ToString())
‘ 将ListView子项添加到ListView控件中
ListView1.Items.Add(item)
Next i
以上代码首先通过ListView控件的Items.Clear()函数清空ListView控件已有的数据。接着，通过遍历DataSet对象获取数据，建立ListView子项，并将子项添加到ListView控件中。
四、完整代码
以下是完整代码，仅供参考。
Public Class Form1
‘ 建立连接方式
Dim cn As New OleDbConnection(“provider=microsoft.jet.oledb.4.0;data source=d:\test.mdb”)
cn.Open()
‘ 初始化数据适配器
Dim da As OleDbDataAdapter = New OleDbDataAdapter(“SELECT * FROM table”, cn)
‘ 建立数据集
Dim ds As DataSet = New DataSet()
‘ 把数据填入数据集
da.Fill(ds)
‘ 关闭连接
cn.Close()
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
‘ 清空ListView控件
ListView1.Items.Clear()
‘ 遍历数据集
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count – 1
‘ 建立ListView子项
Dim item As ListViewItem = New ListViewItem()
‘ 添加ListView子项的之一列
item.SubItems.Add(ds.Tables(0).Rows(i)(“name”).ToString())
‘ 添加ListView子项的第二列
item.SubItems.Add(ds.Tables(0).Rows(i)(“price”).ToString())
‘ 将ListView子项添加到ListView控件中
ListView1.Items.Add(item)
Next i
End Sub
End Class
以上就是将数据库数据添加到Listview中的VB编程教程。通过本篇文章，相信读者能够更好地掌握VB编程技能，为开发更加优秀的VB应用程序打下基础。
相关问题拓展阅读：
- vb中实现数据库内容在listview中显示出来。
- VB.NET ListView1控件添加数据
vb中实现数据库内容在listview中显示出来。
‘省略打或旁开数据库连接
Dim rs As New ADODB.Recordset
Dim strsql as string
strsql=”Select mz, xb Form 1234″
rs.Open strsql, dbConnection, adOpenKeyset, adLockReadOnly
Dim xitem As ListItem
While Not rs.EOF
Set xitem = ListView1.ListItems.Add( , , rs.Fields(“mz”))
xitem.SubItems(“1″察侍) = rs.Fields(“xb”败团吵)
rs.MoveNext
Wend
Set xitem = Nothing
rs.Close
Set rs = Nothing
连接数据库后直接查询该表的字段名，按层级显示就OK了。
VB.NET ListView1控件添加数据
要使用ListView控件，需要加入组件：
Microsoft Windows Common Controls 6.0
Windows资源管理器的右半部分，就是一个ListView控件。
作用
列出并列关系的对象及对象属性。
ListView控件的对象层次结构
ListView -整个控件
ColumnHeaders -标题行
ColumnHeader -标题列
ListItems -对象行
ListItem -对象行
ListSubItems -对象属性
ListSubItem -对象属性
注意：SubItems和ListSubItems的区别：SubItems是一个String数组；ListSubItems是一个。
属性
View：设置ListView的外观
Sorted：设置ListView中的对象是否排序。
SortKey：设置以第几项排序。
从零开始
。
SelectedItem：返回选中的对象的引用。
事件
AfterLabelEdit：编辑ListItem对象的标签时被触发。
BeforeLabelEdit：编辑ListItem对象的标签后出发。
ColumnClick：单击列标题时触发。参数中可以获得被单击的列对象。通常用于排序。
ItemClick：单击某行或某ListItem时触发。参数中可以获得被单击的ListItem对象。
方法
FindItem：搜索ListItem对象。
参数：
string：搜索
字符串
。
value：在ListItem的哪部分中搜索（LvwText、LvwSubItem、LvwTag）；index：开始搜索的位置。
match：匹配方式。
HitTest：检索位于特定坐标处的ListItem对象。
ListView控件比前面几种控件要复杂一些，通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。ListView控件是由ColumnHeader和ListItem对象所组成的，其中ColumnHeader对象的个数决定了控件的列数，而盯粗笑ListItem对象的个数则决定了控件的行数。(图7)
ColumnHeader对象是ListView控件中包含标头文字的项目。利用ColumnHeader对象，用户可以：
▲单击对象触发ColumnClick事件并根据数据项目将项目排序。
▲拖动对象的右边框来调整列宽度。
▲在报表视图中隐藏ColumnHeader对象。
ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。删除ColumnHeader对象后所有与列关联的子项目也将被删除，并且每个ListItem对象的子项目数组将平移以更凯含新ColumnHeader的索引，而这将导致剩余的列标头SubItemIndex属性的改变。
ColumnHeader对象的SubItemIndex属性
该属性返回与ListView控件中ColumnHeader对象关联的子项目的索引。子项目是字符串数组，代表显示在报表视图中的ListItem对象的数据。之一列的列标头SubItemIndex属性设置为0，这是因为小图标和ListItem对象的文字总出现在之一列中，而且它们被当作ListItem对象而不是子项目。凳含列标头数目取决于子项目数目。列标头数目总是比子项目数目多1。
在设计时可以利用属性页的“列首”选项卡将ColumnHeader对象添加到ListView控件中，在运行时则用Add方法添加。
ColumnHeader对象的Add方法
该方法的使用与前面那些控件基本相似，就不再介绍了。
ListView1.ColumnHeader.Add(index,key,text,width,alignment)
ListItem对象是指控件中的一行（不包含标头行）的所有内容。它也可包含文本和图片，但是要使用图片则必须通过Icons和SmallIcons属性引用ImageList控件。
ListItem对象的SubItems属性
返回或设置一个字符串（子项目）数组，它代表ListView控件中ListItem对象的数据。
ListItem对象可包含任意多个的关联项目数据字符串（子项目），但每个ListItem对象子项目数目必须相同。每个子项目都对应于相关的列标头，无法直接向子项目数组添加元素，只有通过ColumnHeaders的Add方法添加列标头的方法来添加子项目。
ListItem对象的Add方法
该方法添加ListItem对象到ListView控件的ListItems中并返回对新创建对象的引用。
它的语法如下：
ListItem1.Add(index,key,text,icon,allIcon)
ListView控件的View属性
ListView控件可使用四种不同视图显示项目，这可以用View属性来确定。该属性返回或设置ListView控件中ListItem对象的外观。
ListView控件的SortOrder，SortKey和Sorted属性
控件中的ListItem对象可以按要求进行排序，与排序有关的属性是SortOrder，Sorted和SortKey属性。
SortOrder属性返回或设置一个值，此值决定ListView控件中的ListItem对象以升序或降序排序。
SortKey属性返回或设置一个值，此值决定ListView控件中的ListItem对象如何排序。
Sorted属性返回或设置确定ListView控件中的ListItem对象是否排序的值。
下面的代码说明了如何创建ColumnHeaders和ListItem对象，SubItemIndex和SubItem属性的使用方法以及如何排序。
Private Sub Form_load()
‘确保ListView控件的view属性为报表视图。
ListView1.View=lvwReport
‘添加三列。
ListView1.ColumnHeaders.Add,”Name”,”姓名”
ListView1.ColumnHeaders.Add,”Sex”,”性别”
ListView1.ColumnHeaders.Add,”Age”,”年龄”
‘向控件添加ListItem对象。
Dim itmX As ListItem
‘添加column1的名称。
Set itmX=ListView1.ListItems.Add(1,”ZL”,”张力”)
‘使用SubItemIndex将SubItem与正确的ColumnHeader关联。使用关键字(“Sex”)指定正确的ColumnHeader。
itmX.SubItems(ListView1.ColumnHeaders(“Sex”).SubItemIndex)=”男”
‘使用ColumnHeader关键字将SubItems字符串与
‘正确的ColumnHeader关联。
itmX.SubItems(ListView1.ColumnHeaders(“Age”).SubItemIndex)=”19″
Set itmX=ListView1.ListItems.Add(1,”LF”,”
李芳
“)
itmX.SubItems(ListView1.ColumnHeaders(“Sex”).SubItemIndex)=”男”
itmX.SubItems(ListView1.ColumnHeaders(“Age”).SubItemIndex)=”22″
Set itmX=ListView1.ListItems.Add(1,”WW”,”王伟”)
itmX.SubItems(ListView1.ColumnHeaders(“Sex”).SubItemIndex)=”男”
itmX.SubItems(ListView1.ColumnHeaders(“Age”).SubItemIndex)=”24″
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
Select Case ColumnHeader.Key
Case “Sex”:ListView1.SortKey=1
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
Case “Age”:ListView1.SortKey=2
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
End Select
End Sub
关于vb listview 加数据库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
香港服务器首选后浪云，2H2G首月10元开通。
后浪云（www.IDC.Net）提供简单好用，价格厚道的香港/美国云服务器和独立服务器。IDC+ISP+ICP资质。ARIN和APNIC会员。成熟技术团队15年行业经验。