VB连接ACCESS时，如何保存SQL查询结果

Question

比如在VB中建立一个数组a(i)，把查询结果赋值给a(i)，具体应该如何操作？

Answer 1

用记录集打开数据，逐项（字段）保存。
例如：
Dim rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFile & ";"
pConn.Open
rs.Open "select f1,f2,f3 from t1", Conn, adOpenStatic, adLockReadOnly, adCmdText
'假设数组与数据库表的字段一一对应
for i=0 to UBound(a)
a(i)=rs(i)
next i
'如果字段不是一一对应，可以这么写
a(0)=rs("f1")
a(1)=rs("f2")
...