Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 2 Semanas
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 235
Poder: 14
darkamerico Va por buen camino
Red face

Cita:
Empezado por mamcx Ver Mensaje
Estas duplicando, de forma mas ineficiente*, lo que hace una bd. Usa:
  • Llave natural si importa que sea único desde el punto de vista de la logica de negocios
  • Autoinc si solo importa que sea único desde el punto de vista de la BD
  • UUID si solo importa que sea único desde el punto de vista global

Lo que es dificil es garantizar que sea perfectamente incremental sin 'huecos' pero eso es otro asunto.

* p.d: Y adicionalmente este codigo trae un bug incorporado!
Te agradecería que me indiques el bug
Responder Con Cita
  #2  
Antiguo Hace 8 Horas
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.737
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
En firebird existen los generadores.
Los generadores siempre devuelven números diferentes (garantizado por la base de datos).
Los generadores siempre se incrementan, a pesar de que la transacción falle (Rollback).

Yo suelo dejar que la base de datos lo genere y me lo devuelva.
Con esta sentencia y el generador en el trigger:
Código SQL [-]
CREATE TRIGGER CABECERA_BI0 ...
AS
BEGIN
   new.id = GEN_ID(CONTADOR_CABECERA, 1);
   ...
END

INSERT INTO CABECERA (CLIENTE, FECHA, ...)
VALUES (:CLIENTE, :FECHA, ...)
RETURNING ID

Cuando por alguna razón no puedo utilizarlo de esta manera, pido un número al generador y luego lo utilizo en el insert

Código Delphi [-]
function TDMMain.ContadorGen(NomGen: string): integer;
begin
  Result := 0;
  if (Trim(NomGen) > '') then
  begin
     with THYFIBQuery.Create(nil) do
     begin
        try
           Close;
           DataBase := Self.DataBase;
           SQL.Text := 'SELECT GEN_ID(' + NomGen + ', 1) FROM RDB$DATABASE';
           ExecQuery;
           Result := Fields[0].AsInteger;
           Close;
           FreeHandle;
        finally
           Free;
        end;
     end;
  end;
end;


// Luego inserto llamando al procedimiento para el valor del parámetro ID
INSERT INTO CABECERA (ID, CLIENTE, FECHA, ...)
VALUES (:ID, :CLIENTE, :FECHA, ...)
Responder Con Cita
  #3  
Antiguo Hace 8 Horas
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.737
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
En tu caso, básicamente haces un SELECT MAX(ID).

Si justo al mismo tiempo dos usuarios piden el MAX(ID) les devolverá el mismo número.
Luego al hacer el INSERT el primero logrará hacerlo y el segundo dará error porque estará insertando un duplicado.

Particularmente esta forma de obtener un ID es muy ineficiente en Firebird.
A pesar de tener índices por ese campo.
Tiene que ver con la multi versión de registros.
En otros motores no sabría decirte.

Última edición por duilioisola fecha: Hace 8 Horas a las 18:58:07.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Combinación de teclas para generar el método de una función danny915 Varios 4 21-11-2014 18:24:03
Mejor Metodo para Verificar Numeros Primos Victor Luis Varios 2 20-10-2013 06:33:03
Mejor Metodo para leer las teclas pmtzg Varios 3 08-11-2007 18:05:16
Otro metodo de insercion que sea mejor hacerlo via query ilichhernandez Conexión con bases de datos 2 01-07-2006 12:26:06
Mejor opcion para trabajar con tablas planas andre Tablas planas 0 30-06-2004 19:17:03


La franja horaria es GMT +2. Ahora son las 03:26:40.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi