发布网友 发布时间:2024-09-17 05:59
共1个回答
热心网友 时间:2024-09-28 03:10
方法1通过split()函数:
dim Arr,Rs
Set Rs=Conn.Execute("select aa from abc")
Arr=""
Do While Not Rs.Eof
If Arr="" Then
Arr=Rs("aa")
Else
Arr=Arr&","&Rs("aa")
End If
Rs.Movenext
loop
Arr=split(Arr,",") 'arr即是你想要的数组
方法2,通过记录集的GetRows方法
‘可取多个字段
Set Rs=Conn.Execute("..........")
Arr=Rs.GetRows()
Rs.Close()
'操作Arr
'方法是Arr(Y,X)
'X可以理解成表格的行
'Y就是表格的列