Eliminar todos los registros de una tabla
Saludos Víctor, quiero eliminar todos los registros de la tabla Est_cta_BNC, pero me da error File Must be opened exclusively, el Código es el siguiente:
Close Databases All
Use "C:\conciliacion\bd\est_cta_bnc.DBF" IN 0
Use "C:\conciliacion\estado.DBF" IN 0
Select est_cta_bnc
Go Top
Do While !Eof()
If Left(est_cta_bnc.descripcion, 4) $ "Cheq,Depó"
Append Blank
Replace Estado.fecha With Est_cta_BNC.fecha, ;
Estado.descripcion With Est_cta_BNC.descripcion, ;
Estado.referencia With Est_cta_BNC.referencia, ;
Estado.debe With Est_cta_BNC.debe, ;
Estado.haber With Est_cta_BNC.haber, ;
Estado.saldo With Est_cta_BNC.saldo
Select Est_cta_BNC
zap * aqui se de detiene y envia el siguiente error: File Must be opened exclusively
EndIf
Skip
EndDo
Close Databases All
Use "C:\conciliacion\bd\est_cta_bnc.DBF" IN 0
Use "C:\conciliacion\estado.DBF" IN 0
Select est_cta_bnc
Go Top
Do While !Eof()
If Left(est_cta_bnc.descripcion, 4) $ "Cheq,Depó"
Append Blank
Replace Estado.fecha With Est_cta_BNC.fecha, ;
Estado.descripcion With Est_cta_BNC.descripcion, ;
Estado.referencia With Est_cta_BNC.referencia, ;
Estado.debe With Est_cta_BNC.debe, ;
Estado.haber With Est_cta_BNC.haber, ;
Estado.saldo With Est_cta_BNC.saldo
Select Est_cta_BNC
zap * aqui se de detiene y envia el siguiente error: File Must be opened exclusively
EndIf
Skip
EndDo
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Abre la tabla en modo exclusivo:
Use "C:\conciliacion\bd\est_cta_bnc" IN 0 Exclusive && No es necesario agregar la extensión
Use "C:\conciliacion\estado" IN 0 Exclusive
Select est_cta_bnc
Go Top
Do While !Eof()
If Left(est_cta_bnc.descripcion, 4) $ "Cheq,Depó"
Append Blank
Replace Estado.fecha With Est_cta_BNC.fecha, ;
Estado.descripcion With Est_cta_BNC.descripcion, ;
Estado.referencia With Est_cta_BNC.referencia, ;
Estado.debe With Est_cta_BNC.debe, ;
Estado.haber With Est_cta_BNC.haber, ;
Estado.saldo With Est_cta_BNC.saldo
Select Est_cta_BNC
EndIf
Skip
EndDo
Select Est_cta_BNC
Zap
Use "C:\conciliacion\bd\est_cta_bnc" IN 0 Exclusive && No es necesario agregar la extensión
Use "C:\conciliacion\estado" IN 0 Exclusive
Select est_cta_bnc
Go Top
Do While !Eof()
If Left(est_cta_bnc.descripcion, 4) $ "Cheq,Depó"
Append Blank
Replace Estado.fecha With Est_cta_BNC.fecha, ;
Estado.descripcion With Est_cta_BNC.descripcion, ;
Estado.referencia With Est_cta_BNC.referencia, ;
Estado.debe With Est_cta_BNC.debe, ;
Estado.haber With Est_cta_BNC.haber, ;
Estado.saldo With Est_cta_BNC.saldo
Select Est_cta_BNC
EndIf
Skip
EndDo
Select Est_cta_BNC
Zap
