
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:
Ver originalALTER 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