查询时间控制

做了一个数据查询，想知道查询过程用了多少时间，并且动态显示查询时间，
如用了XX时XX分XX秒，查询完成时，冻结在最后查询时间上。
请问各位怎么实现呀！
请帮帮可怜的人呀！

解决方案 »

  1.   

    使用MS的ADO对象库没有直接的方法得到执行进度，不过在DELPHI的ADO组件中可以得到执行进度，我也不知道如何在VB中使用。关注ing...
      

  2.   

    使用Timer事件
    当查询开始的时候，将Timer1.Enable=true
    timer的事件间隔为1妙
    在Timer1_Timer 事件中 把Time 赋值给label 变量即可
    当查询结束时，将将Timer1.Enable=false 即可简单计算时间的话，Adors.Open 的时候为查询开始，得到返回值时候可以当作查询结束
      

  3.   

    在查询开始时用 Time取系统时间
    查询结束时也如此
      

  4.   

    t=timer
    查询
    msgbox timer-t