我想读出数据库内容,然后数据库的ID1 显示在listview的第一行,数据库的ID2行显示在LISTVIEW中的第二行,以此类推,没有就不显示。
我数据库实际是有三行数据库如图:
然后我程序读出来的结果只有第一行结果:
正常我希望是,把数据库的三行数据库全部读出显示在我程序上的listview上,
下面是的代码:我数据库查询方法是调用模块的
sql_idb = "select * from pin "
Set rsb = RsMySQL(sql_idb)
ListView2.ListItems.Clear '清空列表
ListView2.ColumnHeaders.Clear '清空列表头
ListView2.View = lvwReport '设置列表显示方式
ListView2.GridLines = True '显示网络线
ListView2.LabelEdit = lvwManual '禁止标签编辑
ListView2.FullRowSelect = True '选择整行
ListView2.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名
ListView2.ColumnHeaders.Add , , "pin注册码", 3200
ListView2.ColumnHeaders.Add , , "状态", 800
ListView2.ColumnHeaders.Add , , "创建时间", 2500
'-------------------------------------------------------
X = ListView2.ListItems.Count + 1
ListView2.ListItems.Add , , X
ListView2.ListItems(X).SubItems(1) = rsb("pin")
ListView2.ListItems(X).SubItems(2) = rsb("pinuse")
ListView2.ListItems(X).SubItems(3) = rsb("datatimer")
'-------------------------------------------------------
ListView2.ListItems.Clear '清空列表
ListView2.ListItems.Add , , "1"
'ListView2.ListItems.Add , , "1", , 1 '添加图标 后面那个1是ImageList1控件中的图标索引号
ListView2.ListItems(1).SubItems(1) = rsb("pin")
ListView2.ListItems(1).SubItems(2) = rsb("pinuse")
ListView2.ListItems(1).SubItems(3) = rsb("datatimer")
' ListView2.ListItems.Add , , "2"
' ListView2.ListItems(2).SubItems(1) = rsb("pin")
' ListView2.ListItems(2).SubItems(2) = rsb("pinuse")
' ListView2.ListItems(2).SubItems(3) = rsb("datatimer")
'-------------------------------------------------------
'下列的属性也可以 单击控件右键->属性 进行设置。
ListView2.View = lvwReport '设置显示方式为列表
ListView2.AllowColumnReorder = True '对行进行程序排列,用鼠标进行排列
ListView2.Arrange = lvwAutoLeft '图标横排列
ListView2.Arrange = lvwAutoTop '图标竖排列
ListView2.FlatScrollBar = False '显示滚动条
ListView2.FlatScrollBar = True '隐藏滚动条
ListView2.FullRowSelect = True '选择整行
ListView2.LabelEdit = lvwManual '禁止标签编辑
ListView2.GridLines = True '显示网络线
ListView2.LabelWrap = True '图标可以换行
ListView2.MultiSelect = True '可以选择多个项目
ListView2.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部,其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)
求大神指导,另外我想双击listview2 对应的每行数据就复制对应每行的数据,这个又怎么弄