关于进度条ProgressBar的使用

Question

向各位高手请教,把oracle数据库表的数据导入access数据库表中,在导入时会需要一段时间,我想用到进度条,但是不知道如何获得导完数据的准确长度,还有进度条的进度,希望各位能给出代码和事例,同时也希望帮小弟顶一下,工作急需,谢谢,小弟在线等待~~~~~~~~~~

Answer 1

select count(*) from tablename 得到数据量得大小，作为Max值，然后导入一条加1呀

Answer 2

ProgressBar1.Max := AdoDataSet.RecordCount;
  while not AdoDataSet.Eof do
  begin
    执行导数据;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    AdoDataSet.Next;
  end;

Answer 3

MaxValue 最大值
MinValue 最小值
Position 当前值
StepIt 当前值加一我想你知道这些应该就够用了。

Answer 4

ProgressBar1.Max := AdoDataSet.RecordCount;
  while not AdoDataSet.Eof do
  begin
    执行导数据;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    AdoDataSet.Next;
  end;