SELECIONA E DELETAR MULTIPLOS REGISTROS C/ DBGRID

LANCECOM 13/01/2005 15:34:11
#60551
Selecionar e Deletar multiplos registros em uma DBGrid (vinculado). Como se faz, alguem sabe?
THIAGO.CESAR 13/01/2005 18:17:15
#60618
Se você tiver um parà¢metro para exclusão, pode fazer isso usando um comando SQL

... Delete * From Tabela Where ...
USUARIO.EXCLUIDOS 13/01/2005 18:35:53
#60619 
public sub sdRS(valor as string)

slinha = Split(valor) 
For i = LBound(slinha) To UBound(slinha) 
   
sql = "SELECT * from tabela where [codigo]=" & slinha(i) 
Adodc1.RecordSource = sql 
Adodc1.Refresh 

'se for um registro
adodc1.recordset.delete

'se for mais de um registro com o mesmo codigo
'adodc1.recordset.movefist
'do while not adodc1.recordset.eof
'adodc1.recordset.dele
'adodc1.recordset.movenext
'loop
 
Next 
end sub


para chamar coloque no botão

sdRS("1 2 6 9 8")     'deleta os registro 1 2 6 9 8 da tabela


fuii
USUARIO.EXCLUIDOS 13/01/2005 19:25:07
#60621
Corrigindo, em vez de movefist MoveFirst, em vez de dele Delete
A Pressa é inimiga da perfeição
Rsrsrs

Até logo!
Espero ter ajudado!
Tópico encerrado , respostas não são mais permitidas
Voltar