Como realizar multiples UPDATE desde un TStringlist

[elmago00]

gracias por responer ecfisa.

yo tengo esto:

Código Delphi [-]
tabla mayor
id               Nombre                   valor..
11010000    ingresos por alquiler   0.00
11020000    gasto de ventas         0.00

tabla menor
id             nombre                       saldo
11010001  alquiler de terreno          45154.15
11010002  alquiler de oficina           8951.15
11010003  sucursal uno                   0.00
11020001  impuesto sobre la renta    1450.15
11020002  otros costos                    751.15

lo que debo hacer es sumar, la columna de la tabla menor, cuyos primeros 6 números sean iguales al registro de la tabla mayor.
y guardarlo en ese registro de la tabla mayor..


yo lo hago uno por uno...
pero debo hacerlo, sin tener que digitar a que cuenta mayor voy a actualizar sus valores... sino que busque los datos en la tabla menor y me actualice todos los registros de la mayor de acuerdo a la suma de la columna de la tabla menor.. automáticamente.. todo esto desde delphi

[elmago00]

recuerden yo guardo los primeros 6 numeros de cada registro de la tabla mayor en un stringlist..
como hago, para que recorra todos los valores del stringlist en la sentencia mysql... para que actualice toda la tabla mayor de forma automática.
siempre de acuerdo a los valores iniciales, que estan en la tabla menor... desde delphi

[ecfisa]

Hola.

Entonces, y si te he entendido bién, la solución se puede reducir a este código:

Código Delphi [-]
...
begin
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('UPDATE TABLA_MAYOR MA');
  ZQuery1.SQL.Add('SET MA.VALOR = COALESCE( ( SELECT SUM( ME.VALOR )');
  ZQuery1.SQL.Add('FROM TABLA_MENOR ME ');
  ZQuery1.SQL.Add('WHERE SUBSTRING(ME.ID FROM 1 FOR 6) = SUBSTRING(MA.ID FROM 1 FOR 6) ), 0)');
  ZQuery1.ExecSQL;
end;

Saludos

[elmago00]

gracias funciona perfecto....