关于网友提出的“ DELPHI开发，导入数据到数据库时，如何做导入的进度条”问题疑问，本网通过在网上对“ DELPHI开发，导入数据到数据库时，如何做导入的进度条”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： DELPHI开发，导入数据到数据库时，如何做导入的进度条
描述: DELPHI开发，导入EXCEL数据到sql server数据库时，如何做导入的进度条
解决方案1:
procedure TfrmImportData.btn2Click(Sender: TObject);
var
Query: TADOQuery;
i: Integer;
begin
i := 0;
try
try
Query := TADOQuery.Create(nil);
Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + edtFileName.Text + ';Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";Persist Security Info=False';
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('Select * from [Sheet1$]');
Query.Open;
ProgressBar1.Max := Query.RecordCount;
while not Query.Eof do
begin
//写入SQL Server表的具体代码
inc(i);
ProgressBar1.Position := i;
end;
except
Application.MessageBox('数据导入数据库失败!', '错误', MB_OK + MB_ICONSTOP);
end;
finally
Query.free;
end;
end;
以上介绍了“ DELPHI开发，导入数据到数据库时，如何做导入的进度条”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3125044.html
