Buenos dias amigos.

[emma93]

Amigos, una pregunta, alguien me da una mano con un formulario de login y una base de datos que posee nombre de usuario y contraseña?

Lo que quiero hacer es un login, donde al poner nombre de usuario y contraseña, y al apretar en el boton, compruebe si los datos se encuentran en la bd, y si son verdaderos pasar a otro formulario, si no son verdaderos sacar un msgbox diciendo que No se encuentran los datos blabla.

Alguien me da una mano por favor?, porque la mayoria de los links que busque no me funcan :(

Tengo access 2003 y el Visual basic es .net

Saludos.-

[OSC99]

Hola amigo para realizar la operacion que deseas hay muchisimas formas tanta como programadores aun asi te expongo una sencillita segun mi paracer

'en el boton aceptar
Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click

Dim nombre As String

Try

Dim dr As OleDb.OleDbDataReader
Me.cnxBD.Open() 'el nombre de tu string de conexion
dr = Me.CmdSelect.ExecuteReader

NUEVO = True 'donde nuevo es un modulo

While dr.Read
If dr.Item("Usuario") = Me.txtusuario.Text And dr.Item("Contrasena") = Me.txtcontrasena.Text Then 'donde usuario y contrasena son los campos en tu bd como se llamen'
ID = dr.Item("ID")' donde id es otro modulo
NUEVO = False
nombre = dr.Item("Nombre")


Exit While
End If
End While
Me.cnxBD.Close()
Catch excepcion As OleDb.OleDbException
MessageBox.Show("Error:Base de datos no encontrada", "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Error) 'control de errores
Me.cnxBD.Close()
Catch excepcion As Exception
MessageBox.Show("Error: " & excepcion.ToString, "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.cnxBD.Close()
Finally
Me.txtusuario.Text = String.Empty
Me.txtcontrasena.Text = String.Empty
Me.txtusuario.Focus()
End Try

If NUEVO = False Then
MessageBox.Show("Bienvenido/a " & nombre, "Bienvenid@", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

Else
If contador > 1 Then
contador = contador - 1
MessageBox.Show("Ha introducido mal el usuario o contraseña vuelva a intentarlo, le quedan de intentos:" & contador, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) 'con un contador controlamos que si a la tercera no introduce bien se cierre la aplicacion'
Me.txtusuario.Focus()
Else
MessageBox.Show("Ha excedido el número de intentos, la aplicación se cerrará", "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Me.Close()

End If
End If


End Sub

[Sorochita]

Hola yo tengo el mismo problema solo que con sql 2000 y visual basic 2005 alguien podría ayudarme, lo que quiero hacer es un login, donde al poner nombre de usuario y contraseña, y al apretar en el boton, compruebe si los datos se encuentran en la bd, y si son verdaderos pasar a otro formulario. Gracias