VB高手救命呀,将VB程序与数据库结合的问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 05:56:33
这是已有的程序,运行正常的:
Private Sub Form_Load()
For i = 1 To 50
Image1.Picture = LoadPicture(3 & ".gif")
ImageList1.ListImages.Add i, , Image1.Picture
Next i
TreeView1.ImageList = ImageList1
For i = 1 To 15
TreeView1.Nodes.Add , tvwChild, "openfrm" & i, CStr(i) , 1
j = j + 5
TreeView1.Nodes(i).Tag = "0" & CStr(j)
Next i
End Sub

请将上面程序放入下面循环数据库记录显示,实现上面程序的功能
rs.Open "select * from texts where zxbz=1", cn, 3, 1
If Not rs.EOF Then
Do While Not rs.EOF
id = CStr(rs("id"))
users = rs("addrs")
'放在这里,实现循环显示.其中这里的"ID"相当于是上面的"j"的值,这里的"USERS"是上面的"i"的值
rs.MoveNext
Loop

你提到这儿来了.
imagelist1中图片加载与,treeview1的图像列表设置能过它们的"属性"面版一设置也很方便.
Private Sub Form_Load()

rs.Open "select * from texts where zxbz=1", cn, 3, 1
i=0
rs.movefirst
Do While Not rs.EOF
id = CStr(rs("id"))
users = rs("addrs")
TreeView1.Nodes.Add , tvwChild, cstr(users), CStr(users) , 1
TreeView1.Nodes(i).Tag = "0" & CStr(id)
i=i+1
rs.MoveNext
Loop

End Sub

Private Sub Form_Load()
dim i as integer

For i = 1 To 50
Image1.Picture = LoadPicture(3 & ".gif")
ImageList1.ListImages.Add i, , Image1.Picture
Next i
TreeView1.ImageList = ImageList1

rs.Open "select * from texts where zxbz=1", cn, 3, 1
i=0
If Not rs.EOF Then
Do While Not rs.EOF
id = CStr(rs("id"))
users = rs("addrs")
TreeView1.Nodes.Add , tvwChild, "openfrm" & users, C