Question

vb中怎样用LABEL循环输出数据库中数据

'链接数据库查询用户表Call OpenConnrs.Open "select * from 网址收藏 where 置顶=true ", conn, adOpenStatic, adLockOptimistic
'如果找到数据则向MS1中输入数据If Not rs.EOF ThenDim i As IntegerFor i = 1 To 3
mingcheng3.Caption = rs!名称 & ""dizhi3.Caption = rs!地址 & ""
Next
Else
End If

我有3组LABEL标签，我想将数据循环输出到这三组上面，
一个是
mingcheng1和dizhi1
mingcheng2和dizhi2
mingcheng3和dizhi3
我是初学，请哪位大哥大姐

能帮帮我，或者有更好的办法实现图片中的样式，谢谢了

就先以网址收藏为例。

Answer 1

Call OpenConn
rs.Open "select * from 网址收藏 where 置顶=true ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
mingcheng1.Caption = rs("名称")
dizhi1.Caption = rs("地址")
rs.Movenext

If Not rs.EOF Then
mingcheng2.Caption = rs("名称")
dizhi2.Caption = rs("地址")
rs.Movenext

If Not rs.EOF Then
mingcheng3.Caption = rs("名称")
dizhi3.Caption = rs("地址")
End If
End If
End If
rs.Close

本来你最好用控件数组来做的，不是控件数组的话，就只能这样一个个赋值了。

Answer 2

不用控件数组也可以编程的
For i = 1 To 3
Controls("mingcheng" & i).Caption = rs!名称 & ""
Controls("dizhi" & i).Caption = rs!地址 & ""
Next

追问

要是给后面的打开再加上连接应该怎么写，麻烦你了，

追答

对不起，开始没问，新问题新帖子，你帖子的问题已经回答完了，不可能一个帖子回答你一生所有的问题。

Answer 3

计时器或者API