Office中国论坛/Access中国论坛

标题: 如何用vba中的数组读取表中的一组数据， [打印本页]

作者: fengyeyouni 时间: 2009-8-4 08:50
标题: 如何用vba中的数组读取表中的一组数据，
因为数据多少不定，要有动态的数组，有没有高手帮忙解决一下，要有代码的，最好要有一些注视，我是新手水平很低。谢谢。。。

作者: todaynew 时间: 2009-8-4 11:05
本帖最后由 todaynew 于 2009-8-4 11:07 编辑

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

.....

作者: Henry D. Sy 时间: 2009-8-4 11:14
估计用用到多维数组

作者: aslxt 时间: 2009-8-4 11:45
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

作者: djt 时间: 2009-8-4 13:38
Array=rs.getrows

作者: 唐玉娥 时间: 2009-8-4 22:13
5# djt

同意

作者: 唐玉娥 时间: 2009-8-4 22:16
4# aslxt

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)