Problema con procedimiento almacenado
Publicado por gustavo (1 intervención) el 26/11/2012 05:20:25
Tengo el siguiente código en Visual 2005
El problema es que trato de borrar un registro de la tabla, la tabla tiene llaves foráneas ya que hacen referencia a otras tablas. si trato de borrar un registro que no tiene vínculos en otra tabla no hay problema se ejecuta con total normalidad, el problema es si trato de borra un registro que tiene un vínculo a otra tabla, no se borra (eso es entendible) pero no me da error si continúa, da el mensaje de que el borrado es exitos como si se borrara el registro, el cual compruebo en la tabla que aún existe
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim MyConnection As SqlConnection
Dim MyDataAdapter As SqlDataAdapter
MyConnection = New SqlConnection("Data Source=TALAMANCA;Initial Catalog=Activos_Municipales;Integrated Security=True")
MyDataAdapter = New SqlDataAdapter("sp_tb_Funcionarios_Eliminar_Funcionario", MyConnection)
MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
MyDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@IdFuncionario", SqlDbType.Int))
MyDataAdapter.SelectCommand.Parameters("@IdFuncionario").Value = Me.lblIdFuncionarioF.Text
Try
MyConnection.Open()
MyDataAdapter.SelectCommand.ExecuteNonQuery()
' Definir el mensaje.
msgMensaje = "El registro fue eliminado con éxito."
' Definir el estilo.
msgEstilo = MsgBoxStyle.Information Or MsgBoxStyle.OkOnly
' Definir el título.
stTítulo = "SI.C.A.M. Eliminación de funcionario"
' Desplegar el mensaje.
MsgBox(msgMensaje, msgEstilo, stTítulo)
Catch ex As Exception
' Definir el mensaje.
msgMensaje = "ERROR: " & vbCrLf & ex.Message & vbNewLine & vbNewLine & _
"Por restricciones propias del sistema," & vbNewLine & _
"el registro solicitado no puede ser eliminado." ' Definir el estilo.
msgEstilo = MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly
' Definir el título.
stTítulo = "SI.C.A.M. Eliminación de funcionario"
' Desplegar el mensaje.
MsgBox(msgMensaje, msgEstilo, stTítulo)
End Try
MyConnection.Close()
El problema es que trato de borrar un registro de la tabla, la tabla tiene llaves foráneas ya que hacen referencia a otras tablas. si trato de borrar un registro que no tiene vínculos en otra tabla no hay problema se ejecuta con total normalidad, el problema es si trato de borra un registro que tiene un vínculo a otra tabla, no se borra (eso es entendible) pero no me da error si continúa, da el mensaje de que el borrado es exitos como si se borrara el registro, el cual compruebo en la tabla que aún existe
Valora esta pregunta
0