Visual Basic.NET - Sin duplicidad de datos

   
Vista:

Sin duplicidad de datos

Publicado por Carlos (2 intervenciones) el 25/10/2007 19:55:04
Tengo un pequeña base de datos en access la tabla es Usuarios y sus campos son Usuario, contraseña y en mi form al guardar el nuevo usuario no deben tener los datos duplicados ejm: Usuario1 = carlos , Usuario2=carlos esto no se debe de dar como haria alguan luz se los agradesco..
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

RE:Sin duplicidad de datos

Publicado por Lincoln (55 intervenciones) el 25/10/2007 20:33:31
haz una comprovacion primero con un procedimiento almacenado de esta manera:

creas este procedimiento en el sql server en tu tabla usuarios

create proc ComprobarUsuario

(
@Usuario char(20),
@Contraseña char(20),
@Res int output
)

as
select @Res=count(*)from usuarios
where Usuario=@usuario and Contraseña=@Contraseña

luego de hacer esto solo tienes que llamar este procedimiento desde el vbasic de esta manera.
en el evento clicl del boton:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'en la cadena de conecsion le cambias el nombre de tu base de datos en initial

'catalog

Dim cn As New System.Data.SqlClient.SqlConnection("server=(local); initial catalog= ejemplo; integrated security=yes")
Dim cmd As New System.Data.SqlClient.SqlCommand("ComprobarUsuario", cn)

'estableces que llamaras a un procedimiento

cmd.CommandType = CommandType.StoredProcedure

'declaras los parametros que requiere el procedimiento

cmd.Parameters.Add("@Usuario", SqlDbType.Char, 20).Value = Me.TextBox1.Text
cmd.Parameters.Add("@Contraseña", SqlDbType.Char, 20).Value = Me.TextBox2.Text
cmd.Parameters.Add("@Res", SqlDbType.Int, 2).Direction = ParameterDirection.Output
cn.Open()
cmd.ExecuteScalar()
cn.Close()

'aqui comparas el contenido de la variable @Res si es uno significa que ya

'exisate ese usuario
If CInt(cmd.Parameters("@Res").Value) = 1 Then
MsgBox("Este usuario ya esta registrado..")
Else
' si llega aqui significa que no existe el usuario y puedes registrarlo, eso ya lo

'haces tu un procedimiento para guardar usuarios
MsgBox("usuario registrado")
End If
End Sub


bueno espero que te sirva adios...
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