Visual Basic.NET - Problema con procedimiento almacenado

   
Vista:

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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder