我的sql语句是
select count,date
from 表1
where date between '20090201' and '20090205'
group by date
结果
count date
3 20090201
5 20090203
4 20090204
3 20090205
我怎么用vba程序处理把 这个结果集放到两个数组中呢?
select count,date
from 表1
where date between '20090201' and '20090205'
group by date
结果
count date
3 20090201
5 20090203
4 20090204
3 20090205
我怎么用vba程序处理把 这个结果集放到两个数组中呢?
ADO 各个组件(如 connection,recordset)的用法楼主,楼主找书去看吧
先建一个查询Query01(空的也可以) Set qdf = CurrentDb.QueryDefs("Query01")
X_Sql = "select count,date from 表1 where date between '20090201' and '20090205' group by date "
qdf.SQL = X_Sql
qdf.Close Set Re = CurrentDb.OpenRecordset("Query01")
If re.RecordCount = 0 Then exit sub '如果记录数为0退出
i=0
Do Until Re.EOF
i=i+1
数组1(i)=re("count")
数组1(i)=re("date")
Re.MoveNext
Loop把上面这个过程放到一个按钮里就可以了。