Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
como obtiene el ultimo id de una tabla

Ya se que existe el metodo last_insert_id() en mysql pero hay casos en que si falla una transaccion el valor no se restaura.
Por otro lado usa max(idticket) es erroneo porque se puede pisar el valor.
En mi caso tengo la tabla ticket ocn su cabecera y el detalle del ticket en otra tabla venta. Entonces necesito el ultimo id de ticket para la tabla venta que es varios a varios(en venta se guarda el idticket idproducto precio y cantidad).
Me han recomendado tener en el servidor de aplicaciones (ya que estoy trabajando con datasnap) un metodo con un query asociado a una tabla con un solo campo, que sume 1 a este entero y luego seleccione el valor, pero el tema es que tengo que tener un metodo como este para cada tabla.

Es decir la pregunta es como se hace para obtener el ultimo id de ticket a un habiendo transacciones simultaneas (es decir varios users insertando tickets a la vez). Se deberia bloquear el siguiente registro?
Responder Con Cita
  #2  
Antiguo 14-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si no he entendido mal, puedes valerte de un bucle al grabar.
En plan muy "rústico":
Código Delphi [-]
boolean ok = true
while ok
  ultimo = select max(id) from tabla
  try
    insert into otratabla values (ultimo, ... )
    ok = false
  except
  end
end
Responder Con Cita
  #3  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Es que de hecho hice una funcion que obtiene el ultimo id y le suma 1 antes de insertar en la tabla maestro...
Tambien estuve leyendo que FireBird no utiliza campos autoincrementales justamente por este motivo.. en vez de esto es un campo integer pero el valor lo genera el servidor de aplicaciones o el programa, no el motor de base de datos.

Que te parece tener una tabla con un solo campo:

ULTIMO(ultimoidticket)

entonces cada transaccion suma 1 y se queda con el valor.. de esta forma no se pisan los valores, y no hay que esperar a que una transaccion finalize para empezar la otra.
Responder Con Cita
  #4  
Antiguo 14-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No entiendo, ¿quiéres un incremental, aunque se salten números? ¿o quieres un número consecutivo y que no se salte ninguno?

Última edición por Casimiro Notevi fecha: 15-05-2015 a las 11:08:20.
Responder Con Cita
  #5  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
No entiendo, ¿quiéres un incremental, aunque se salten números? ¿o quieres uno número consecutivo y que no se salte ninguno?
No entiendo porque la pregunta..
Es que si es un entero de 32 bits tiene millones de posiciones... osea con lo anterior se soluciona el problema de conecurrencia, si hay 2 o mas pc s haciendo ticket.. la verdad no interesa si se saltea un numero..
De hecho si una transaccion falla sobre un autoincremental y el ultimo idticket era 17, el 18 no se ocupa nunca mas.. si la proxima transaccion tiene exito sera el 19...
La funcion last_insert_id() retornara 18 para referenciar el ticket en la tabla detalleticket por lo tanto no sirve...
Y la funcion max(idticket) si falla el 18 la proxima vez sera 18, pero no sirve porque si 2 pc generan esa consulta.. ambos detalles de ticket corresponderan al mismo ticket.. porque devolvera 18 en ambos casos...
Responder Con Cita
  #6  
Antiguo 14-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por giulichajari Ver Mensaje
No entiendo porque la pregunta...
Porque no se entiende qué quieres exactamente.
Por lo que dices, lo que buscas en un id "normal y corriente", para eso están los generadores autoincrementales, nunca jamás se repiten. Lo que comentas de bloqueos y repetirse, etc. no ocurre con ellos.
Responder Con Cita
  #7  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Bueno es que a mi la funcion last_insert_id() me retorna 1.. no se porque.. y la vez pasada insertaba mal el idticket luego de que una transaccion hizo rollback..
Responder Con Cita
  #8  
Antiguo 14-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si no pones código o explicas en detalle cómo lo haces, solo podemos adivinar
Responder Con Cita
  #9  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Código Delphi [-]
procedure TServerMethods1.nuevoticket(numero,ids,idcliente:integer;importe,efectivo,vueltoouble;fechae,horae  ,tipo:string);
var
tr:TDBXTransaction;
begin
       if (SUCURSAL.InTransaction) then
     raise Exception.Create('Hay una transacción pendiente');
     SUCURSAL.Open;
       try
          try
            tr:=SUCURSAL.BeginTransaction();

               begin
                with qticket do
                  begin
                    Close;


                    ParamByName('numero').AsInteger:=numero;
                    ParamByName('importe').AsFloat:=importe;
                    ParamByName('fechae').AsString:=fechae;
                    ParamByName('horae').AsString:=horae;
                    ParamByName('idsucursal').AsInteger:=ids;

                    ParamByName('idcliente').AsInteger:=idcliente;
                    ParamByName('tipo').AsString:=tipo;
                    ParamByName('efectivo').AsFloat:=efectivo;
                    ParamByName('vuelto').AsFloat:=vuelto;
                    ExecSQL();
                  end;

         SUCURSAL.CommitFreeAndNil(tr);
               end;

      except
        SUCURSAL.RollbackFreeAndNil(tr);
        end;
      finally
      SUCURSAL.Close;
       end;
end;

procedure TServerMethods1.nuevodetalleticket(idp:integer;cantidad,preciououble);
  var
  tr:TDBXTransaction;
  begin
      if (SUCURSAL.InTransaction) then
     raise Exception.Create('Hay una transacción pendiente');
     SUCURSAL.Open;
       try
          try
            tr:=SUCURSAL.BeginTransaction();
               quticket.Close;
               begin
                with qventa do
                  begin
                    Close;


                 //    ShowMessage(IntToStr(quticket.ExecSQL()));
                    ParamByName('idt').AsInteger:=quticket.ExecSQL();
                    ParamByName('idp').AsInteger:=idp;
                    ParamByName('cantidad').AsFloat:=cantidad;
                    ParamByName('preciou').AsFloat:=preciou;
                    ExecSQL();
                  end;

         SUCURSAL.CommitFreeAndNil(tr);
               end;

      except
        SUCURSAL.RollbackFreeAndNil(tr);
        end;
      finally
      SUCURSAL.Close;
       end;
end;

eso es en DataSnap

y dentro de quticket tengo last_insert_id(), como veras hice un showmessage... y veo un 1..
Responder Con Cita
  #10  
Antiguo 14-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Se supone que está correcto, ¿no?

http://mysql.conclase.net/curso/?sqlfun=LAST_INSERT_ID

Cita:
El último ID que fue generado se mantiene en el servidor en una base por conexión. Esto significa que el valor que devuelve la función para un cliente dado es valor AUTO_INCREMENT más reciente generado por ese cliente. El valor no puede verse afectado por otros clientes, aunque generen valores AUTO_INCREMENT por si mismos. Este comportamiento asegura que se puede recuperar un ID sin preocuparse por la actividad de otros clientes, y sin necesidad de bloqueos o transacciones. El valor de LAST_INSERT_ID() no cambia si se actualiza una columna AUTO_INCREMENT de una fila con un valor no mágico (es decir, un valor que no es NULL ni 0). Si se insertan muchas filas al mismo tiempo con una sentencia , LAST_INSERT_ID() devuelve el valor para la primera fila insertada. El motivo para esto es hacer posible reproducir más fácilmente la misma sentencia de nuevo en algún otro servidor. Si se da un argumento expr a LAST_INSERT_ID(), el valor del argumento será devuelto por la función, y se asigna como siguiente valor a retornar por LAST_INSERT_ID(). Esto se puede usar para simular secuencias:
Primero crear la tabla:
mysql> CREATE TABLE sequence (id INT NOT NULL); mysql> INSERT INTO sequence VALUES (0); Después la tabla se puede usar para generar secuencias de números como esta:
mysql> UPDATE sequence SET id=LAST_INSERT_ID(id+1); Se pueden generar secuencias sin llamar a LAST_INSERT_ID(), pero al utilidad de usar la función de este modo es que el valor ID se mantiene en el servidor como el último valor generado automáticamente (seguro en multiusuario). Se puede recuperar el nuevo ID como si se recuperase cualquier valor AUTO_INCREMENT normal en MySQL. Por ejemplo, LAST_INSERT_ID() (sin argumentos) devolverá el nuevo ID. La función del API C mysql_insert_id también se puede usar para obtener el valor. mysql_insert_id sólo se actualiza después de sentencias y , de modo que no se puede usar la función del API C para recuperar el valor para LAST_INSERT_ID(expr) después de ejecutar otra sentencia SQL como o .


Última edición por Casimiro Notevi fecha: 15-05-2015 a las 11:09:04.
Responder Con Cita
  #11  
Antiguo 14-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Se supone que está correcto, ¿no?
Claro me queda descubrir porque me da 1 el server, probe hacer 2 ticketts y devuelve 1.

Se pueden generar secuencias sin llamar a LAST_INSERT_ID(), pero al utilidad de usar la función de este modo es que el valor ID se mantiene en el servidor como el último valor generado automáticamente (seguro en multiusuario) aparte si tengo 2 sucursales son 2 conexiones distintas entonces no va a tomar el id insertado por otro: hay 17 y una conexion inserta 1 sera 18 pero la otra conexion no lo ve.

Pero yendo al grano: ¿cual seria la solucion correcta entonces(a ver si entiendo)? en lo que negrie arriba dice seguro en multiusuario: osea que es correcta la solucion que te plantie de tener los ids en una tabla aparte.

Perdona mi ignorancia..

Última edición por Casimiro Notevi fecha: 15-05-2015 a las 11:09:17.
Responder Con Cita
  #12  
Antiguo 14-05-2015
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Las ventajas de las secuencias (llamadas generadores en Firebird) es que no son transaccionales y es imposible que dos peticiones "Next Value" obtengan el mismo valor. Te recomiendo que tu aplicación cliente, justo al comenzar la captura de un registro, pida a una secuencia/generador de la base de datos su siguiente valor y lo asignes en ese momento desde la propia aplicación al nuevo registro en memoria. Eso te permitirá un mejor control de relaciones entre registros.

Incluso si el registro no termina siendo guardado, no hay problema, las llaves primarias (campos ID) no tienen por qué ser números consecutivos; para eso son otros campos: NUMERO/CLAVE/CODIGO, para los cuales sí puedes hacer Select Max y tener un índice con restricción unique para impedir que se asigne el mismo valor a una lista de datos que deben ir numerados de forma consecutiva.

Saludos.
Responder Con Cita
  #13  
Antiguo 15-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Cita:
Empezado por Al González Ver Mensaje
Las ventajas de las secuencias (llamadas generadores en Firebird) es que no son transaccionales y es imposible que dos peticiones "Next Value" obtengan el mismo valor. Te recomiendo que tu aplicación cliente, justo al comenzar la captura de un registro, pida a una secuencia/generador de la base de datos su siguiente valor y lo asignes en ese momento desde la propia aplicación al nuevo registro en memoria. Eso te permitirá un mejor control de relaciones entre registros.

Incluso si el registro no termina siendo guardado, no hay problema, las llaves primarias (campos ID) no tienen por qué ser números consecutivos; para eso son otros campos: NUMERO/CLAVE/CODIGO, para los cuales sí puedes hacer Select Max y tener un índice con restricción unique para impedir que se asigne el mismo valor a una lista de datos que deben ir numerados de forma consecutiva.

Saludos.
Muchas gracias Al, la verdad uno aprende mucho en la practica.. queriendo hacer algo a lo grande como es el sistema de cliente servidor..jeje en mi ciudad todavia usan disco compartido..
Responder Con Cita
  #14  
Antiguo 15-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.038
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Lo has solucionado?
Responder Con Cita
  #15  
Antiguo 15-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Lo has solucionado?
Estoy en eso... voy a implementar un id no consecutivo osea no autoincremental... de seguro funcionara.. Gracias
Responder Con Cita
  #16  
Antiguo 16-05-2015
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Poder: 12
giulichajari Va por buen camino
hice lo siguiente y funciono:
Código Delphi [-]
function TServerMethods1.nuevoid:integer;
begin

  with quticket do
    begin
      SQL.Clear;
      SQL.Add('update identificadores set ticket=ticket+1');
      ExecSQL();
      SQL.Clear;
      SQL.Add('select ticket from identificadores');
      Open;
      result:=FieldByName('ticket').AsInteger;
    end;

end;

nunca falla..
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
Como obtener un ultimo registro de una tabla!! Caray Varios 4 09-07-2008 03:55:35
Extraer ultimo campo de tabla Petolansa Varios 4 26-10-2007 02:39:53
Consulta que obtiene campos de una tabla u otra según condición Gabo SQL 10 20-08-2007 08:53:02
como conocer el ultimo valor autonumerico creado de una tabla Tama MS SQL Server 8 16-06-2004 19:14:30
Ir al último registro de una tabla fortran Tablas planas 6 05-09-2003 16:36:02


La franja horaria es GMT +2. Ahora son las 21:39:26.


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