|
|
为了方便输出查询，往往需要重构：
- Set rs = conn.Execute(sql)
- '——把记录放进数组——
- Dim class_arr() , idx
- idx = -1
- Do Until rs.EOF
- idx = idx + 1
- ReDim Preserve class_arr(idx)
- ' 每条记录一个小数组：id,name,pid,remark
- Dim row(4)
- row(0) = rs("Id")
- row(1) = rs("sName")
- row(2) = rs("Pid")
- row(3) = rs("Remark")
- class_arr(idx) = row
- rs.MoveNext
- Loop
- rs.Close : Set rs = Nothing
|
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡