NAO CONSIGO EXCLUIR MEU REGISTRO
Oi sou novo aqui e nao estou conseguindo escluir os registros na minha tabela..ultilizo o visual studio 2010 e estou trabalhando com o VIsual Basic.
procedure
ALTER PROCEDURE dbo.deletedadosclientes
@cod_cli int
as
DELETE FROM clientes
where cod_cli = @cod_cli
função
Public Function delete(ByVal id As Integer) As Integer
Dim con As SqlConnection = New SqlConnection(strcon)
Dim comando As SqlCommand = con.CreateCommand
comando.CommandType = CommandType.StoredProcedure
comando.CommandText = [Ô]deletedadosclientes[Ô]
comando.Parameters.Add(New SqlParameter([Ô]@cod_cli[Ô], SqlDbType.Int))
comando.Parameters([Ô]@cod_cli[Ô]).Value = id
Try
con.Open()
Dim x As Integer = comando.ExecuteNonQuery
Return x
con.Close()
Catch ex As SqlException
Throw New ApplicationException([Ô]Erro ao excluir Aluno.[Ô])
Finally
con.Close()
End Try
End Function
botao
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (MsgBox([Ô]Confirma exclusão deste registro ?[Ô], MsgBoxStyle.YesNo) = MsgBoxResult.Ok) Then
Dim cliente As clientes = New clientes
Dim iRegDeletados As Integer = Me.BindingContext(clienteInfo).Position
Dim iRegAfetados As Integer = cliente.delete(Convert.ToInt32(TextBox1.Text))
If Not (iRegDeletados = 0) Then
MsgBox([Ô]Registro excluido com sucesso.[Ô])
If Not (clienteInfo Is Nothing) Then
desvinculaControles()
mostraregistros()
vinculaControles()
If iRegDeletados = clienteInfo.Length Then
Me.BindingContext(clienteInfo).Position = iRegDeletados - 1
Else
Me.BindingContext(clienteInfo).Position = iRegDeletados + 1
End If
Else
MsgBox([Ô]Registro não localizado.[Ô])
End If
Else
MsgBox([Ô]Erro ao excluir o registro.[Ô])
End If
End If
End Sub
aguardo ajuda
procedure
ALTER PROCEDURE dbo.deletedadosclientes
@cod_cli int
as
DELETE FROM clientes
where cod_cli = @cod_cli
função
Public Function delete(ByVal id As Integer) As Integer
Dim con As SqlConnection = New SqlConnection(strcon)
Dim comando As SqlCommand = con.CreateCommand
comando.CommandType = CommandType.StoredProcedure
comando.CommandText = [Ô]deletedadosclientes[Ô]
comando.Parameters.Add(New SqlParameter([Ô]@cod_cli[Ô], SqlDbType.Int))
comando.Parameters([Ô]@cod_cli[Ô]).Value = id
Try
con.Open()
Dim x As Integer = comando.ExecuteNonQuery
Return x
con.Close()
Catch ex As SqlException
Throw New ApplicationException([Ô]Erro ao excluir Aluno.[Ô])
Finally
con.Close()
End Try
End Function
botao
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (MsgBox([Ô]Confirma exclusão deste registro ?[Ô], MsgBoxStyle.YesNo) = MsgBoxResult.Ok) Then
Dim cliente As clientes = New clientes
Dim iRegDeletados As Integer = Me.BindingContext(clienteInfo).Position
Dim iRegAfetados As Integer = cliente.delete(Convert.ToInt32(TextBox1.Text))
If Not (iRegDeletados = 0) Then
MsgBox([Ô]Registro excluido com sucesso.[Ô])
If Not (clienteInfo Is Nothing) Then
desvinculaControles()
mostraregistros()
vinculaControles()
If iRegDeletados = clienteInfo.Length Then
Me.BindingContext(clienteInfo).Position = iRegDeletados - 1
Else
Me.BindingContext(clienteInfo).Position = iRegDeletados + 1
End If
Else
MsgBox([Ô]Registro não localizado.[Ô])
End If
Else
MsgBox([Ô]Erro ao excluir o registro.[Ô])
End If
End If
End Sub
aguardo ajuda
por favor alguem me de uma luz ai..
Boa tarde,
Apresenta algum erro?
Apresenta algum erro?
nao da erro... so nao esta excluindo o registro da tabela ... eu aperto o botao ele da como se tivesse apagado.. mais quando vou a tabela o registro se encontra la...se eu reniciar o programa o registro volta...
Bom, eu não tenho costume com o SQL Server, mas o que tudo indica o erro é na Stored Procedure. Vamos ver se algum colega aqui do fórum consegue lhe ajudar.
Sugestão nem olhei o código ainda, mas pega a saida do command o (SQL) gerado e cola no Sql Server se apagar voltamos ao VB, caso contrário ...sintaxe..as vezes está gerando alguma sujeira...
alevale como eu vou fazer isso?
esse command de saida que vc fala seria a exibição? se caso for ta exibindo
Conseguiu resolver?
cara seguinte bota um break point no inicio do botao excluir e vai dando F11 linha a linha e vai passando o mouse em cima dos @cod e confere se ele ta pegando o id do contato que voce esta excluindo
cara seguinte bota um break point no inicio do botao excluir e vai dando F11 linha a linha e vai passando o mouse em cima dos @cod e confere se ele ta pegando o id do contato que voce esta excluindo
ainda nao rodou nao vou fazer isso que vc falou do break point
eu fiz o break point.. no botao excluir ele so ta lendo a msg se desejo excluir e depois ja ta saindo.. ele nao ta rodando o resto do programa no botao excluir
Tópico encerrado , respostas não são mais permitidas