APAGAR TODOS REGISTROS DE UMA TABELA NO SQLSERVER VIA VB

03/08/2011

BOA TARDE

PRECISO ZERAR UMA TABELA  DE UMA CONSULTA EM TEMPO DE EXECUCAO  MAS O CODIGO ABAIXO NAO ESTA FUNCIONANDO ALGUEM PODE ME AJUDAR ?
data2.ConnectionString = fprincipal.StatusBar1.Panels(3).Text
data2.RecordSource = "SELECT * from  CONSULTAMOVIMENTO "
data2.Refresh
While Not data2.Recordset.EOF
data2.Recordset.Delete
data2.Recordset.MoveNext
Wend

data2.Refresh
MsgBox ("CONSULTA ZERADA")
APRESENTA O ERRO RUNTIME ERROR -2147467259
INFORMACOES INSUFICIENTES OU INCORRETAS SOBRE A COLUNA CHAVE

Fernando Fecher

Respostas

03/08/2011

Wagner Pereira

Olá Fernando, você quer zerar o seu recordset ou deletar os registros da tabela no banco?
Responder Citar