Visual Basic.NET - Mostrar el error la validacion desde Store en un form

   
Vista:

Mostrar el error la validacion desde Store en un form

Publicado por vELMA (1 intervención) el 20/07/2012 23:04:07
Hola;
Tengo un store que realiza una inserccion de datos, este tiene algunas validaciones

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
ALTER PROCEDURE [dbo].[g_MeasureInsert]
@code varchar(10),
@description varchar(30)
,@userid int
AS
BEGIN
DECLARE @Key   INT
DECLARE @Status INT
SET NOCOUNT ON
 
SET @Status= 0
EXEC @Key= spFolgenDB 'GC_Measure', 'measureKey', 'int'
PRINT @Key
IF  @code IS NULL OR @code=''
BEGIN
SELECT -1 AS Clave, 'Debe proporcionar el Codigo, es un parametro obligatorio.' as Descripcion
RETURN(-1)
END
 
IF  @description IS NULL OR @description=''
BEGIN
SELECT -1 AS Clave, 'Debe proporcionar la Descripcion, es un parametro obligatorio.' as Descripcion
RETURN(-1)
END
 
INSERT INTO GC_Measure(measureKey
,code
,description
,lastmoduser
)
VALUES (@Key
,@code
,@description
,@userid
)
SELECT @@ROWCOUNT
IF(@@rowcount=0)
BEGIN
SELECT -1 AS Error, 'No se pudo agregar el registro. Verifique los parametros' as Descripcion
RETURN(-1)
END
ELSE
BEGIN
SELECT 0 AS Clave, 'Transaccion exitosa' as Descripcion
RETURN(0)
END
END


como ven valida que se haya ingresado el codigo y la descripcion, ahora lo que necesito es que cuando caiga en un error por ejempo no se haya metido la descripcion, mande el error que esto mostrando alform o a un mensaje, podrian ayudarme con eso. El return -1 lo pongo para saber cuando que es un -1 mande el error.


Alguna idea??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Mostrar el error la validacion desde Store en un form

Publicado por David (46 intervenciones) el 21/07/2012 14:33:24
hola Velma,
tu funcion o sub podria tener esta forma:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function MeasureInsert() As Boolean
        Dim oCmd As New SqlCommand("g_MeasureInsert", TuConexion)
        oCmd.CommandType = CommandType.StoredProcedure
        'establecer los parametros del procedimiento almacenado
        Dim Par1 As New SqlParameter("@code", SqlDbType.VarChar, 10)
        Par1.Value = ""'aqui colocas erl valor correspondiente a la var
        Dim Par2 As New SqlParameter("@description", SqlDbType.VarChar, 30)
        Par2.Value = ""
        Dim Par3 As New SqlParameter("@userid ", SqlDbType.Int)
        Par3.Value = ""
        'adicionamos los parametros  al comando
        oCmd.Parameters.Add(Par1)
        oCmd.Parameters.Add(Par2)
        oCmd.Parameters.Add(Par3)
 
        'ejecutamos el proc  y enviamos el mensaje de confirmacion
        Dim oAdapter As New SqlDataAdapter(oCmd)
        Dim oTabla As New DataTable
            oAdapter.Fill(oTabla)
            'verificamos la var de control del proc 
            If oTabla.Rows(0)("Clave") = 0 Then
                MsgBox(oTabla.Rows(0).Item("Descripcion"), MsgBoxStyle.Information, "Confirmacion")
                Return True
            Else
                MsgBox(oTabla.Rows(0).Item("Descripcion"), MsgBoxStyle.Critical, "Error")
                Return False
            End If
    End Function


espero te sirva saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar