ERRO VISUAL STUDIO 2015 COM FIREBIRD
Olá amigos na hora de excluir um registro de um ListBox, selecionando apresenta o seguinte erro, o que pode ser? Segue o código abaixo
Public Sub Excluir(Nome_Do_Cliente As String)
Dim Comando As FbCommand = New FbCommand
Comando.Connection = Conexao
Comando.CommandText = [Ô]DELETE from CLIENTES where NOME=@CLIENTE[Ô]
Comando.Parameters.AddWithValue([Ô]@CLIENTE[Ô], Nome_Do_Cliente)
Conexao.Open()
Comando.ExecuteNonQuery()
Conexao.Close()
ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
lbl_CONTAGEM.Text = ListBox1.Items.Count & [Ô] Clientes cadastrados[Ô]
End Sub
E no botão ao cliar segue o código
If Var_Nome <> [Ô][Ô] Then
Call Excluir(Var_Nome)
Var_Nome = [Ô][Ô]
End If
Public Sub Excluir(Nome_Do_Cliente As String)
Dim Comando As FbCommand = New FbCommand
Comando.Connection = Conexao
Comando.CommandText = [Ô]DELETE from CLIENTES where NOME=@CLIENTE[Ô]
Comando.Parameters.AddWithValue([Ô]@CLIENTE[Ô], Nome_Do_Cliente)
Conexao.Open()
Comando.ExecuteNonQuery()
Conexao.Close()
ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
lbl_CONTAGEM.Text = ListBox1.Items.Count & [Ô] Clientes cadastrados[Ô]
End Sub
E no botão ao cliar segue o código
If Var_Nome <> [Ô][Ô] Then
Call Excluir(Var_Nome)
Var_Nome = [Ô][Ô]
End If
Citação:ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
A instância de algum objeto, que você está usando ou passando para outro, não existe. Acredito que seja quando você passa [Ô]ListBox1.SelectedItem.ToString[Ô] como parametro no codigo acima. Verifique se esse código retorna algum dado antes de mandar remover da lista.
Citação:ListBox1.SelectedItem.ToString
Retorna o valor sim, já verifiquei tentando encontrar o erro e nada
If ListBox1.SelectedItems.Count > 0 Then
ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
End If
ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
End If
If ListBox1.SelectedItems.Count > 0 Then
ListBox1.Items.Remove(ListBox1.SelectedItem.ToString)
End If
Da mesma forma dando erro. Estou ficando louco e não consigo encontrar esse erro.
Citação:Comando.Connection = Conexao
Sua classe Conexão foi instanciada?
Tente ver em que linha ta acontecendo o erro pelo menos.
Citação::
Comando.Connection = Conexao
Sua classe Conexão foi instanciada?
Tente ver em que linha ta acontecendo o erro pelo menos.
Pior que não consigo ver ver em qual linha está o erro, a comnexã instanciada está sim, pois consigo salvar e é no mesmo form.
Coloque um BreakPoint no inicio desse código, daà vai rodando linha a linha com o F10. Uma hora vai dar o erro e você vai descobrir a linha.
Não precisar usar o .ToString
lustbox1.items.remove(listbox1.selecteditem)
lustbox1.items.remove(listbox1.selecteditem)
Já tentou com:
ListBox1.Items.Remove(ListBox1.SelectedIndex)
ListBox1.Items.Remove(ListBox1.SelectedIndex)
TRSOFTWARES
Só agora olhei seu código com mais calma,
Duas Observações:
1-Excluir dados de cliente em uma aplicação não é uma prática muito adequada, aliás, em minha opinião, nenhum tipo de dado deve ser excluÃdo, o ideal é que vc marque esse registro como [Ô]oculto/inativo/etc[Ô] para que ele não fique visÃvel ao usuário.
2-vc realmente vai excluir o cliente pelo Nome ?
Já pensou que pode existir dois clientes com o mesmo nome ? o ideal é usar a Chave primária para fazer.
Só agora olhei seu código com mais calma,
Duas Observações:
1-Excluir dados de cliente em uma aplicação não é uma prática muito adequada, aliás, em minha opinião, nenhum tipo de dado deve ser excluÃdo, o ideal é que vc marque esse registro como [Ô]oculto/inativo/etc[Ô] para que ele não fique visÃvel ao usuário.
2-vc realmente vai excluir o cliente pelo Nome ?
Já pensou que pode existir dois clientes com o mesmo nome ? o ideal é usar a Chave primária para fazer.
Tópico encerrado , respostas não são mais permitidas