Deletar registros de um DBF

[Vandi]

Bom dia,

Uma perguntinha "infantil": Alguém pode me dizer como apagar todos os registros de um DBF? Já tentei o ZAP mas não deu certo, usei tbém o DbZap() mas pelo visto não é compatível com minha versão do xHarbour.

Agradecimentos,

Gilvandi

[anacatacombs]

Para utilizar o ZAP, o arquivo deve ser aberto em modo exclusivo.
Não é uma solução muito boa, mas você pode utilizar um bloco de código para deletar os registros do seu DBF com o DBEVAL.

[alxsts]

Olá!

usei tbém o DbZap() mas pelo visto não é compatível com minha versão do xHarbour

A função equivalente ao comando ZAP (Zero And Pack, nome de uma instrução de alguns assembrers) chama-se __DbZap().

Código: Selecionar todos

      USE Sales EXCLUSIVE NEW
      IF !NETERR()
         SET INDEX TO Sales, Branch, Salesman
         __dbZAP()
         CLOSE Sales
      ELSE
         ? "Zap operation failed"
         BREAK
      ENDIF

[Vandi]

) Boa tarde...

RESOLVIDO o problema graças as colaborações acima!!!

Obrigado...

Gilvandi