Servidor me desconecta

[b1ast3r]

Servidor Ubuntu con Mysql 5.
Delphi 7

en un For
mando llamar un Thread y este thread manda hacer un update a la base de datos.

Pero como hace tantos update tan rapido, termina el programa por que el servidor me desconecta.

Ahora soluciono con un sleep(600) pero es mucho tiempo.

Alguna sugerencia ?

Uso el TZQuery para hacer el update

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:= 0;
while (x<=10000) do
begin
if(memo1.Lines.Strings[x] = '') then
begin
x:=10001;
end
else
begin
sleep(100);
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add(memo1.Lines.Strings[x]);
Run(ZQuery1);
x:=x+1;
end;
end;
end;


procedure TQueryThread.Execute;
begin
Query.ExecSQL;
end;

[[duilioisola]]

Supongo que como todos los Threads utilizan el mismo Query puede ser que aún no haya terminado de procesar uno y ya se esté ejecutando otro.

Supongo que tu Thread deberá crear su propio Query, ejecutarlo y liberarlo dentro de su espacio.

El parámetro de Run, quizás debería ser solamente el string.