我的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程序处理把 这个结果集放到两个数组中呢?

解决方案 »

  1.   

    VBA 通常是通过 ADO (OLE DB)来访问数据库的。
    ADO 各个组件(如 connection,recordset)的用法楼主,楼主找书去看吧
      

  2.   

    这个问题我能帮你~~
     
    先建一个查询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把上面这个过程放到一个按钮里就可以了。