Multiples usuarios y contraseñas

Question

Tengo una tabla llamada Usuario, en ella hay 4 campos, Idusuario, nombre, apellido, contraseña. he creado un formulario para esta tabla tambien llamado Usuario. en la que puse un botón acepar y otro cancelar

Quiero que al hacer clic en el botón aceptar valide usuario y contraseña de la tabla usuario y una validado, abra un formulario que he llamado Comanda.

agradecere enormemente me puedan ayudar con el código que debo escribir en el editor Visual Basic, por siento estoy con el Office 2007 por que no tengo edia de como se escribe el código, eclaro que la base que estoy construyendo es en Acces.

Gracias de antemano por cooperarme.

Answer 1

Buenas.... A ver si te puedo ayudar....

Dim

cmd As New SqlCommand()

cmd.Connection = con

cmd.CommandType = CommandType.StoredProcedure

cmd.CommandText =

"select * from TablaDONDE where usuario = @usuario and clave = @password "

 

'Aqui creas los parametros.

cmd.Parameters.Add(

New SqlParameter("@usuario", SqlDbType.NChar))

cmd.Parameters.Add(

New SqlParameter("@password", SqlDbType.NChar))

cmd.Parameters(

"@usuario").Value = txt_usuario.Text

cmd.Parameters(

"@password").Value = txt_clave.Text

'Aqui creas unas variable para ver el resultado que te devuelve el Procedimientos.

Dim resul As

Integer

'Aqui abres la coneccion. y luego la cierras mas abajo.

con.Open()

resul = Val(cmd.ExecuteScalar()) 'Aqui ejecutas en comando(procedimient

con.Close()

'Aqui validas de acuerdo si te devuelve alguna valor.

 

If resul > 0 Then

Frm_Menu.Show()

Frm_Menu.ToolStripStatusLabel6.Text = usuario

 

Me.Close()

 

Else

'De lo contrario muestra un Mensaje.

MessageBox.Show(

"Usuario Invalido, Intente nuevamente...", "AUTENTICACION", MessageBoxButtons.OK, MessageBoxIcon.Error)

 

End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Espero que te Alla servido de algo.

* Para este ejemplo use SQL server pero creo que te funcionará para ACCESS 2007.

Buena Suerte..XD