怎么用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 , 网络编程