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

[Aquaventus]

Tu procedure podrías hacerlo así :

Código SQL:

ALTER PROCEDURE [dbo].[sp_borra_t_competencia]
(@id INT)
AS
BEGIN
 
SET NoCount ON;
 
DELETE
FROM T_Competencia
WHERE
ID = @id
AND
ID NOT IN
(
SELECT DISTINCT id_competencia FROM gruporelacion
)
Print @@RowCount 
END
 

Y en tu VB :

Código vb:

conexion = New SqlClient.SqlConnection("server=us;database=tienda s;Integrated Security=True")
Using cmd As New SqlClient.SqlCommand("sp_borra_t_competencia", conexion)
 
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@id", id)
 
conexion.Open()
 
Dim rv As String= cmd.ExecuteScalar().ToString();
 
 
If (Convert.ToInt32(rv) > 0) Then
MessageBox.Show("El registro no fue eliminado pues blah blah")
 
Else
 
MessageBox.Show("El registro ya no existe.")
 
End If
End Using