Question

一个关于在VB中将Recordset 读出的内容放到一个数组变量中的问题!!

动态数组a，还有数据集rs，如何把rs中的数据传到数组a中，已经试过getrow但是不行

Answer 1

Dim oc As Object, rs As Object, a()
Set oc = CreateObject("adodb.connection")
oc.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\tmp\db2.mdb"
Set rs = CreateObject("adodb.recordset")
rs.open "select * from tek", oc, 1, 1
a = rs.getrows
MsgBox "记录集rs已被读入数组a中" & vbCrLf & "共" & UBound(a, 1) + 1 & "列 " & UBound(a, 2) + 1 & "行"
rs.Close
Set rs = Nothing
oc.Close
Set oc = Nothing

以上代码我测试过是可行的。有几点要注意：

1、数组a的类型一定要是Variant型（不定类型），而不能指定具体的类型，如String、Integer等；

2、是getrows，不是getrow；

3、数组a赋值后会是个二维数组，其第一维是列数（就是数据表中的字段数），第二维是行数（也就是数据表中的记录数）。

Answer 2

1、首先检测数据表的字段数，存储在变量中，例如X变量。
X = RS.Fields.Count
2、声明动态变量数组a()：
ReDim a(1 To X)
3、赋值：
For I = 0 To X
a(I + 1) = RS.Fields(I)
Next I

Answer 3

a(i)=rs.files(0)
类似这样的语句就可以了

Answer 4

a = rs.GetRows(1)