急急

Question

我想从 TAB(表)中依次读出记录，此循环语句该怎写《初学VB》，请指教。

Answer 1

do while not rs.eof
    ……
    rs.movenext
loop

Answer 2

请说明白些。"该怎写《初学VB"?--
如果是读取TAB表,然后要放在控件(如LISTBOX),那可以这样:
dim rs as new adodb.recordset
dim i as long
rs.open "select * from tab",cn,1,3
while not rs.eof
 list1.additem rs(0).value
 rs.movenext
wend

Answer 3

'首先引用Microsoft Activex Data Objects 2.x Library 
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset'sqlserver
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "select * from table", objcon, 3, 1
do while not objrs.eof
     list1.additem objrs.fields(0)
     list2.additem objrs.fields(1)
   ......
    objrs.movenext
loop'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from table", objcon, 3, 1
do while not objrs.eof
     list1.additem objrs.fields(0)
     list2.additem objrs.fields(1)
   ......
    objrs.movenext
loop