Apagar todos os registros de uma tabela

Algumas linguagens de programação têm uma instrução que permite apagar todos os registos de uma tabela.
Digamos que pretendemos que a mesma se torne “vazia”.
(a instrução “Zap” do clipper e do FoxPro)
O Visual basic infelizmente não possui uma instrução deste tipo.
Há duas maneiras de efetuar este tipo de operação.

A 1ª é utilizar um ciclo For….Next e executar uma instrução de Delete por cada registo lido.
A 2ª que me parece mais fácil e lógica é utilizar uma instrução SQL, como o exemplo a seguir documenta.

Utilizamos a Base de Dados “Amigos” dos tutoriais para demosntrar esta dica.

No Form “frmpessoal”, acrescente um botão com o código a seguir:

Dim strSQL As String
strSQL = “DELETE FROM pessoal WHERE codigo <> 0 ”
DBenc.Execute strSQL

Pessoal é o nome da tabela na base de dados.
Codigo é a chave principal, única sem duplicação, e por opção nunca será igual a 0 (zero). Por isso na instrução Sql “DELETE” faz apagar todos os registos cujo codigo fosse diferente de zero.
DBenc, é a Base de Dados.