MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Loop para excluir informacoes no banco de dados

    avatar
    danielmarcos17
    Novato
    Novato


    Respeito às regras : 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 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...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    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  DamascenoJr. 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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    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 : 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 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)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    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  DamascenoJr. 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)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    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 : 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 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)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    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  DamascenoJr. 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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    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  Alvaro Teixeira 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: 8/11/2024, 07:25