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

[davidalonsso05]

De echo lo modifique como SqlClient.SqlParameter ya que lo habia puesto como SqlParameter e igual me indica que no esta definida y lo corro y me muestra este error:

Código vb:

rv = cmd.ExecuteScalar().ToString() Procedure or Function 'sp_borra_t_competencia' expects parameter '@id', which was not supplied.
 

Gracias por tu tiempo y disculpa si te desespero!

[Aquaventus]

Tu variable id supongo que es tipo Int32, cierto? porque la variable que recibe en el procedure esta declarada como int.

[davidalonsso05]

Si te muestro mis variables en SQL:

Código SQL:

ID  INT Unchecked
Competencia nvarchar(50)    Unchecked
Zona    INT Unchecked
 

De echo declaro mi variable ID antes del codigo del boton borrar:

Código vb:

Dim id as integer
 conexion = New SqlClient.SqlConnection("server=jromeuwxp;database=soriana;Integrated Security=True")
 

Y al momento de borrar me marca en la linea:

Código vb:

rv = cmd.ExecuteScalar().ToString()
 

Referencia a objeto no establecida como instancia de un objeto.

[Aquaventus]

ya vi el error.. está clarisimo en tu código del evento del boton :

Código vb:

Dim id As Integer
        conexion = New SqlClient.SqlConnection("server=jromeuwxp;database=soriana;Integrated Security=True")
        Using cmd As New SqlClient.SqlCommand("sp_borra_t_competencia", conexion)
 
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add(New SqlClient.SqlParameter("@id", SqlDbType.Int))
            cmd.Parameters("@id").Direction = ParameterDirection.Input
            cmd.Parameters("@id").Value = id
 
            Dim rv As String
 
            conexion.Open()
 
            rv = cmd.ExecuteScalar().ToString()
 
 
            conexion.Close()
 
            If (Convert.ToInt32(rv) > 0) Then
                MessageBox.Show("El registro no se puede borrar, ya que cuenta con relacion")
 
            Else
 
                MessageBox.Show("El registro ya no existe")
 
            End If
        End Using
 

si te das cuenta en la primera línea declaras tu variable id, pero no le pasas ningun valor dentro de ese evento para pasarlo luego al procedure, e ahí tu error. Saludos!.

[davidalonsso05]

No se supone que mediante el SP lo toma automaticamente?
No entiendo muy bien

[Aquaventus]

ok en una rato vengo(1H. aprox.), voy de almuerzo.

[Aquaventus]

en vez de rv = cmd.ExecuteScalar().ToString() dejalo como :

Código vb:

rv = cmd.ExecuteScalar()
 

[davidalonsso05]

Disculpa voy llegando al trabajo, ya lo copie y lo ejecuto y no me marca error solo me dice: MessageBox.Show("El registro ya no existe")
Pero no borra el registro exista o no en la otra tabla...

Gracias de ante mano por este tiempo!!

[Aquaventus]

No te borra porque como te dije antes no le pasas un valor a tu variable id.

[davidalonsso05]

Disculpa Aquaventus por no responder antes lo que sucede es que mi jefe me dijo que primero hiciera un SP (SQL) donde al ejecutarlo me muestre "los mensajes de error" en forma de "tabla (select)" mira te pongo el SP:

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)
 

Ahora una vez realizado quiere que lo ponga en el codigo de VB y que lo haga funcionar

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