none
Como excluir um registro do banco de dados no visual studio 2005

    Question

  • Boa Noite, 

    Estou com um problema no form contatos aonde lista todos os contatos ja cadastrados de meu sistema.
    Estou com problemas no codigo do btn Excluir que segue a seguir:

     

     

     Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
    
      If MsgBox("Tem Certeza que deseja Remover o Contato ?", vbYesNo, "Atenção!") = vbYes Then
    
       If lvwContatos.FocusedItem.Count > 0 Then
        If lvwContatos.FocusedItem.Checked = True Then
         SQL = "DELETE FROM CONTATOS WHERE CODCONTATO = '" + lvwContatos.SelectedItem.SubItems(1) + "'"
         If ExecutaComando(SQL) = True Then
          MsgBox("Contato Excluído com Sucesso!", vbInformation, "Excluido ")
          txtDescrição.Focus()
         Else
          MsgBox("Ocorreu um Erro ao Excluir o Contato!", MsgBoxStyle.Critical, "Erro")
         End If
        Else
         MsgBox("Favor Selecionar um Contato para Excluir!", vbInformation, "Selecionar")
        End If
       End If
      Else
      End If
     End Sub
    
    Alguem sabe me dizer o que a de erro ou pode me dar um exemplo :???
    Thursday, October 07, 2010 1:14 AM

Answers

  • Primeiro, essa linha:
    If lvwContatos.FocusedItem.Count > 0 Then
    

    O que exatamente você queria com esta linha?

    Por que tem um erro nela... o ".Count" não é um membro de ".FocusedItem"...

    Segundo, na linha seguinte:

    If lvwContatos.FocusedItem.Checked = True Then
    

    Você tá tentando excluir os Contatos marcados do list?

    Se for o caso, você deveria fazer um laço para isso

    Algo como:

     For i As Integer = 0 To ListView1.Items.Count -1
     If ListView1.Items(i).Checked = True Then
     'O resto do Código
     End If
    Next
    

    O por ultimo, tem um else sobrando no fim do seu código, não está causando erro mas ta "errado"...

    Eu sugiro que faça algo parecido com isso: (se for isso que você precise)

    Private Sub btnExcluir_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnExcluir.Click
    Dim sql As String
    If MsgBox("Tem Certeza que deseja Remover o Contato ?", vbYesNo, "Atenção!") = vbYes Then
     For i As Integer = 0 To ListView1.Items.Count
       If ListView1.Items(i).Checked = True Then
       sql = "DELETE FROM CONTATOS WHERE CODCONTATO = '" & ListView1.FocusedItem.Text & "'"
       If True Then
        MsgBox("Contato Excluído com Sucesso!", vbInformation, "Excluido ")
       Else
        MsgBox("Ocorreu um Erro ao Excluir o Contato!", MsgBoxStyle.Critical, "Erro")
       End If
       Else
       MsgBox("Favor Selecionar um Contato para Excluir!", vbInformation, "Selecionar")
       End If
     Next
    End If
    End Sub

    Att. Osni
    Thursday, October 07, 2010 5:08 PM

All replies

  • Amigo você fez a mesma pergunta e eu respondi, se quer ser ajudado, ajude os outros a te ajudar.

    O Visual Studio te mostra alguma mensagem de erro? Se sim, onde? Senão tente debugar sua app linha a linha e ver o que acontece e também coloque o código do seu método ExecutaCommando()

    Thursday, October 07, 2010 3:37 AM
  • Primeiro, essa linha:
    If lvwContatos.FocusedItem.Count > 0 Then
    

    O que exatamente você queria com esta linha?

    Por que tem um erro nela... o ".Count" não é um membro de ".FocusedItem"...

    Segundo, na linha seguinte:

    If lvwContatos.FocusedItem.Checked = True Then
    

    Você tá tentando excluir os Contatos marcados do list?

    Se for o caso, você deveria fazer um laço para isso

    Algo como:

     For i As Integer = 0 To ListView1.Items.Count -1
     If ListView1.Items(i).Checked = True Then
     'O resto do Código
     End If
    Next
    

    O por ultimo, tem um else sobrando no fim do seu código, não está causando erro mas ta "errado"...

    Eu sugiro que faça algo parecido com isso: (se for isso que você precise)

    Private Sub btnExcluir_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnExcluir.Click
    Dim sql As String
    If MsgBox("Tem Certeza que deseja Remover o Contato ?", vbYesNo, "Atenção!") = vbYes Then
     For i As Integer = 0 To ListView1.Items.Count
       If ListView1.Items(i).Checked = True Then
       sql = "DELETE FROM CONTATOS WHERE CODCONTATO = '" & ListView1.FocusedItem.Text & "'"
       If True Then
        MsgBox("Contato Excluído com Sucesso!", vbInformation, "Excluido ")
       Else
        MsgBox("Ocorreu um Erro ao Excluir o Contato!", MsgBoxStyle.Critical, "Erro")
       End If
       Else
       MsgBox("Favor Selecionar um Contato para Excluir!", vbInformation, "Selecionar")
       End If
     Next
    End If
    End Sub

    Att. Osni
    Thursday, October 07, 2010 5:08 PM