BOTAO EXCLUIR COM CONEXAO MYSQL
Não sei depurar [ô]0[ô]
Pressione F8 e vá pressionando F8, executando linha à linha. Passe o mouse sobre variáveis e veja seus valores.
Ta certo, vou fazer isso
Então... fiz isso e todas as linhas estavam amarelas, quando chega no Catch ex As Exception aparece um ponto de exclamação vermelho escrito [Ô]Connection must be valid and open.[Ô]
Então... fiz isso e todas as linhas estavam amarelas, quando chega no Catch ex As Exception aparece um ponto de exclamação vermelho escrito [Ô]Connection must be valid and open.[Ô]
Então, você vai executando linha por linha, em uma delas, ao invés de passar para a linha de baixo, vai passar para dentro do bloco catch, essa será a linha em que o erro está ocorrendo...
O erro ocorre depois do [txt-color=#e80000]Comando.ExecuteNonQuery()[/txt-color]. Qual seria a solução?
Apaguei a linha e então nao dá mais o erro porém nao exclui o index da comboBox
Apaguei a linha e então nao dá mais o erro porém nao exclui o index da comboBox
Se fosse meu não faria deste jeito.
Fiz algumas mudanças mantendo o máximo do seu código.
If cboAllCli.Text.Trim = [Ô][Ô] Then
[ô]MsgBox([Ô]Adicione um nome[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô])
MsgBox([Ô]Adicione o Código do Cliente[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô]) [ô] Isto por causa da declaração como Integer
Exit Sub
Else
Dim resp As Integer
resp = MsgBox([Ô]Confirma a exclusão do cliente?[Ô], MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, [Ô]Responda[Ô])
[ô]Dim codCli As Integer = vcodcli(cboAllCli.SelectedIndex) [ô]Não sei o que é vcodcli(cboAllCli.SelectedIndex) tinha que ser vcodcli(ccboAllCli.SelectedItem)
Dim codCli As Integer = cboAllCli.SelectedItem [ô] Integer então não pode ser nome
If resp = vbYes Then
Dim Conexao As New MySqlConnection
Conexao.ConnectionString = [Ô]Server=localhost; Database=bras2013; Uid=root; Pwd=12qw;[Ô]
Conexao.Open()
Dim Data_Reader As String = [Ô]Select IdAdmin from Admin where IdAdmin= [Ô] & codCli
Dim Comando As New MySqlCommand(Data_Reader, Conexao)
Dim DtaRead As MySqlDataReader
DtaRead = Comando.ExecuteReader
[ô] If Not DtaRead.Read Then [ô][ô] Não permite exclusão
Conexao.Close()
If DtaRead.Read Then
Dim comando1 As MySqlCommand
Try
Conexao.Open()
cboAllCli.Items.Remove(cboAllCli.SelectedItem)
comando1 = New MySqlCommand
comando1.Connection = Conexao
comando1.CommandType = CommandType.Text
comando1.CommandText = [Ô]Delete from Admin where IdAdmin = [Ô] & codCli
comando1.ExecuteNonQuery()
comando1.Dispose()
MsgBox([Ô]Exclusão concluida.[Ô], MsgBoxStyle.Information, [Ô]Excluido![Ô])
[ô]Nomes()
Catch ex As Exception
MsgBox([Ô]Falha na exclusão.[Ô] & vbCrLf & ex.Message, MsgBoxStyle.Critical, [Ô]Erro![Ô])
End Try
Else
DtaRead.Close()
MsgBox([Ô]Cliente não pode ser excluÃdo.[Ô] & vbCrLf & [Ô]Contas a pagar.[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô])
cboAllCli.Focus()
End If
End If
End If
Fiz algumas mudanças mantendo o máximo do seu código.
If cboAllCli.Text.Trim = [Ô][Ô] Then
[ô]MsgBox([Ô]Adicione um nome[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô])
MsgBox([Ô]Adicione o Código do Cliente[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô]) [ô] Isto por causa da declaração como Integer
Exit Sub
Else
Dim resp As Integer
resp = MsgBox([Ô]Confirma a exclusão do cliente?[Ô], MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, [Ô]Responda[Ô])
[ô]Dim codCli As Integer = vcodcli(cboAllCli.SelectedIndex) [ô]Não sei o que é vcodcli(cboAllCli.SelectedIndex) tinha que ser vcodcli(ccboAllCli.SelectedItem)
Dim codCli As Integer = cboAllCli.SelectedItem [ô] Integer então não pode ser nome
If resp = vbYes Then
Dim Conexao As New MySqlConnection
Conexao.ConnectionString = [Ô]Server=localhost; Database=bras2013; Uid=root; Pwd=12qw;[Ô]
Conexao.Open()
Dim Data_Reader As String = [Ô]Select IdAdmin from Admin where IdAdmin= [Ô] & codCli
Dim Comando As New MySqlCommand(Data_Reader, Conexao)
Dim DtaRead As MySqlDataReader
DtaRead = Comando.ExecuteReader
[ô] If Not DtaRead.Read Then [ô][ô] Não permite exclusão
Conexao.Close()
If DtaRead.Read Then
Dim comando1 As MySqlCommand
Try
Conexao.Open()
cboAllCli.Items.Remove(cboAllCli.SelectedItem)
comando1 = New MySqlCommand
comando1.Connection = Conexao
comando1.CommandType = CommandType.Text
comando1.CommandText = [Ô]Delete from Admin where IdAdmin = [Ô] & codCli
comando1.ExecuteNonQuery()
comando1.Dispose()
MsgBox([Ô]Exclusão concluida.[Ô], MsgBoxStyle.Information, [Ô]Excluido![Ô])
[ô]Nomes()
Catch ex As Exception
MsgBox([Ô]Falha na exclusão.[Ô] & vbCrLf & ex.Message, MsgBoxStyle.Critical, [Ô]Erro![Ô])
End Try
Else
DtaRead.Close()
MsgBox([Ô]Cliente não pode ser excluÃdo.[Ô] & vbCrLf & [Ô]Contas a pagar.[Ô], MsgBoxStyle.Exclamation, [Ô]Atenção[Ô])
cboAllCli.Focus()
End If
End If
End If
Obrigado a todos = )
Tópico encerrado , respostas não são mais permitidas