VB for循环，怎么实现显示检索出来的所有数据

Question

VB for循环，怎么实现显示检索出来的所有数据    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim Cnn As New ADODB.Connection '定义数据链接对象，保存连接数据库信息；请先添加ADO引用
        Dim Rs As New ADODB.Recordset  '定义记录集对象，保存数据表        MsgBox(3)
        Dim strCnn = "Provider=SQLNCLI;Server=服务大众;Database=qzsyck;Trusted_Connection=yes;"
        Cnn.Open(strCnn)        MsgBox("链接成功")        Rs.Open("select * from userpw", Cnn)  '定义SQL查询命令字符串        For i = 1 To 4            MsgBox(Rs("user").Value)
            MsgBox(Rs("password").Value)        Next i
        '循环
        Rs.Close()
        Cnn.Close()
    End Subfor循环里面该怎么写？附上我的数据库id    user    passwoed
1      aa        123
2      tt        21
3       sa       31
4       ae       qweqe

Answer 1

'用mshflexgrid控件显示吧rs.open "select * from userpw",cnn,adopenkeyset,adlockreadonly
set mshflexgrid.datasource=rs
rs.Close()
cnn.Close()

Answer 2

用表格控件就可以了. datagrid,msflexgrid/mshflexgrid…… ，这些IDE上可以直接添加。

Answer 3

do until rs.eof
   MsgBox(Rs("user").Value)
   MsgBox(Rs("password").Value)
   rs.movenext
loop

Answer 4

For i = 1 To rs.RecordCount
  MsgBox(Rs("user").Value)  & " " & Rs("password").Value
  rs.movenext
Next i
'------------------------------
For i = 1 To rs.RecordCount
  debug.print Rs("user").Value   & " " & Rs("password").Value
  rs.movenext
Next i

Answer 5

for循环里加一句 rs.movenext 即可
用处是记录指针移动到下一条

Answer 6

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP