Paradox Error: table cannot be opened for exclusive use

[marilinspi]

transacciones con paradox??? solo uso el TSession, el Query y el Upd

[Casimiro Noteví]

No conozco paradox.
De todas formas es difícil ayudarte si no pones tu código y explicas qué hace exactamente.
El código ese que has puesto de "ejemplo" no sirve de nada.

[ecfisa]

Hola marilinspi.

Se me ocurre que podrías usar un TTimer para el autoguardado, algo parecido a este ejemplo:

Código Delphi [-]
const
   NSEG = 20;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Database1 do
  begin
    Close;
    AliasName := 'DBDEMOS';
    TransIsolation := tiDirtyRead;
    Open;
  end;

  with Query1 do
  begin
    DatabaseName := 'TEST';
    CachedUpdates:= True;
    UpdateMode   := upWhereChanged;
    Open;
  end;
  // Ej. Guardar datos c/NSEG seg
  Timer1.Interval  := NSEG  * 1000 ; // 20 seg
  Timer1.Enabled   := True;
end;

// Aplicar updates
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Query1 do
  begin
    Database1.StartTransaction;
    try
      ApplyUpdates;
      Database1.Commit;
    except
      Database1.Rollback;
      raise;
    end;
    CommitUpdates;
  end;
  ShowMessage('Datos guardados'); // solo para visualizar
end;

// Capturar excepciones
procedure TForm1.Query1EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
const
  FLAG = MB_ICONERROR + MB_RETRYCANCEL;
begin
  if MessageBox(Handle, Pchar(E.Message),'', FLAG) = IDRETRY then
    Action := daRetry
  else
    Action := daAbort;
end;

No le pidas mucho lujo al código, estoy seguro que debe haber 100 formas mejores de escribirlo. La verdad es que tuve que leer para refrescar los paupérrimos conocimientos que tengo sobre Paradox , es sólo para acercarte una idea y que espero te sea útil.

De todos modos, y con la mejor de las intenciones, te voy a hacer una sugerencia. Con Paradox vas a vivir reparando y reindexando, es tecnología obsoleta y te va a dar muchos dolores de cabeza.

Existen excelentes gestores, y gratuitos además, como PostgreSQL, Firebird o MySql (por mencionar algunos), que son mil veces superiores. Si todavía estás a tiempo de migrar, huí de Paradox cuanto antes.

Saludos

[[nlsgarcia]]

marilinspi,

Empezado por marilinspi

...Paradox Error: table cannot be opened for exclusive use...

Empezado por delphigroups

The message means that you have the Exlusive property of TbleNrtsPac set to True and some other part of your program or some other program or some other user already has the table open.

Tomado de : Table Cannot be opened for exclusive use

Empezado por ecfisa

...Con Paradox vas a vivir reparando y reindexando...Existen excelentes gestores, y gratuitos además, como PostgreSQL, Firebird o MySql...

Debes considerar adicionalmente que:

Empezado por Embarcadero

Warning: The Borland Database Engine (BDE) has been deprecated, so BDE will not be enhanced. For instance, BDE will never have Unicode support. You should not undertake new development with BDE. Consider migrating your existing database applications from BDE to dbExpress.

Revisa esta información:

1- BDE

2- Applying Cached Updates with Dataset Component Methods

3- Bde.DBTables.TBDEDataSet.ApplyUpdates

4- Bde.DBTables.TBDEDataSet.CommitUpdates

5- Handling Cached Update Errors

6- Migrating BDE Applications to dbExpress

7- A Paradox Table Survival Guide for C++Builder and Delphi.rtf

Espero sea útil

Nelson.

[marilinspi]

muchas gracias a todos por sus respuestas... si efectivamente el error da al aplicar las modificaciones, pero lo raro del caso es que lo hace siempre al aplicar al registro n° 375, es decir.. edito-aplico, edito-aplico, 374 veces lo hace bien al querer hacer la 375 da el error, así que bueno lo termine solucionando así

Código Delphi [-]
    While //800 veces
    begin
      Qry.Edit;
      //Hago modificaciones 
      Qry.ApplyUpdates;
      Qry.Next;
 
      Cont:=cont+1;
      if cont=350 then
      begin
        Cont:=0;
        Qry.Active:=False;
        Qry.ParamByName('numero').Value:=QryNumero.Value;
        Qry.Active:=True;
      end;
    end;

al cerrar y abrir el qry cada tanto deja de dar el error.

[Casimiro Noteví]

¡Por favor!

Me has recordado a un cliente que nos pidió que le cambiésemos la tecla "F1 ayuda" por "F11 ayuda".
¿Por qué quieres cambiarla? y la respuesta fue "porque se me ha roto la tecla F1 del teclado.

[marilinspi]

¿¿¿¿¿?????

Empezado por Casimiro Notevi

¡Por favor!

Me has recordado a un cliente que nos pidió que le cambiésemos la tecla "F1 ayuda" por "F11 ayuda".
¿Por qué quieres cambiarla? y la respuesta fue "porque se me ha roto la tecla F1 del teclado.