Error de Primary Key

[[oscarac]]

verifica que el codigo que estas grabando no se esté repitiendo

[marcoszorrilla]

Sino puedes generar automáticamente el código con un generador, puedes lanzar un SQL que verifique si ese registro ya existe, todo esto antes de intentar grabarlo.

Un Saludo.

[adan12]

Empezado por marcoszorrilla

Sino puedes generar automáticamente el código con un generador, puedes lanzar un SQL que verifique si ese registro ya existe, todo esto antes de intentar grabarlo.

Un Saludo.

IF EXISTS(SELECT ID FROM TABLA WHERE ID = @ID)
INSERT INTO TABLA (Campo1,ID) VALUES (@Valor,@ID)
ELSE
UPDATE TABLA SET Campo1 = @Valor WHERE ID = @ID

HAY ESTA CAVAL MODIFICA ESTE QUERY PODRAS MODIFICAR EL CAMPO DUPLICADO

[Casimiro Noteví]

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.

[Casimiro Noteví]

Empezado por marcoszorrilla

Sino puedes generar automáticamente el código con un generador, puedes lanzar un SQL que verifique si ese registro ya existe, todo esto antes de intentar grabarlo.
Un Saludo.

Realmente no es muy seguro hacer eso, porque en un entorno multiusuario puedes comprobar que no exista un código, y antes de grabarlo ya desde otro equipo lo ha usado, así que te daría error porque ya existe.

En firebird también exista una sentencia "update or insert", pero en este caso no valdría porque si el código es creado por otro usuario entonces estaríamos actualizando el mismo en lugar de crear uno nuevo nosotros.

Del blog de jhonny:
http://jhonny.clubdelphi.com/2010/08...-1-recuperado/

[marcoszorrilla]

Yo en estos casos tengo una tabla que almacena un contador, primero lo incremento en 1 y luego ese número se lo doy al documento/factura.

Me gustaría ver que otras opciones utilizais, para generar una numeración consecutiva sin saltos.

Me funciona pero quisiera ver otras opciones.

Un Saludo.

[Casimiro Noteví]

Si quieres números consecuentivos entonces descartamos un generador.
No mantengo contadores porque me parecen innecesarios y una fuente potencial de problemas.
Para esos casos yo compruebo el ultimo número dado de alta y le sumo uno.
Si alguien ha dado de alta ese número mientras tanto, pues vuelvo a pedir de nuevo el último y le sumo 1, y así varias veces.
Si transcurridos varios intentos están siempre ocupados los números que voy pidiendo es que algo anormal ha ocurrido y ya saco el mensaje de error.
He modificado un trozo de código, simplificándolo, a ver si no me he equivocado, pero al menos sirve para que se entienda lo que hago.

Uutiles.pas (datos de configuración del programa)

Código Delphi [-]
const
  _INTENTOS_GRABAR_ = 5;

Cualquier otra Unit.pas
-------------------------------------------------

Código Delphi [-]
procedure TForm1.btGrabarClick(Sender: TObject);
var  
  iIntentos : Integer;  
begin
  iIntentos := 0;
  //
  DS.DataSet.FieldByName('codigo').AsInteger := getNuevoCodigo( tabla, campo );  // esto sólo hace un select max(campo)+1 from tabla
  try
    DS.DataSet.Post;
  except
    try
      while iIntentos < _INTENTOS_GRABAR_ do
      begin
        try
          DS.DataSet.Post;
          Break;
        except
          DS.DataSet.FieldByName('codigo').AsInteger := getNuevoCodigo( tabla, campo );
        end;
        inc(iIntentos);
      end;
    except
      on E:exception do
        Error(-100, Format('(%s) Error: %s', [E.ClassName, E.Message]));
    end;
  end;
end;