Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/07/2014, 12:37
uagrm
 
Fecha de Ingreso: agosto-2010
Mensajes: 126
Antigüedad: 13 años, 8 meses
Puntos: 9
Respuesta: Validar datos repetidos

Bueno, de tanto hacer pruebas a mi código hice algunas modificaciones que ahora me funciona 100%.

La primer modificación lo realice en el procedimiento almacenado.
Código PHP:
Ver original
  1. create procedure InsertarPersona
  2. @Nombres varchar(50),
  3. @Apellidos varchar(50),
  4. @Dni int,
  5. @Direccion varchar(100),
  6. @Telefono int,
  7. @Email varchar(100),
  8. @Estado varchar(30)
  9. as
  10. declare
  11.     @resultado bit
  12.     if exists (select * from tztPersona where Dni = @Dni)
  13.     begin
  14.         set @resultado = 1
  15.     end
  16.     else
  17.         begin
  18.             set @resultado = 0
  19.             insert into tztPersona values (@Nombres, @Apellidos, @Dni, @Direccion, @Telefono, @Email, @Estado)
  20.         end
  21.     select @resultado
  22. go


La segunda modificación lo realice en mi función Insertar
Código PHP:
Ver original
  1. Public Function InsertarPersona(ByVal a As nPersona) As Boolean
  2.         Try
  3.             Conectado()
  4.             cmd = New SqlCommand("InsertarPersona")
  5.             cmd.CommandType = CommandType.StoredProcedure
  6.             cmd.Connection = cnn
  7.  
  8.             cmd.Parameters.AddWithValue("@Nombres", a.getNombres)
  9.             cmd.Parameters.AddWithValue("@Apellidos", a.getApellidos)
  10.             cmd.Parameters.AddWithValue("@Dni", a.getDni)
  11.             cmd.Parameters.AddWithValue("@Direccion", a.getDireccion)
  12.             cmd.Parameters.AddWithValue("@Telefono", a.getTelefono)
  13.             cmd.Parameters.AddWithValue("@Email", a.getEmail)
  14.             cmd.Parameters.AddWithValue("@Estado", a.getEstado)
  15.  
  16.             Dim count As Integer = Convert.ToInt32(cmd.ExecuteScalar)
  17.  
  18.             If count = 0 Then
  19.                 Return True
  20.             Else
  21.                 Return False
  22.             End If
  23.         Catch ex As Exception
  24.             MsgBox(ex.Message)
  25.             Return False
  26.         Finally
  27.             Desconectado()
  28.         End Try
  29.     End Function

En el Boton Guardar no realice ninguna modificación y con esto solucione mi problema.