hola les pido que me ayuden a comprende como manejar los mensajes en un procedimiento almacenado
e estado probando y guarda perfectamente solo que no se como recuperar el mensaje generado de confirmacion o de error
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE dbo.Sp_proveedor_guardar
@NIT_PROVEEDOR varchar(25),
@TIPO_PROVEEDOR varchar(25),
@NOMBRE_PROVEEDOR varchar(80),
@NOM_CHE_PROVEEDOR varchar(80),
@DUI_PROVEEDOR varchar(25),
@REGISTRO_PROVEEDOR varchar(25),
@DIRECCION_PROVEEDOR varchar(100),
@PROFESION_PROVEEDOR varchar(80),
@EDAD_PROVEEDOR int ,
@TELEFONO_PROVEEDOR varchar(8),
@msg AS VARCHAR(100) OUTPUT
AS
BEGIN
SET NOCOUNT ON;
Begin Tran Tadd
Begin Try
INSERT INTO dbo.PROVEEDOR
( NIT_PROVEEDOR,
TIPO_PROVEEDOR,
NOMBRE_PROVEEDOR,
NOM_CHE_PROVEEDOR,
DUI_PROVEEDOR,
REGISTRO_PROVEEDOR,
DIRECCION_PROVEEDOR,
PROFESION_PROVEEDOR,
EDAD_PROVEEDOR,
TELEFONO_PROVEEDOR)
VALUES
( @NIT_PROVEEDOR,
@TIPO_PROVEEDOR,
@NOMBRE_PROVEEDOR,
@NOM_CHE_PROVEEDOR,
@DUI_PROVEEDOR,
@REGISTRO_PROVEEDOR,
@DIRECCION_PROVEEDOR,
@PROFESION_PROVEEDOR,
@EDAD_PROVEEDOR,
@TELEFONO_PROVEEDOR)
SET @msg = 'El Usuario se registro correctamente.'
COMMIT TRAN Tadd
End try
Begin Catch
SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
Rollback TRAN Tadd
End Catch
de esta manera lo trabajo en el vb.net 2010
Private Sub bt_guardar_Click(sender As System.Object, e As System.EventArgs) Handles bt_guardar.Click
Dim mens As String = ""
Dim guardar As New SqlCommand("Sp_proveedor_guardar", cn)
guardar.CommandType = CommandType.StoredProcedure
guardar.Parameters.AddWithValue("@NIT_PROVEEDOR", txt_nit.Text)
guardar.Parameters.AddWithValue("@TIPO_PROVEEDOR", tipo.Text)
guardar.Parameters.AddWithValue("@nombre_proveedor", txt_nombre.Text)
guardar.Parameters.AddWithValue("@nom_che_proveedor", txt_nom_cheque.Text)
guardar.Parameters.AddWithValue("@dui_proveedor", txt_dui.Text)
guardar.Parameters.AddWithValue("@registro_proveedor", txt_reguistro.Text)
guardar.Parameters.AddWithValue("@direccion_proveedor", txt_direccion.Text)
guardar.Parameters.AddWithValue("@profesion_proveedor", txt_profecion.Text)
guardar.Parameters.AddWithValue("@edad_proveedor", txt_edad.Text)
guardar.Parameters.AddWithValue("@telefono_proveedor", txt_telefono.Text)
guardar.Parameters.AddWithValue("@msg", mens)
guardar.ExecuteNonQuery()
cn.Close()
End Sub