当前位置:编程学习 > VB >>

怎么用listview夹在数据库的数据

我想用listview1 加载用户信息表中的信息 (用户编号  用户名称 密码)

要怎么Private Sub LoadData()
    Dim addlist1 As ListItem
    '得到用户信息
   
    SQL = " select * from 用户信息表 order by 用户编号"
    Set rs = SelectSQL(SQL, msg)
    If rs.RecordCount <> 0 Then
    listview1.View = lvwReport '报表显示方式
    listview1.GridLines = True '显示表格线
    
    Set addlist1 = listview1.ColumnHeaders.Add(, , Str(rs.Fields("用户编号")))
     //listview1.ColumnHeaders.Add(, , Str(rs.Fields("用户名称")))
    //Set addlist1 = listview1.ColumnHeaders.Add(, , Str(rs.Fields("密码")))
    //Set addlist1 = listview1.ListItems.Add(, , Str(rs.Fields("身份证号")))
     //addlist1.SubItems(4) = IIf(IsNull(rs.Fields("电话")), "", rs.Fields("电话"))
    都行不通  
    rs.NextRecordset
    
    listview1.Refresh
    End If
   End Sub 什么乱七八糟的。

连循环都没有。。。

...
listview1.View = lvwReport '报表显示方式
listview1.GridLines = True '显示表格线
listview1.ColumnHeaders.Add "用户编号"
listview1.ColumnHeaders.Add "用户名称"
...
Dim li As ListItem
While Not rs.Eof
    Set li = listview1.ListItems.Add rs!第一列
    li.SubItems(0).Text = rs!第二列
    li.SubItems(1).Text = rs!第三列
    ...
    rs.MoveNext
Wend
...
以上代码只是大致思路,自己写写吧
     谢谢 以后才看到
补充:VB ,  网络编程
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,