El mejor método para generar IDs en tablas de movimiento

[mamcx]

Otro bug: Insertas 10 registros, el id va en 10. Ahora:


Borras el ultimo
Borras todos
Borras el primero

etc.


Un id debe ser global(en su contexto), único y *no repetible*

[darkamerico]

Empezado por mamcx

Otro bug: Insertas 10 registros, el id va en 10. Ahora:


Borras el ultimo
Borras todos
Borras el primero

etc.


Un id debe ser global(en su contexto), único y *no repetible*

Muy interesante, yo uso SQL Server, alguien podría ayudarme con una función en Delphi que genere este ID unico e irrepetible?, no quisiera usar el identity.

Como siempre muchas gracias a todos.

Atte,
Americo Torres

[mamcx]

Negarse a usar lo que el motor te da 'gratis' raramente tiene sentido. No solo es esfuerzo innecesario, es como introduces errores inesperados y limitas al motor a la hora de hacer optimizaciones.

P.D: Yo trabajo en parte construyendo un motor de base de datos desde cero(https://spacetimedb.com) y te puedo asegurar que cada componente se hace con mas detalle de lo que te puedes imaginar. Ahora estoy solamente generando el diseño básico de la autenticación y llevo 3 semanas, como 10 borradores y todo porque en un motor de base de datos hay que tener en cuenta un montón de casos extremos.

Usar el soporte de autonumericos del motor es lo que se debe de hacer a menos que tengas una buena razón, que SOLAMENTE puede ser:


* Necesitas un id universal, así que usas una UUID
* Necesitas evitar `saltos` para el caso de facturas, que entonces es complicado de hacer correcto, porque no solo debes hacer la lógica correctamente sino que debes coordinar a todas tus app que usen un modo transaccional mas estricto `SERIALIZABLE` y eso que no estoy seguro como seria en sql server
* Tienes una llave natural

[darkamerico]

Preguntándole a ChatGPT, me dió la siguiente funcion, la cual ya implementé:

Código Delphi [-]
uses
  SysUtils;

function GenerateGUID: string;
var
  GUID: TGUID;
begin
  // Crear un nuevo GUID
  if CreateGUID(GUID) = S_OK then
  begin
    // Convertir el GUID a string
    Result := GUIDToString(GUID);
  end
  else
  begin
    // En caso de error, devolver una cadena vacía
    Result := '';
  end;
end;

Resultado:



Funcion:

Código Delphi [-]
function TFunciones.GeneraGUID: string;
var
  GUID: TGUID;
  GUIDStr:string;
  res:boolean;
begin
  res:=True; // Asume que el GUID está Duplicado
  while res do
  begin
    if CreateGUID(GUID) = S_OK then
    begin
      GUIDStr:=GUIDToString(GUID);
      res:=clsFx.VerificaGUIDUnico(GUIDStr);
      Result := GUIDStr;
      break;
    end
    else Result := '';
  end;
end;

Quedo atento a sus comentarios.

Atte

[darkamerico]

Super interesante en los proyectos en que andas amigo.
Quisiera tener tu level.

Saludos

Empezado por mamcx

Negarse a usar lo que el motor te da 'gratis' raramente tiene sentido. No solo es esfuerzo innecesario, es como introduces errores inesperados y limitas al motor a la hora de hacer optimizaciones.

P.D: Yo trabajo en parte construyendo un motor de base de datos desde cero(https://spacetimedb.com) y te puedo asegurar que cada componente se hace con mas detalle de lo que te puedes imaginar. Ahora estoy solamente generando el diseño básico de la autenticación y llevo 3 semanas, como 10 borradores y todo porque en un motor de base de datos hay que tener en cuenta un montón de casos extremos.

Usar el soporte de autonumericos del motor es lo que se debe de hacer a menos que tengas una buena razón, que SOLAMENTE puede ser:


* Necesitas un id universal, así que usas una UUID
* Necesitas evitar `saltos` para el caso de facturas, que entonces es complicado de hacer correcto, porque no solo debes hacer la lógica correctamente sino que debes coordinar a todas tus app que usen un modo transaccional mas estricto `SERIALIZABLE` y eso que no estoy seguro como seria en sql server
* Tienes una llave natural