[SOLUCIONADO] Utilizar un SP con Output de SQL en VB

[davidalonsso05]

Buen día, tengo mi SP en SQL de la siguiente manera:

Código SQL:

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)
 

y lo ejecuto asi:

Código SQL:

DECLARE @mensaje VARCHAR(200);
EXEC sp_output '10', @mensaje output
 
SELECT @mensaje
 

Bien lo que yo quiero es llevarlo a VB y que imprima los mismos mensajes, tenia mi codigo asi que me mostraba los mensajes como Select de otro SP que si me funciona correctamente y realiza las mismas operaciones:

Código vb:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        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_grid2()
 
 
    End Sub
 

Podria modificar mi codigo para uitlizar el output? Gracias de ante mano saludos!

[davidalonsso05]

Urge respuesta u.u

[drako_darpan]

Hola que tal, por que no haces que el SP regrese el valor directo sin el OUTPUT.

Código SQL:

ALTER PROCEDURE [dbo].[SP_Output]
    (@id INT)
    AS
 
     DECLARE @mensaje VARCHAR(200) output 
 
    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)
 

En C#, lo que hago es que lo leo en el READER y con eso muestro la información

[davidalonsso05]

Te agradesco enormemente tu tiempo drako_darpan, lo que sucede es que ya lo hice mediante select como tu me das la opcion y de echo es el mismo codigo del SP que tengo al que me proporcionas, sin embargo "me pidieron" que hiciera la misma operacion (borrar) mediante 3 store procedure diferente: select, output y return, hasta ahorita llevo el primero que es de SELECT, me falta el de output que proporcione y tambien el de RETURN, si me pudieras ayudar con cualquiera de los dos, SP del return :):

Código SQL:

ALTER PROCEDURE [dbo].[SPReturn]
(@id nvarchar(50))  
AS  
DELETE FROM  T_Competencia   
WHERE ID=@id AND ID  NOT IN (SELECT DISTINCT id_competencia FROM t_gruporelacion)  
   
IF @@rowcount > 0  RETURN 0
  
ELSE RETURN 1
 

Y te enseño el codigo de VB que me funciono para el Store procedure de los SELECT:

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_grid2()
 

Ahí aplico el ExecuteReader que me mencionas :)
Gracias por tu tiempo!

[drako_darpan]

Hola que tal, bueno es necesario que sean 3 SP

Mi duda es, por que puedes hacer 1 SP, que mande llamar a los otros SP que necesitas, cosa que te ahorra mucho tiempo ( Este se me hace mas facil ).

También si vas a borrar información de tablas, puedes hacer un DELETE con un join y asi borrar la información que necesitas.

[davidalonsso05]

De echo cual forma seria mas facil?

[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.

[davidalonsso05]

Gracias Cvilla90 me funciono muy bien tu respuesta y disculpa por la tardanza en contestar, gracias me sirvio mucho!!!!