COMO EXCLUIR EM ADO???

USUARIO.EXCLUIDOS 16/12/2006 18:58:45
#190414
Gente, estou fazendo um programa em que o ADO esta sendo utilizado, e eu gostaria de que qnd alguem clicar no botao "OK!", ele exclua a linha da tabela, que ja esta aberta.

Vlw !
WEBER 16/12/2006 19:35:19
#190415
BOM vc primeiramente terá que criar uma sql onde filta o registro exemplo
tabela clientes

idcliente
nomecliente

tento um form onde vc digita o numero do id do cliente em um textbox

dim idfiltrado as integer
idfiltrado = text1.text
rs.open "select * from clientes where idcliente=" & idfiltrado, con .....

rs.delete


pronto o registro que tiver o numero XXX sera excluido
CLEVERTON 16/12/2006 21:06:31
#190417
Ou então sem usar Recordset, usando uma classe connection

Cnn.Execute "Delete from SUATABELA where seucampo=" & seucriterio
USUARIO.EXCLUIDOS 16/12/2006 22:33:12
#190418
ja fiz isso, mas acontece o erro 3021!!
"Ou BOF ou EOF sao verdadeiros,ou o registro atual foi excluido.Oaplicativo requer um registro atual"
E agora?!?!?!
PAULOOLIVEIRA 16/12/2006 23:22:44
#190419
trata o erro:

if rs.recordcount > 0 then
rs.movelast
else
unload me
endif


resolver acho...
USUARIO.EXCLUIDOS 17/12/2006 13:57:33
#190443
ainda da o mesmo erro 3021 =/
ESLEYSANCHES 17/12/2006 17:59:05
#190455
Faça assim, veja se te ajuda:

Recordset.Fields.Delete


Ele irá excluir a linha que está em seleçaõ ou seja está selecionada !!

depois disso de um movenext para ir ao proximo registro tio assim:


on error goto TRATA
Recordset.Fields.Delete
Recordset.MoveNext
exit sub
TRATA:
    msgbox("Erro ao excluir o registro, erro número " & err.number & " Descrição: " & Err.Description),vbcritical


Coloquei os tals TRATA:, ON ERROR ...
para caso de um erro ele exiba uma mensagem com o número do erro e a descrição

Só espero que te ajude !!
Abraços !!
CLEVERTON 17/12/2006 19:22:05
#190469
vc terá que fazer o seguinte

if Rst.EOF or Rst.BOF then
Msgbox "Não há registro atual",vbinformation
else
rst.delete adcurrent
end if
USUARIO.EXCLUIDOS 18/12/2006 07:05:52
#190502
Angel..pelo que eu vi..lá em cima..n sei como vc colocou mas verifique o seguinte:

No exemplo que o Weber deu..ele filtrou o seu registro baseado num Text. O campo na tabela onde esse filtro foi feito, se for:

Número :rs.open "select * from clientes where idcliente=' & idfiltrado & ' ...
Texto:rs.open "select * from clientes where idcliente='" & idfiltrado & "' ...

Tenta e nos informe do resultado..boa sorte!
SILVIO.GARCIA 18/12/2006 08:59:27
#190535 Resposta escolhida

Sql$= "delete from tabclientes where idcliente='" & idfiltrado.text & "'"

rs.begintrans
rs.execute sql
rs.comittrans
USUARIO.EXCLUIDOS 18/12/2006 10:22:14
#190562
GENTE BRIGADA!!!!!!!!!!!!!

Fui pegando um pouco do codigo de cada um,e consegui!!!!
Brigada!!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar