Copiar registro de una Tabla a otra Tabla, sin repetirse

[vtdeleon]

Que base de datos usas?

Lo mejor es usar sentencias SQL!

Código SQL [-]
Insert into TablaA
  (Select * from TablaB 
   Where TablaB.CampoID<>TablaA.CampoID)

Sino utiliza Locate para buscar el campo llave.

El codigo b:=b no tiene sentido, quita eso!

[MaMu]

Empezado por vtdeleon

Que base de datos usas?

Lo mejor es usar sentencias SQL!


Código SQL [-]Insert into TablaA
(Select * from TablaB
Where TablaB.CampoID<>TablaA.CampoID)


Sino utiliza Locate para buscar el campo llave.

El codigo b:=b no tiene sentido, quita eso!

Uso Access, y no uso la sentencia sql, porque las tablas son diferentes, solo comparten 3 campos, cuyos FieldNames son diferentes. Lo que no entiendo, es porque me repite uno de los valores.

[[egostar]]

Haber si esto te puede servir

Código Delphi [-]
function TForm1.No_Existe(Dato:String):Bool;
begin
  Query1.Close; 
  Query1.SQL.Text := 'SELECT * FROM ESTADISTICAS WHERE VALOR = :dato';
  Query1.ParamByName('Dato').AString := Dato;
  Query1.Open;
  If RecordsCount = 0 then
     Result := True
  else Result := False;
end;

........
........
While not QAux.EoF do begin
   if No_Existe(QAux.FieldByName('conceptoDEBE').AsString) then begin
      QEstadisticas.Insert;
      try
        QEstadisticas.FieldByName('categoria').AsString:='Gastos Generales';
        QEstadisticas.FieldByName('valor').AsString:=QAux.FieldByName('conceptoDEBE').AsString;
        QEstadisticas.FieldByName('cantidad').AsInteger:=QAux.FieldByName('cantidad').AsInteger;
        QEstadisticas.FieldByName('subtotal').AsCurrency:=QAux.FieldByName('importe').AsCurrency;
        QEstadisticas.Post;
      except
        QEstadisticas.Cancel;
      end;
   end;
   QAux.Next;
end;

Aunque lo hice al aire porque no tengo mi Delphi, puede haber algun error.

Salud OS.

Edito: Se me adelanto sara2005, y me parece una muy buena idea la del LOCATE.

[vtdeleon]

Uso Access, y no uso la sentencia sql,

Mejor aun, y mas razon para usar las sentencias.

porque las tablas son diferentes, solo comparten 3 campos, cuyos FieldNames son diferentes

Eso no importa.

Danos detalles de las tablas, los campos relacionados, y el campo Id (el cual no queires que se repita).

[seara2005]

Prueba algo así como esto

Código Delphi [-]
procedure TransferirDatos(Sender: TObject);
begin
   QAux.First;
  While Not(QAux.Eof) do
    Begin
       If Not(QEstadisticas.Locate('Valor',QAuxConceptoDebe.Value,[loCaseInsensitive])) then
         Begin
            QEstadisticas.Insert;
            try
              QEstadisticas.FieldByName('categoria').AsString:='Gastos Generales';
              QEstadisticas.FieldByName('valor').AsString:=QAux.FieldByName('conceptoDEBE').AsString;
              QEstadisticas.FieldByName('cantidad').AsInteger:=QAux.FieldByName('cantidad').AsInteger;
              QEstadisticas.FieldByName('subtotal').AsCurrency:=QAux.FieldByName('importe').AsCurrency;
              QEstadisticas.Post;
            except
              QEstadisticas.Cancel;
            end;
         End;
      QAux.Next;
    End;
end;