Utilizar un SP con Output de SQL en VB

[Cvilla90]

davidalonsso05 espero que ésto sea lo que necesites:

Tu SP quedaria asi(solo te falta agregar una linea de codigo):

ALTER procedure [dbo].[SP_Output]
(@id int,@mensaje varchar(200) output )
AS

DELETE FROM T_Competencia
WHERE ID=@id AND ID NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)

IF @@rowcount > 0
begin
SET @mensaje='Se borro la tienda con ID: ' + convert(varchar(10),@id)
end
else
IF @ID NOT IN(SELECT ID FROM T_Competencia)
SET @mensaje='La tienda no existe'
else
SET @mensaje='Error: La tienda tiene relacion con ID ' + convert(varchar(10),@id)

--Esta linea solo tendrias a agregarle
select @mensaje


Y en VB éste sería el código:

Dim Cmd As New SqlCommand
Dim mensaje As String
Cmd.Connection = CN
Cmd.CommandTimeout = 0
Cmd.CommandType = CommandType.StoredProcedure
Cmd.CommandText = "SP_Output"
Cmd.Parameters.Add("@id", SqlDbType.Int).Value = "Valor que tendrias a pasarle"

Dim vlmsj As SqlParameter = _
New SqlParameter("@mensaje", SqlDbType.VarChar, 200)
vlmsj.Direction = ParameterDirection.Output
Cmd.Parameters.Add(vlmsj)

CN.Open()
mensaje = Cmd.ExecuteScalar()
CN.Close()

MsgBox(mensaje)


Espero y sea lo que buscabas, Gracias.