ADOStoredProc查询sql,再导出数据到excel,ole error 800ac472

dingding82 2005-04-21 10:06:11

利用下面的代码导出数据到excel,有时候导出成功,有时报错ole error 800ac472
请问如何解决?

ADOStoredProc_outexcel.First;
try
for i := 1 to ADOStoredProc_outexcel.RecordCount do begin
ExcelWorksheet1.Cells.Item[i + 4, 1] := inttostr(i);
ExcelWorksheet1.Cells.Item[i + 4, 2] := ADOStoredProc_outexcel.FieldByName('name').AsString;
ExcelWorksheet1.Cells.Item[i + 4, 3] := ADOStoredProc_outexcel.FieldByName('sex').AsString;
ADOStoredProc_outexcel.Next;
end;

...全文

686 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhlwyy 2005-06-09

打赏
举报

ADOStoredProc_outexcel.First;
try
for i := 1 to ADOStoredProc_outexcel.RecordCount do begin
ExcelWorksheet1.Cells.Item[i + 4, 1] := inttostr(i);
ExcelWorksheet1.Cells.Item[i + 4, 2] := ADOStoredProc_outexcel.FieldByName('name').AsString;
ExcelWorksheet1.Cells.Item[i + 4, 3] := ADOStoredProc_outexcel.FieldByName('sex').AsString;
ADOStoredProc_outexcel.Next;
end;

一般循环提倡用
while not do
begin
end

dingding82 2005-06-09