Question

vb中如何把数据库的内容显示到listview，帮我解决下吧 谢谢你

Answer 1

Private Sub Form_Load()
'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。
ListView1.ListItems.Clear '清空列表
ListView1.ColumnHeaders.Clear '清空列表头
ListView1.View = lvwReport '设置列表显示方式
ListView1.GridLines = True '显示网络线
ListView1.LabelEdit = lvwManual '禁止标签编辑
ListView1.FullRowSelect = True '选择整行

ListView1.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名
ListView1.ColumnHeaders.Add , , "本地 IP", 1500
ListView1.ColumnHeaders.Add , , "本地端口", 1200
ListView1.ColumnHeaders.Add , , "协议", 550
ListView1.ColumnHeaders.Add , , "远程 IP", 1500
ListView1.ColumnHeaders.Add , , "远程端口", 900
ListView1.ColumnHeaders.Add , , "当前状态", 900
ListView1.ColumnHeaders.Add , , "连接时间", 900
'-------------------------------------------------------
Dim X
X = ListView1.ListItems.Count + 1
ListView1.ListItems.Add , , X
ListView1.ListItems(X).SubItems(1) = "00:00:00"
ListView1.ListItems(X).SubItems(2) = "2008-01-01"
ListView1.ListItems(X).SubItems(3) = "(无)"
'-------------------------------------------------------
ListView1.ListItems.Clear '清空列表
ListView1.ListItems.Add , , "1"
'ListView1.ListItems.Add , , "1", , 1 '添加图标 后面那个1是ImageList1控件中的图标索引号
ListView1.ListItems(1).SubItems(1) = "00:00:00"
ListView1.ListItems(1).SubItems(2) = "2008-01-01"
ListView1.ListItems(1).SubItems(3) = "(无)"

ListView1.ListItems.Add , , "2"
ListView1.ListItems(2).SubItems(1) = "00:00:01"
ListView1.ListItems(2).SubItems(2) = "2008-01-01"
ListView1.ListItems(2).SubItems(3) = "(无)"
'-------------------------------------------------------
'下列的属性也可以 单击控件右键->属性 进行设置。
ListView1.View = lvwReport '设置显示方式为列表
ListView1.AllowColumnReorder = True '对行进行程序排列，用鼠标进行排列
ListView1.Arrange = lvwAutoLeft '图标横排列
ListView1.Arrange = lvwAutoTop '图标竖排列
ListView1.FlatScrollBar = False '显示滚动条
ListView1.FlatScrollBar = True '隐藏滚动条
ListView1.FullRowSelect = True '选择整行
ListView1.LabelEdit = lvwManual '禁止标签编辑
ListView1.GridLines = True '显示网络线
ListView1.LabelWrap = True '图标可以换行
ListView1.MultiSelect = True '可以选择多个项目
ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)
ListView1.Checkboxes = True '显示复选框
'ListView1.DropHighlight = ListView1.ListItems.Item(2) '显示系统颜色

End Sub

追问

我怎么看不到有联系数据库的方法呢 ，是我太笨了 再指导下呗

追答

上面是直接加的方法。
dim conn as New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库;Data Source=服务器名或服务器IP"
Dim rsetemp As New Recordset
rsetemp.Open "select * from tablename", conn
do until rsetemp.eof
''加数据到对应的内容

rsetemp.movenext
loop

追问

哦 好的 谢谢你啊 我还有个问题，就是像刚才直接加入的数据时，在vb运行时怎么更改呢 ，就改其中的一项 比如 就改一个指定列行的内容呢