Boa noite caros amigos programadores.
Gostaria da ajuda de voces referente a criação de um loop para excluir do banco de dados todos os items selecionados na listview.
Segue o codigo que eu utilizado para excluir os dados:
If CodCli = 0 Then
MsgBox "Nenhum aluno foi selecionado!", vbCritical, "SISTEMA INSIDE INFORMA"
Exit Sub
End If
If MsgBox("Se clicar em SIM, todos os dados do aluno serão perdidos, confirma exclusão?", vbYesNo, "SISTEMA INSIDE INFORMA") = vbYes Then
ConnectBD
rs.Open "select * from Cadastro where codigo=" & CodCli, db, 3, 3
rs.Delete
rs.Update
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
esse codigo eu uso para excluir atraves apenas da seleção de 1 item na listview...
Gostaria da ajuda de voces referente a criação de um loop para excluir do banco de dados todos os items selecionados na listview.
Segue o codigo que eu utilizado para excluir os dados:
If CodCli = 0 Then
MsgBox "Nenhum aluno foi selecionado!", vbCritical, "SISTEMA INSIDE INFORMA"
Exit Sub
End If
If MsgBox("Se clicar em SIM, todos os dados do aluno serão perdidos, confirma exclusão?", vbYesNo, "SISTEMA INSIDE INFORMA") = vbYes Then
ConnectBD
rs.Open "select * from Cadastro where codigo=" & CodCli, db, 3, 3
rs.Delete
rs.Update
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
esse codigo eu uso para excluir atraves apenas da seleção de 1 item na listview...