Listview如何显示数据

Posted 2023-05-05

用rs.Open查出了a表的所有数据（如下），然后用Listview显示全部数据的实例代码（也就是下面一大片空白的地方应写的代码）。a表有：ID , NA , TE 三个字段。如果你有请让我看看好吗？感激不尽！

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim spl As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VBP\shop.mdb;Persist Security Info=False"
spl = "select * from a"
Set rs = New ADODB.Recordset
rs.Open spl, cn, adOpenForwardOnly, adLockOptimistic

cn.Close
Set cn = Nothing

End Sub

第一步：添加列头
可在form_load里边添加，如下：
'初始化
ListView1.FullRowSelect = True '（允许整行选择）
listview1.gridlines=true '(显示网格)
listview1.checkboxs=true '显示checkboxs框
listview1.view=3 '以报表形式显示

ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "性别", 500
ListView1.ColumnHeaders.Add 3, , "职称", 1500
ListView1.ColumnHeaders.Add 4, , "电话", 1000

第二步，添加数据
Dim itmX As ListItem
Set itmX = lvw.ListItems.Add(参数，参数，参数，……) '这些参数都可以为空，具体你可以看看msdn
itmX.text="李四"
itmX.SubItems(1) = "雄性"
itmX.SubItems(2) = "大将军"
itmX.SubItems(3) = "10086"

第三步，取得行数据
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1 = Item.Text
Text2 = Item.SubItems(1)
Text3 = Item.SubItems(2)
Text4 = Item.SubItems(3)
End Sub

试一试就能知道怎么用了，快去试试吧 参考技术A dim j as Integer 'Listview1的行数，第0行一般都是显示表头
With Listview1 '显示数据
.ListItem.Clear
.Visible=False
j=1
Do While Not rs.EOF
.ListItem,Add, ,rs.Fields("ID")
If IsNull(rs.Fieds("NA")) Then
.ListItems(j).SubItems(1)=""
Else
..ListItems(j).SubItems(1)=rs.Fieds("NA")
End if
If IsNull(rs.Fieds("TE")) Then
.ListItems(j).SubItems(2)=""
Else
..ListItems(j).SubItems(2)=rs.Fieds("NA")
End if
rs.MoveNext
Next j
loop
.Visible=True
End With
要右键点击Listview1设置属性，通用->查看(3-lvwReport)才能显示查询结果

listview如何绑定数据库，让数据库的数据显示在listview中。

谢谢各位大哥大姐了，帮帮小弟！
同事就要我用listview绑定啊，我的表有3个字段id lxr lxdh
我是用sql server 2000数据库连接的vs2005
我自己写的代码是

listView1.Items.Clear();
listView1.Columns.Clear();

DataSet dst = new DataSet();
SqlCommand cmd =new SqlCommand ("select id,lxr,lxdh from table1");
SqlDataAdapter dap = new SqlDataAdapter(cmd);


str[0] = rows["id"].ToString();
str[1] = rows["lxr"].ToString();
str[2] = rows["lxdh"].Tostring();
ListViewItem item = new ListViewItem(str,0);
listView1.Items.Add(item);

不对啊，高手指点！ qq号为286233970.希望高手指点！

参考技术A 为什么要用listview呢？ 这种需求，该用 gridview 的啊