Copiar registro de una Tabla a otra Tabla, sin repetirse

[MaMu]

SOLUCIONADO

Gracias a todos, tome un poco de cada una de las sugerencias de ustedes y logre solucionarlo.

Muchas Gracias

[[egostar]]

Empezado por mamu

SOLUCIONADO

Gracias a todos, tome un poco de cada una de las sugerencias de ustedes y logre solucionarlo.

Muchas Gracias

Hola mamu

Muchos de nosotros te agradeceriamos que postearas la solución para consultas futuras, de esa manera, quien tenga un problema similar trendrá de primera mano la solución a sus dudas.

Salud OS.

[Crashthebig]

deberas declarar la tabla de la que copiaras los datos con el nombre: tblsource, y la tabla a la que copiaras los datos con el nombre de: tbldest.

y copia este codigo en algun boton

Código Delphi [-]
 var
   i : integer;
   fldDest, fldSource : TField;
 begin
   with tblDest do begin
     Append;
     for i := 0 to FieldCount - 1 do
     begin
       fldDest := Fields[i];
       if not (fldDest.ReadOnly or fldDest.Calculated) then
       begin
         fldSource := tblSource.FindField(fldDest.FieldName);
         if assigned(fldSource) then
         begin
           fldDest.DataSet.Edit;
           fldDest.AsString := fldSource.AsString
         end
       end
     end;
   {Post}
   end

esta sentencia copiara el registro activo de la tabla tblsource a la tabla tbldest

[Vales08]

Buenas tardes, me meto en este hilo porque tengo la misma consulta...
Pasar registros de una tabla a otra, pero sin que se repitan. yo lo hago mediante dos dbgrid y en un boton puse el codigo que paso seara2005, lo modifiqué segun mi programa, pero el problema esta en que me carga el registro tantas veces como registros hay cargado en la tabla.. (ejemplo: si tengo 3 registros en total cargado en la tabla principal, me carga el registro 3 veces en la otra tabla).

Como puedo solucionar eso? o que estoy haciendo mal.. Les paso mi codigo para que me puedan ayudar..

Código Delphi [-]
DM.Q_alim.First;
  While Not(DM.Q_alim.Eof) do
    Begin
       If Not(DM.Q_plan_y_alim.Locate('ID_ALIM',DM.Q_alimID_ALIM.Value,[loCaseInsensitive])) then
         Begin
            DM.DSET_plan_y_alim.Insert;
            try
              DM.DSET_plan_y_alimESTADO.Value:=0;
              DM.DSET_plan_y_alim.FieldByName('ID_ALIM').AsInteger:=DM.DSET_alim.FieldByName('ID_ALIM').AsInteger;
              DM.DSET_plan_y_alim.FieldByName('ID_PLAN').AsInteger:=DM.DSET_plan_alim.FieldByName('ID_PLAN_A').AsI  nteger;
              DM.DSET_plan_y_alim.Post;
            except
              DM.DSET_plan_y_alim.Cancel;
            end;
         End;
      DM.Q_alim.Next;
    End;

Aclaro: a la hora de la inserción uso el DataSet porque el Query no me permite el ingreso de registros ya que es de solo lectura.

Muchas gracias

[ecfisa]

Hola Vales08.

También podes pasar registros de una tabla a otra, sin que aquellos se repitan, de este modo:

Código SQL [-]
INSERT INTO TABLA_DESTINO (ID, CP1, CP2 ,...)
SELECT ID, CP1, CP2,... 
FROM TABLA_ORIGEN T1
WHERE NOT EXISTS (SELECT T2.ID, T2.CP1, T2.CP2 ,...
                  FROM TABLA_DESTINO T2
                  WHERE T1.ID = T2.ID
                    AND T1.CP1 = T2.CP1
                    AND T1.CP2 = T2.CP2
                    ...)

Saludos.

[Vales08]

ecfisa muchas gracias por la respuesta..
Eh probado el código pero me salta un error y no se que puede ser..
Error:

Dynamic SQL Error
SQL error code = -804
Count of columns does not equal count of values

El codigo:

Código Delphi [-]
DM.Q_plan_y_alim.Active:=False;
with DM.Q_plan_y_alim.SQL do
  begin
    Clear;
    Add('INSERT INTO PLAN_Y_ALIM (ID_PLAN_Y_ALIM, ID_ALIM, ID_PLAN)');
    Add('SELECT ID_ALIM ');
    Add('FROM ALIMENTOS ');
    Add('WHERE NOT EXISTS (SELECT PLAN_Y_ALIM.ID_PLAN_Y_ALIM, PLAN_Y_ALIM.ID_ALIM, PLAN_Y_ALIM.ID_PLAN ');
    Add('FROM PLAN_Y_ALIM ');
    Add('WHERE ALIMENTOS.ID_ALIM = PLAN_Y_ALIM.ID_ALIM)');
  end;
DM.Q_plan_y_alim.Active:=True;

Me gustaria que me orientaras a saber donde puede estar el problema..

[ecfisa]

Hola Vales08.

A primera vista, en la línea:

Código SQL [-]
 Add('INSERT INTO PLAN_Y_ALIM (ID_PLAN_Y_ALIM, ID_ALIM, ID_PLAN)');

indicas que vas a insertar valores en tres columnas de la tabla PLAN_Y_ALIM.

Pero en las líneas:

Código SQL [-]
 Add('SELECT ID_ALIM');
 Add('FROM ALIMENTOS');

Solo seleccionas una columna de la tabla ALIMENTOS, es que decir que faltaría especificar dos columnas de dicha tabla para ser insertados en las columnas ID_ALIM e ID_PLAN de la tabla PLAN_Y_ALIM

Saludos.