如何用vba中的数组读取表中的一组数据，

fengyeyouni

因为数据多少不定，要有动态的数组，有没有高手帮忙解决一下，要有代码的，最好要有一些注视，我是新手水平很低。谢谢。。。

唐玉娥

4# aslxt

不错,讲清楚了原理,但VBA是提供了更简单的句法.请参见DJT的回复.

唐玉娥

5# djt

同意

djt

Array=rs.getrows

aslxt

Dim STR
  Dim i, j As Integer
  Dim Arry'定义数组
  Dim Rs As ADODB.Recordset
  Dim CN As ADODB.Connection
  Set CN = New ADODB.Connection
  STR = "...“
  CN.Open "连接字符串"
  Set Rs = New ADODB.Recordset
  Rs.Open STR, CN, adOpenStatic, adLockReadOnly
  
ReDim Arry(1 To Rs.RecordCount, 1 To Rs.Fields.Count)’根据数据大小重新定义数组
For j = 1 To Rs.RecordCount
  For i= 1 to Rs.Fields.Count
     Arry(j, i) = Rs.Fields(i-1)
   Next i
  Rs.MoveNext
Next j

Henry D. Sy

估计用用到多维数组

todaynew

x(0)=rs(1)  '一维数组的x(0)等于字段1
x(1)=rs(2)  '一维数组的x(1)等于字段2

.....