通过ADO更新mysql表，2600条，用了30秒，怎么优化？急。谢谢
通过ADO更新mysql表，2600条，用了30秒。该怎么写？
代码：
procedure TForm1.Button2Click(Sender: TObject);
var
I: integer;
a,b ,c,s: string;
wp: pYC_DEFINE;
rfloat :string;

begin
rfloat := '%.2f';
with ADOQuery1 do
begin
ADOQuery1.Open;
for I := 0 to gyclist.Count - 1 do
begin
ADOQuery1.sql.clear;
wp := gyclist.Items[I];
a:= InttoStr(wp^.m_wsite);
b:= wp^.m_nno;
c := IntToStr(wp^.m_wsite);
ADOQuery1.SQL.Add('update as_yc_define set DATA_VALUE='''+c+''''+' where (YC_DATA_ID='''+b+''')');
ADOQuery1.ExecSQL; //执行的这一句太慢
end;
end;
ADOQuery1.Close;
end;

[解决办法]