怎样把access里的一个表里的三个字段下的数据全部付到一个两维数组里！谢谢！

Question

dim arrValue() as string
dim lngLoop as long
dim oRs 
....
redim arrvalue(2,ors.recordcount-1)
lngloop=0
while not ors.eof
     arrvalue(0,lngloop)=ors("field1")
     arrvalue(1,lngloop)=ors("field2")
     arrvalue(2,lngloop)=ors("field3")
     ors.movenext
     lngloop=lngloop+1
wend

Answer 1

怎样把access里的一个表里的三个字段下的数据全部付到一个两维数组里！再把数组里的数放到EXCEL

Answer 2

怎样把access里的一个表里的三个字段下的数据全部付到一个两维数组里！再把数组里的数放到EXCEL