Tabla en uso

[miguelb]

Consulta: Como puedo saber si una(s) tablas estan siendo usadas desde otra terminal? Estoy utilizando Paradox 7.
Me gustaria obtener informacion de quienes son y/o desde que terminal estan siendo utilizadas.
O al menos, saber si estan en uso o no.
Gracias por anticipado.
miguelb
Argentina

[andres1569]

Hola:

Mira en este enlace a los trucos de Ian Marteens:

http://www.marteens.com/trick04.htm

Ahí indica cómo ver los usuarios conectados. En cuanto a la información sobre una tabla en concreto, te puedo decir el nombre de algunas funciones del BDE sobre eso:

dbiIsTableLocked y dbiOpenLockList.

No te puedo decir más puesto que estas últimas no las he utilizado.

Un saludo

[José Luis Garcí]

Si dejas al sistema y delphi estos al estar un registro bloqueado y querer editarlo te da un mensaje de error y de esto nos aprovechamos con la siguiente función



Function usuario(error,tex1,tex2:string);dtring;
var usau:string;
begin
usau:=(Copy(error,(Ansipos('User:',error)+5),(length(error)-(ansipos('User:',error)+4))));
Result:=tex1+' '+usua+' '+tex2;
end;



y modo de uso en el evento Onclick de un boton
EVENTO ONCLICK
var Bloqueo:Boolean;
begin
try
table1.edit;
bloqueo:=false;
exept
On E:Exception do
begin
Showmessage(usuario(e.message,'Registro ocupado por:[','], intentelo más tarde'));
bloqueo:=true;
end;
end;
if bloqueo then exit;
end;


Un saludo desde Canarias.

[miguelb]

Andres y Jose Luis:
muchas gracias por sus colaboraciones,
pude resolver mi problema con la solucion de Andres,
y voy a estudiar lo planteado por Jose Luis.
Gracias
Miguel
Argentina.