Problemas en insercion de registros

[ilichhernandez]

He intentado con el codigo que sigue a continuacion, pero no me inserta los registris en las otras tablas..... o sea los datos estan en tcomparacion , y trato de enviar los datos a diferentes tablas segund un dato de un campo, pero no funciona.....Agradeceria el tiempo de alguno de los masters.....

Código Delphi [-]
//repartir los diferentes registros de tcomparacion en tfuncional,tquimico,tfisico y tmicro
dm.tcomparacion.Open;
While (not dm.tcomparacion.eof) Do
   Begin
   If (dm.tcomparacion.FieldByName('analisis').AsString <> '') then
      begin
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'fisico') then
               begin
               dm.Qryfisico.SQL.Clear;
               dm.Qryfisico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfisico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "fisico" ');
               dm.Qryfisico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'quimico') then
               begin
               dm.Qryquimico.SQL.Clear;
               dm.Qryquimico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryquimico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "quimico" ');
               dm.Qryquimico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'funcional') then
               begin
               dm.Qryfuncional.SQL.Clear;
               dm.Qryfuncional.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfuncional.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "funcional" ');
               dm.Qryfuncional.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'micro') then
               begin
               dm.Qrymicro.SQL.Clear;
               dm.Qrymicro.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qrymicro.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "micro" ');
               dm.Qrymicro.ExecSQL;
               end;
   end; //if
dm.tcomparacion.Next;
end;
dm.tcomparacion.Close;

Gracias....

Ilich Hernandez

[[Lepe]]

Te aconsejo un manual de sql si quieres avanzar más rápido y no quedarte parado en detalles de sintaxis.

La sintaxis normal es:

INSERT INTO <NOMBRETABLA> (nombrecampo1, nombrecampo2,etc)
VALUES (valorcampo1, valorcampo2, etc).

Los valores (VALUES) deben ser los adecuados para un solo registro, sin embargo, en tu SQL te falta la palabra VALUES y además estas haciendo un select * que puede devolver más de un registro. Supongo que el orden de los campos será el mismo para ambas tablas.

Por otra parte dbase no es una base de datos Cliente / Servidor, puede que con TTables funcione más rápido que con Querys.

Si tienes posiblidad de cambiar de BBDD te sugiero Firebird, con un procedimiento almacenado si podrías realizar todo ese proceso de una forma más comoda.

saludos