Deletar conteudo tabela mensagem exclusive off

[Julio]

Bom Dia Pessoal

Preciso excluir/deletar todo o conteudo de uma tabela DBF em determinado momento no programa.
Utilizo o codigo abaixo, mas da mensagem que a tabela precisa esta exclusive ON.

Código:

IF EMPTY(nFile)  && Esc presionada
   _Screen.Picture = ""
   SET EXCLUSIVE ON
   Select Fundo
   dele all
   pack
   SET EXCLUSIVE OFF
   Thisform.Release
   RETURN
ENDIF

Alguem tem alguma ideia.
Entendo que estou dando permissão para a tabela ser aberta em modo exclusivo, ou existe outra forma?

julio

[alceu11]

Código:


select fundo  && seleciono linha 1
use in fundo && fecho  linha2
use fundo in 0 exclusive && abrir exclusiva
zap
reindex  && ou criar os indices

*ou  repete a linha '1 e 2
dele all in fundo
pack
reindex    ou cria os indices
use in fundo && fechei
use fundo in 0 shared  &&  **e abre compatilhado


tem codigo do marcos no forum sobre isto

[Julio]

Valeu Alceu

Utilizei este codigo e deu certo:

Código:

select fundo  && seleciono linha 1
use in fundo && fecho  linha2
use fundo in 0 exclusive && abrir exclusiva
zap

So acrescentei o

Código:

SET SAFETY OFF

,para não ficar exibindo a mensagem de confirmação da exclusão

Obrigado

julio

[hugo]

um comentario

Código:

use teste in 0 && abri teste na proxima area livre
use teste2 in 0 && abri teste2 na proxima area livre
sele teste && selecionei teste
use teste excl && passei o uso para exclusivo

ou seja, nao precisa fechar pra depois abrir exclusivo
basta alternar para exclusivo

[alceu11]

HUGO
boa !!!
vc tem toda a razao
ponto pra voce esta reputado ,

mais um exemplo
para confirmar o que vc disse. e esta correto

Código:


USE ibge IN 0
SELECT ibge
USE ibge EXCLUSIVE
MODIFY STRUCTURE && aqui vc muda a estrutura da tabela
USE ibge SHARED
MODIFY STRUCTURE && aqui vc visualiza



para diminuir o codigo do julio ficaria assim

Código:


set safety off
select fundo  && seleciono linha 1
use  fundo exclusive &&  muda para exclusivo
zap
reindex
use fundo shared && muda pra compartilhado


[hugo]

valeu

reputation too

[Julio]

Valeu Alceu

Mais um codigo para guadar, mas o primeiro resolveu.


Obrigado

Julio