Insertar tabla de otra tabla con condiciones

[[kuan-yiu]]

Código Delphi [-]
   qInsertar:= TQuery.create(Application);
   with qInsertar do
   begin
      try
         close;
         SQL.Clear;
         DatabaseName := miBase;
         SQL.Add('Insert into '+tabla1+' (Id)');
         SQL.Add('Values (:id)');
         Prepare;
         tabla2.first;
         tabla3.first;
         //Si no están ordenadas tienes que tener dos bucles anidados. Si lo están vale algo así.
         while (not tabla2.eof)and(not tabla3.eof) do
         begin
            if (tabla2.FieldByName('CODIGO').AsInteger=tabla3.FieldByName('CODIGO').AsInteger) and
               (tabla2.FieldByName('NOMBRE').AsString=tabla3.FieldByName('NOMBRE').AsString) then
            begin
               Parambyname('id').AsInteger  := tabla2.FieldByName('CODIGO').AsInteger;
               ExecSQL;
               tabla2.next;
               tabla3.next;
            end
            else
            begin
            //Siguiente registro. Depende de la ordenación. Avanzando una u otra según cual sea menor o mayor.
            end;
        end;
      finally
         Free;
      end;
   end;

[igamerpc]

Ya esta solucionado era RecordCount si es 1 que si coincide las dos tablas a insertar el registro. Por fin llevo 1 semana intentando.

[[movorack]]

Te recomiendo revises la solución que te plantea [kuan-yiu].

El recordcount es una propiedad que indica el numero total de registros asociados al dataset, que no siempre coinciden con el número total de la tabla o consulta.

[igamerpc]

Vale hago lo d kuan-yiu lo probare a ver si va bien.