如何将查询结果放到数组里？？

[San0011]

先前定义了一个People的Class
……
Dim Person
Set Person = new People
……
Dim Info(),i

i=0
SQL="Select * from People"
Set RS=conn.execute
Do While Not RS.Eof
Name=RS("Name")
Sex=RS("Sex")
Age=RS("Age")
(我想在此处将每一个People的值放到Info数组里)
i=i+1
RS.MoveNext()
Loop


请问怎样实现将每个People的值放到Info数组里，
并且能够在别的地方像Info(i).Name的调用它？

谢谢

[eoasis]

arr = rs.getrows(-1)

[unkowme]

Dim Info

SQL="Select * from People"
Set RS=conn.execute SQL
Info = RS.GetRows(Rows)

不过不能用Info(i).Name来引用，而要用Info(0,i),Info(1,i)...来引用。

[San0011]

它怎么说 Info = RS.GetRows(Rows)这句是：
ADODB.Recordset 错误 '800a0c93'
在此环境中不允许操作。

[KILL_HAND]

先一个FOR循环把People的值这样放到一个字符串变量里
Dim StrPeople
Do While not rs.eof
StrPeople = StrPeople&","rs("People")
Loop
再
ArrPeople = split(StrPeople,",")

[mayi545]

<%
set rs=conn.execute("select username,password form users")
Tmp=Rs.GetRows()
For i=0 To ubound(tmp,2)
response.write tmp(0,i)'输出username
response.write tmp(1,i)'输出assword
Next
%>

[KILL_HAND]

晕完整的代码：
Dim StrPeople
Do While not rs.eof
StrPeople = StrPeople&","&rs("People")
rs.MoveNext
Loop
'去掉最前面多加的 ,
StrPeople = Replace(StrPeople,"",1,1)
'以,来分割成数组
ArrPeople = split(StrPeople,",")

就存到 ArrPeople 这个数组了。

[谢紫枫]

学习

[San0011]

People有几个属性
我想保存成每个数组都有 Poeple.Name、People.Age 、People.Sex 这样的值。

上面的方法行吗？

[QQgenie]

就用:mayi545(4:30) 的吧,不受","的影响

如用字串的方式,万一字段内容中有","那就使split后的数组变多了.