将数据库查询结果数组化，并按需重构数组

为了方便输出查询，往往需要重构：

1. Set rs = conn.Execute(sql)
   
2. 
   
3. '——把记录放进数组——
   
4. Dim class_arr() , idx
   
5. idx = -1
   
6. Do Until rs.EOF
   
7.     idx = idx + 1
   
8.     ReDim Preserve class_arr(idx)
   
9.     ' 每条记录一个小数组：id,name,pid,remark
   
10.     Dim row(4)
    
11.     row(0) = rs("Id")
    
12.     row(1) = rs("sName")
    
13.     row(2) = rs("Pid")
    
14.     row(3) = rs("Remark")
    
15.     class_arr(idx) = row
    
16.     rs.MoveNext
    
17. Loop
    
18. rs.Close : Set rs = Nothing

复制代码