Como trabajar las llaves primarias en red

[javicho_villa]

Hola a todos:
Ante todo muchas gracias por la leer este hilo, tengo un problema al guardar registros en Paradox en varios terminales a la vez, el problema se cebtra en generar la clave primaria en los terminales.

probe con un campo autoincremental pero cuando un registro se elimina se pierde ese numero, siendo escencial mantener y reutilizar estos numeros.

Como veran no se puede poner en exclusivo la tabla por que se esta compartioendo con varios terminales.

Cual seria una Solución viable.(uso paradox y delphi 6.0)

Nuevamente Muchas Gracias.

Javier Villa.

[Neftali [Germán.Estévez]]

Si no necesitas que sean correlativos, es decir, que puedes aprovechar los que se borran, yo utilizaría un proceso paralelo que reutilice los números, ya sea en el momento de asignarlos o utilizando una tabla intermedia que guarde los libres.

En todo caso debes eliminar la característica de autoincremental de campo.

[javicho_villa]

Lo que mas molesta es cuando varios usuarios quieren grabar al mismo tiempo en diferentes terminales, cual es el procedimiento a seguir en ese caso.

[Lepe]

Para la clave primaria usaría un autoincremental.
Para el código que sea correlativo, usaría otro campo distinto con un índice.

Hay muchas formas de hacerlo, una de ellas:
- En el OnNewRecord, buscas el hueco del correlativo y lo asignas al campo.
- En el BeforePost y asegurándote que la tabla está en estado dsInsert (se está insertando pero todavía no se ha guardado). Buscas de nuevo el correlativo por si alguien ha grabado mientras este usuario estaba pensando en las musarañas ;).

Esto tiene fallos de todas formas, porque imagina que se da un registro de alta, se guarda, otro usuario hace lo mismo y despues el primer usuario borra su registro. Obviamente queda un hueco (que se puede aprovechar la próxima vez que se inserte un registro).

La rutina para volverse loco es esta:

procedure TDTM.BuscaHuecoCliente(const idActual: Integer);
var
nextIdx, hueco: Longint;
qryHuecos: Tquery;
salir: Boolean;

begin
if not (dtm.TblClientes.state in [dsInsert]) then
begin
frmmdi.Notifica(mAviso,
'Solo se puede buscar huecos al dar de alta un nuevo Cliente', NIL);
exit
end;

hueco := 0;
salir := false;

qryHuecos := Tquery.Create(nil);
try
qryHuecos.DatabaseName := gl.DB.Alias; // alias del bde
qryHuecos.SQL.Text := 'select idCliente from Clientes order by idCliente';
qryHuecos.SessionName := dtm.DtbPPal.SessionName; //session del TDatabase

qryHuecos.Prepare;
qryHuecos.Open;
if not qryHuecos.IsEmpty then
begin
qryHuecos.First;
while not ((qryHuecos.Eof) or salir) do
begin
inc(hueco);
nextIdx := qryHuecos.Fields[0].AsInteger;
if nextIdx - hueco <> 0 then
salir := (hueco <> idactual)
else
qryHuecos.Next;
end; //while
end; // qry vacia

qryHuecos.Close;
finally
FreeAndNil(qryHuecos);
end; // finally
if salir then
dtm.TblClientesIdCliente.AsInteger := hueco
else
dtm.TblClientesIdCliente.AsInteger := nextId +1;
end;

Es penoso porque hay que hacer una búsqueda secuencial para encontrar los huecos.... pero no hay más remedio.

OFFtopic: ¿Quién será el que se ha cargado las etiquetas delphi :D :D

Saludos