FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
'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;
__________________
Aprendamos a ser civilizados |
#2
|
||||
|
||||
¿Por qué no pruebas a cerrar la Tabla y abrirla en modo exclusivo antes de iniciar la transmisión?
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Cita:
Código:
Table := TTable.Create(nil); Table.Close; Table.Exclusive:=true; .......... BM.Destination := Table; BM.Execute;
__________________
Aprendamos a ser civilizados |
|
|
|