Mostrar error al tratar de borrar un registro en otra tabla!

[davidalonsso05]

Ya pude, la respuesta era:

Store Procedure en SQL:

Código SQL:

ALTER PROCEDURE [dbo].[sp_Borra_Competencia]
(@id INT)
AS
DELETE FROM  T_Competencia 
WHERE ID=@id AND ID  NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)
 
IF @@rowcount > 0
BEGIN 
SELECT 'Mensaje'='Se borro la tienda con ID ' + CONVERT(VARCHAR(10),@id)
END 
ELSE IF @ID NOT IN(SELECT ID FROM T_Competencia)
SELECT 'Mensaje'='La tienda no existe' 
ELSE
 
SELECT 'Mensaje'='Error: La tienda tiene relacion con ID ' + CONVERT(VARCHAR(10),@id)
 

Y en VB:

Código vb:

id = TextBox4.Text
        res = MessageBox.Show("Desea borrar la tienda?", "Tienda Competencia", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
 
        If res = vbYes Then
            sql = " exec sp_Borra_Competencia " + id + ""
            conectar()
            com = New SqlClient.SqlCommand(sql, conexion)
            dr = com.ExecuteReader
            If dr.Read Then
                MsgBox(dr(0).ToString())
 
 
            End If
        End If
        llenar_grid()
 

Espero a alguien le pueda servir si ve este post.