Key violation. Continuar con siguiente registro

[roman]

Empezado por CHiCoLiTa

Todo esto esta bien, y no hay ningun problema. Lo que quiero saber es si el volcado puede seguir haciendose automaticamente saltandose ese registro despues de indicar en la ventana de dialogo cual era. Que la excepcion se detectada y mostrada, pero NO INTERRUMPA la ejecucion del programa

Como dice jachguate no veo necesidad para hacer ningún rollback, tal como lo estructura él es más que suficiente. No obstante creo que no tiene caso mostrar el registro duplicado cada vez ya que esto de cualquier manera detiene el proceso mientras el usuario oprime OK. Para mi lo mejor sería crearte una tabla auxiliar para guadar los registros duplicados. Sería una tabla con la misma estructura que la que estás procesando pero sin la restricción de la clave duplicada. Cada vez que el ciclo te detecte un registro duplicado en el try-except, guardas una copia de este registro en la tabla auxiliar y continuas sin mandar ningún mensaje al usuario. Cuando termine el proceso le presentas un grid con los registros que quedaron en la tabla auxiliar.

// Saludos

[CHiCoLiTa]

El rollback lo hacia, porque si el proceso se para por clave duplicada y la ejecucion del programa termina, cuando vuelven a empezar todos los registros ya estarian duplicados porque los copio en la primera pasada.

Y el abort, para evitar que me muestre el mensaje de error, y mostrar el que yo quiera, no los 2

Al hacer lo que me comento jachguate, el programa sigue parando al encontrar un duplicado

Este es el codigo que tengo puesto ahora mismo para hacer las pruebas con lo que me dijeron, por si veis algo anormal

Código Delphi [-]
procedure TDataModule2.TCt_totalPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
var
   Texto : string;
begin
   if (E is EDatabaseError) then
     if Pos('PRIMARY KEY', UpperCase(E.Message)) <> 0 then
     begin
        Texto := 'Duplicado el registro con ID: ' + QEasy.FieldByName('ID_CT').AsString;
        Application.MessageBox(PChar(Texto), 'Registro duplicado',mb_Ok+MB_ICONEXCLAMATION);
        TCT_TOTAL.cancel;
     end;
end;

QEasy es la tabla origen
TCT_TOTAL es la talba destino
Conexion con ADO y las 2 tablas estan en diferentes bases de datos, por eso no hago el insert

De este modo es como copio los datos de una tabla a otra

Código Delphi [-]
           while not QEasy.Eof do
           begin
              TCT_TOTAL.Append;
              for i := 0 to QEasy.Fields.Count - 1 do
                  TCT_TOTAL.Fields[i].Value := QEasy.Fields[i].Value;
              TCT_TOTAL.Post;
              QEasy.Next;
           end;

[marto]

Código Delphi [-]
   while not QEasy.Eof do
   begin
      TCT_TOTAL.Append;
      for i := 0 to QEasy.Fields.Count - 1 do
          TCT_TOTAL.Fields[i].Value := QEasy.Fields[i].Value;
      try
        TCT_TOTAL.Post;
      except
        on E: EDatabaseError do
        begin
          if Pos('KEY VIAOLATION', E.Message) > 0) then
          begin
            Texto := 'Duplicado el registro con ID: ' + QEasy.FieldByName('ID_CT').AsString;
            Application.MessageBox(PChar(Texto), 'Registro duplicado',mb_Ok+MB_ICONEXCLAMATION);
            TCT_TOTAL.cancel;
          end else
            raise;
        end;
      end;
      QEasy.Next;
   end;

Lo que quieren decir los compañeros es esto... y cárgate el OnPostError

[CHiCoLiTa]

Pues si que soy duro de mollera Ya lo decia mi madre
No lo veia, y lo tenia hecho. Ahora que me has abierto los ojos marto, ya entiendo todo

Al hacer yo mismo el try except, controlo directamente la excepcion, pero si lo hago en el OnPostError, el programa ya lo ha detenido haciendo directamente el raise. Es mas o menos correcto este razonamiento?

Muchas a gracias a todos

[marto]

Empezado por CHiCoLiTa

Es mas o menos correcto este razonamiento?

Po sí, el razonamiento es ese

[Alejandro Ruiz]

Yo tengo un problema parecido, un mensaje de SQL de error al duplicar la llave primaria, sin embargo trato de cachar el error en el OnPostError y no me lo toma en cuenta , ayudenme!!!!