Foros del Web » Programación para mayores de 30 ;) » .NET »

Validar datos duplicados Vb.net con SP(sql Server)

Estas en el tema de Validar datos duplicados Vb.net con SP(sql Server) en el foro de .NET en Foros del Web. Buenos dias Amigos Del Forum, Tengo un nuevo desafio,deseo que al Insertar Un Registro desde Visual a SQL Serve exista Una validacion que me indique ...
  #1 (permalink)  
Antiguo 27/08/2013, 10:11
Avatar de gonzalezjesus_77  
Fecha de Ingreso: julio-2013
Ubicación: venezuela
Mensajes: 11
Antigüedad: 9 años, 6 meses
Puntos: 0
Información Validar datos duplicados Vb.net con SP(sql Server)

Buenos dias Amigos Del Forum, Tengo un nuevo desafio,deseo que al Insertar Un Registro desde Visual a SQL Serve exista Una validacion que me indique que ya existe Ese Nuevo dato y que por lo tanto no se llevara a cabo toda insercion de los demas Campos. Les confieso no se como Hacerlo en Visual. De Hecho al intentar ingresar datos duplicado no se insertan los datos, mas no hay un mensaje desde visual que lo indique.
Este es el codigo de Insercion desde Un procedimiento en SQl Server:
Código:
ALTER procedure [dbo].[pp_ins_Cliente]  
 @co_cli char(10),
 @cli_des varchar(100),
 @rif char(18), 
 @telefonos varchar(60),
 @ciudad varchar(50),
 @fecha_reg smalldatetime,
 @zona varchar(50),
 @entidad varchar(100),
 @email varchar(60)
AS

if exists( select* from Clientes where rif = @rif)
return 1 --error,Cedula ya Existe
else
BEGIN
	
			insert into Clientes(co_cli,cli_des,rif,telefonos,ciudad,
                       fecha_reg,zona,entidad,email)
               values (@co_cli,@cli_des,@rif,@telefonos,@ciudad,
                       @fecha_reg,@zona,@entidad,@email)
return 0 --ok
raiserror ('Datos Insertados', 16,1)

end
Este es el codigo de VB:
Código:
Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
        Try
            Dim conex As New SqlConnection(ConfigurationManager.ConnectionStrings("CONEXION").ConnectionString)
            conex.Open()

            Dim cmd As New SqlCommand("pp_ins_Cliente", conex)

            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.Add("@co_cli", SqlDbType.Char).Value = TextBox1.Text
            cmd.Parameters.Add("@cli_des", SqlDbType.VarChar).Value = TextBox3.Text
            cmd.Parameters.Add("@rif", SqlDbType.Char).Value = TextBox2.Text
            cmd.Parameters.Add("@telefonos", SqlDbType.VarChar).Value = TextBox8.Text
            cmd.Parameters.Add("@ciudad", SqlDbType.VarChar).Value = TextBox7.Text
            cmd.Parameters.Add("@fecha_reg", SqlDbType.SmallDateTime).Value = TextBox4.Text
            cmd.Parameters.Add("@zona", SqlDbType.VarChar).Value = TextBox5.Text
            cmd.Parameters.Add("@entidad", SqlDbType.VarChar).Value = TextBox6.Text
            cmd.Parameters.Add("@email", SqlDbType.VarChar).Value = TextBox9.Text
            cmd.ExecuteNonQuery()

            conex.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Datos Guardados")
        End Try
End Sub

Etiquetas: duplicados, sql, textbox, vb, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:04.