MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Loop para excluir informacoes no banco de dados

    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Loop para excluir informacoes no banco de dados Empty [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  danielmarcos17 em 5/7/2019, 21:18

    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...
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  IvanJr. em 6/7/2019, 01:30

    Mais simples assim:
    Código:
    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

    call db.execute("delete * from Cadastro where codigo=" & CodCli)
    call db.Close: Set db = Nothing
    end if


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  danielmarcos17 em 6/7/2019, 15:41

    Bom dia meu amigo, mais em que momento no codigo que voce me enviou informa que sera feito um loop para excluir todos os dados selecionados na listview do banco de dados?
    nao entendi


    Última edição por danielmarcos17 em 10/7/2019, 00:40, editado 1 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  IvanJr. em 6/7/2019, 21:52

    Código:
    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

    Dim filtro As String
    Dim Sel As Variant
    Dim AlgoSelecionado As Boolean

    filtro = "in("
    Rem Loopeando sua lista catando os selecionados
    For Each Sel In Me!SuaLista.ItemsSelected
       filtro = filtro & Me!SuaLista.Column(NumeroColunaComCodigoPartindoDoZero, Sel) & ","
       AlgoSelecionado = True
    Next
    filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
    filtro = "codigo " & filtro

    If AlgoSelecionado Then
    ConnectBD
    call db.execute("delete * from Cadastro where " & filtro)
    call db.Close: Set db = Nothing
    End If

    end if


    Última edição por IvanJr. em 9/7/2019, 16:01, editado 1 vez(es)


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  danielmarcos17 em 9/7/2019, 04:40

    Resolvido com a seguinte linha de código:

    Dim i as integer
    For i = 1 To lstPago.listitems.count
    lstPago.ListItems(I).Selected = True
    If lstPago.SelectedItem.Checked then
    connectDB
    rs.Open "select * from Parcelas where codigo=" & lstPago.SelectedItem, db, 3, 3
    rs.Delete
    rs.Update
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
    End If
    Next


    Obrigado a todos que cooperaram!!!!


    Última edição por danielmarcos17 em 10/7/2019, 00:40, editado 1 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  IvanJr. em 9/7/2019, 15:59

    Daniel, não use o código da sua última mensagem.

    Ele pode ser funcional, mas nada recomendado. Ele percorre os itens da listbox abrindo e fechando a conexão para cada item. Agora, imagine um sistema em rede e uma listbox com 200 itens? Você certamente terá problemas! Tente achar uma forma de fazer uma viagem só a tabela e resolver tudo que quereres nessa viagem. Diversas viagens à tabela é pedir para plantar o caos no seu aplicativo. Sentirá a perda de desempenho e travamentos. Deixo esta dica.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  ahteixeira em 9/7/2019, 16:40

    Olá a todos,

    Daniel não deve colocar nada no titulo do tópico nas mensagens seguintes.
    Deixando vazio o título, o forum automaticamente repete a da primeira mensagem.

    Edite as mensagens que tem o título diferente e regularize.

    Abraço a todos

    Conteúdo patrocinado

    [Resolvido]Loop para excluir informacoes no banco de dados Empty Re: [Resolvido]Loop para excluir informacoes no banco de dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 01:52