'table is busy' usando TBatchMove

[orfeo]

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.



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]

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

Un Saludo.

[orfeo]

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

Un Saludo.

Probe con un
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.