当前位置:主页>delphi7/进销存和数据库> 文章内容

ADO控件的执行进度问题

发布时间:2010-02-01 | QQ免费站
1楼: 用ADO控件执行一条不返回数据集的SQL语句,或者执行一不返回数据集的存储过程,怎么样获得ADO控件当前的执行进度?
字串6

2楼: NO WAY

字串9

3楼: 没办法,只能用显示动画了. 字串9

4楼: 用异步方式操作,ADO能给出当前的进度。 设定adodataset1.ExecuteOptions 在Onfetchprogress中读进度

字串3

5楼: 同意shangchao的说法 字串2

6楼: procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus); begin Caption := ‘Percent complete: ‘ + IntToStr(Trunc(Progress / MaxProgress * 100)) + ‘%‘; Application.ProcessMessages; end; 字串2