Paradox Error: table cannot be opened for exclusive use
 

Hola, me sale el error "table cannot be opened for exclusive use" por lo que lei se debe poner Table1.exclusive:=true... pero estoy usando Querys no Table.... como puedo hacer lo mismo pero para un Query? o si hay otra forma de evitar ese error. Gracias desde ya

Estaría bien saber, al menos, qué base de datos estás usando :rolleyes:

disculpas... paradox y delphi 7

Me parece recordar haber leído alguna vez que tienes que cambiar en la configuración LocalShare=True en lugar de False.

hola... probé LocalShare=True pero me dio igual el error... creo que el error me da porque hago un ciclo donde

Código Delphi [-]
While //800 veces
begin
  Qry.Edit; //Edito
  //hago modificaciones  
  Qry.Applyupdate//Aplico 
  Qry.next
end;

no quiero aplicar después del ciclo por miedo a que por un corte de luz o de internet, no me quede guardado nada... es por el tema de la Facturacion Electronica, obtengo el Cae y lo guardo enseguida... si alguien tiene alguna otra sugerencia...gracias desde ya

Para eso sirven las transacciones.

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

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.

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 :o, 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 :)

marilinspi,

:rolleyes:

Tomado de : Table Cannot be opened for exclusive use

^\||/

Debes considerar adicionalmente que:
Revisa esta información:
Espero sea útil :)

Nelson.

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.

¡Por favor! :eek:

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.

¿¿¿¿¿????? :confused:

Quiero decir que esa no es forma de solucionar el problema, principalmente porque no has solucionado el problema, lo has ocultado debajo de la alfombra, pero surgirá en cualquier momento.
Y lo peor de todo es que hay que averiguar el porqué de un error, no puedes cerrar los ojos para no verlo y seguir como si nada. Es como querer tapar una herida en el brazo llevando siempre manga larga, aunque sea agosto a 40º C. La herida sigue ahí, cúrala.
Es solamente mi opinión.


EDITO: y además nos ocultabas información, creo que nunca dijiste que te ocurría en el 375