Visual Basic.NET - Login conectado a Base de datos en Access

   
Vista:

Login conectado a Base de datos en Access

Publicado por Juan (5 intervenciones) el 16/04/2015 21:58:57
Buenas tardes a todos los programadores:
Les comento lo siguiente, no tengo muchos conocimientos de visual.
Necesito hacer un programa de Compras, ventas, pagos y cobros para dos materias de mi instituto.
Al comenzarlo en mi base de datos tengo una tabla con los usuarios, que corresponde a los vendedores para entrar al sistema depende el modulo que les corresponda.
Al iniciar el sistema hago que la primera pantalla sea la del login, si el usuario o la contraseña son incorrectos me dara el mensaje de error que el usuario o la contraseña son incorrectos y en el caso de ser correctos ingresa al indice del sistema para seleccionar la operacion.
El codigo que hice me valida si el usuario es correcto o no, pero la contraseña no la puedo validar.
Podrian ayudarme con algun codigo que me sea util?

Desde ya les agradezco mucho....
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

Login conectado a Base de datos en Access

Publicado por Mauricio (17 intervenciones) el 22/04/2015 19:27:47
Juan,
tengo algo como esto que consulta la db access y valida si la password es correcta y te envia al form que tu quieras

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim cadenaConexion As String
cadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb"
Dim miConexion As OleDbConnection
miConexion = New OleDbConnection(cadenaConexion)
 
Dim dt As OleDbDataAdapter
dt = New OleDbDataAdapter
 
dt.SelectCommand = New OleDbCommand("SELECT * FROM usuarios", miConexion)
 
Dim usuariodt As DataTable
usuariodt = New DataTable
 
dt.Fill(usuariodt)
 
 
 
Dim clave As String
 
Dim i As Short
i = CmbUsuario.SelectedIndex
Dim fila As DataRow
fila = usuariodt.Rows(i)
clave = fila("password").ToString()
acceso = fila("acceso").ToString()
 
If TxtPassword.Text = "" Then
    MessageBox.Show("Debe ingresar contraseña")
 
Else
 
    If TxtPassword.Text.Trim().Equals(clave) Then
 
        MessageBox.Show("bienvenido usuario : " + CmbUsuario.Text)
 
        user = CmbUsuario.Text
        FrmMain.Show()
        Me.Hide()
        TxtPassword.Text = ""
 
 
    Else
        MessageBox.Show("Perdon la clave es incorrecta")
    End If
 
End If
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

Login conectado a Base de datos en Access

Publicado por Jaime (1 intervención) el 30/04/2015 09:04:50
Buenos días:

Muy buen código el de Mauricio. Me registré en esta web tan buena hace unos días y hoy es la primera vez que escribo. Con permiso de Mauricio he copiado el código para usarlo. Estoy haciendo una aplicación en VS 2005 (dentro de unos días pasaré a VS2013) y también estoy usando Access de base de datos y el control de usuarios es muy importante, en mi caso cada usuario pertenece a un grupo con un código numérico asociado, en función del grupo al que pertenecen pueden hacer determinadas cosas.

Un saludo a todos.
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

Login conectado a Base de datos en Access

Publicado por Juan (5 intervenciones) el 30/04/2015 15:31:37
Todavía no tuve el agrado de probar el código ya que el trabajo me esta comiendo.
Si lo leí y seguro me servirá de mucho.
Recién es el comienzo del programa, falta lo mas difícil todavía pero vamos de a poco.

Te agradezco mucho por comentar y darme una buena mano.

Saludos
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