PRECISO ZERAR UMA TABELA DE UMA CONSULTA

FFECHER 03/08/2011 14:19:06
#380704
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
KERPLUNK 03/08/2011 14:38:24
#380706
Delete from consultamovimento
ou
truncate consultamovimento

Mas o melhor para seu caso, pra não ter que ficar criando tabela, zerando, abastecendo com dados, o melhor mesmo é criar uma view...
FFECHER 03/08/2011 14:42:20
#380708
em qual opcao do data2. coloco esse comando ?
KERPLUNK 03/08/2011 14:43:49
#380709
Não sei o que é o seu [Ô]data2[Ô] mas se for um adapter ou coisa parecida, deve ter um método [Ô]Execute[Ô] ou coisa assim
FFECHER 03/08/2011 14:45:02
#380710
Nao tem execute ja procurei
FFECHER 03/08/2011 14:47:19
#380711
uso o adodc padrao do vb
KERPLUNK 03/08/2011 14:55:27
#380712
Tenta simplesmente colocar no lugar do [Ô]Select ....[Ô]
FFECHER 03/08/2011 14:59:22
#380713
Diz operacao nao permitida quando objeto esta fechado
RODRIGOFERRO 03/08/2011 15:19:19
#380717
Posta seu codigo amigao !

Abraços
FFECHER 03/08/2011 15:22:45
#380718
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
EVSAR3 03/08/2011 16:10:51
#380731 Resposta escolhida
Faça referência à qualquer versão do ADO.
Depois faça o seguinte:

Dim adoConn As New ADODB.Connection
adoConn.ConnectionString = [Ô]Sua connection string[Ô]
adoConn.Open
adoConn.Execute [Ô]DELETE FROM CONSULTAMOVIMENTO[Ô]
adoConn.Close

Deve funcionar.

Boa sorte.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar