VB读取所有数据问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 09:43:50
请问大家我已经select * from 表名了
接下来怎么把查到的所有信息循环放在数组里啊，初学VB，请指教

dim i as integer
if rs.eof=false then
do until rs.eof
redim preserve sTemp(i)
sTemp(i)=rs.field
rs.movenext
i=i+1
loop
end if

Dim MyData()
If rs.RecordCount > 0 Then
ReDim MyData(1 to Rs.RecordCount)
'这里怎么把数据循环取出来放在数组里啊'
For i=1 to Rs.RecordCount
MyData(i)=Rs("想取的字段名")
Rs.MoveNext
Next
End If