Base Compartida!!

[jdattoli]

Hola amigos, este es codigo de mi filtro:

procedure TCuentas.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
adotable1.Filter:='status ='+QuotedStr(edit1.text);
adotable1.Filter:='flag ='+QuotedStr(edit2.text);
adotable1.Filtered:=true;
adotable1.Refresh;
adotable1.Edit;
adotable1.FieldByName('flag').AsString:='activo';

end;

si ven primero filtro mi campo "status" y edit1 esta en blanco, ya que no quiero que me aparezcan las que ya estan actualizadas,

luego filtro "flag" para que no me tome un registro que esté utilizando otra persona (en teoria es lo que pense podria pasar), y en seguida le agrego la palabra "activo" a mi campo flag para que los demas sepan que lo estoy ocupando, pero la actualización no es en tiempo real y no se ya que hacer.

si abrimos 2 veces mi ejecutable, los dos toman al primer registro, y pues no me sirve.

Espero me puedan ayudar.

Gracias

jdattoli

[Zeta]

En delphi usando F1 sobre las propiedades de un objeto podés solucionar mucho: En este caso sobre "LOCK TYPE" del ADO Table

ltUnspecified
A specific lock type has not been specified or determined.

ltReadOnly
Read-only; the current execution cannot modify data.

ltPessimistic
Pessimistic locks; locks instantiated on a record-by-record basis when edit mode is applied to a record.

ltOptimistic
Optimistic locks; locked are initiated on a record-by-record basis, but only when updates are applied and a record is being updated.

ltBatchOptimistic Optimistic batch updates; used for batch update mode rather than immediate update mode.

Me parece que mejor es implementar un procedimiento almacenado con lock type


Saludos