Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   'table is busy' usando TBatchMove (https://www.clubdelphi.com/foros/showthread.php?t=11533)

orfeo 16-06-2004 20:07:49

'table is busy' usando TBatchMove
 
Hola, estoy haciendo una consulta SQL en partes exportando views Para lograr un mejor tiempo.

Las exportaciones las realizo con Database 'Export pack v1.04' a .dbf (este
usa un TBatchMove para hacer la exportacion)
Estoy usando Delphi 6. SO: WinXp, Win98. DB: BDE + .dbf

Como ya he contado un poco que uso, paso a explicar el error :)
(NOTA al los Moderadores: no se muy bien donde deberia postear este mesaje,si hay uno mejor siéntanse con el derecho de moverlo :) )

Me tira un error de 'table is busy' en el <*1> (ver code) y me indica el
archivo 'TableFileName' que es donde estoy explortado el dataset.

Al paracer el archivo queda usado de otro uso anterior.
Lo raro es que antes que tire el error exporto unas 8 diferentes dataset al archivo 'TableFileName' y anda bien, pero luego de usarlo varias veces parece el error.

No se que hacer, Si o si tengo que crear views para mejorar el tiempo de ejecucion y no se que otra cosa puedo hacer con BDE, y si me paso a accces tengo que hacer todo de vuelta.


Código:

procedure TKDataSetToDBF.Transfer(const TableFileName : string);

  Table := TTable.Create(nil);
  try
    Table.TableType := ttDBase;
    Table.DatabaseName := ExtractFileDir(TableFileName);
    Table.TableName := ExtractFileName(TableFileName);
    BM := TBatchMove.Create(nil);
    try
      BM.Mode := batCopy;
{$IFDEF D3_PLUS}
      BM.Source := TBDEDataSet(FDataset);
{$ELSE}
      BM.Source := TDataSet(FDataset);
{$ENDIF}
      BM.Destination := Table;
      BM.Execute;  <*1>
    finally
      BM.Free;
    end;
  finally
      Table.Free;
  end;


marcoszorrilla 16-06-2004 22:26:31

¿Por qué no pruebas a cerrar la Tabla y abrirla en modo exclusivo antes de iniciar la transmisión?

Un Saludo.

orfeo 17-06-2004 13:44:26

Cita:

Empezado por marcoszorrilla
¿Por qué no pruebas a cerrar la Tabla y abrirla en modo exclusivo antes de iniciar la transmisión?

Un Saludo.

Probe con un
Código:

Table := TTable.Create(nil);
          Table.Close;
          Table.Exclusive:=true;
          ..........
          BM.Destination := Table;
          BM.Execute;

pero sigo con el mismo problema a mi me da que es problema del windows... Ya he probado borrar el alias y crearla de vuelta con ninguna mejora.


La franja horaria es GMT +2. Ahora son las 05:39:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi