Visual Basic - Navegar en access desde VB 2010

Life is soft - evento anual de software empresarial
   
Vista:

Navegar en access desde VB 2010

Publicado por vtscarlos (1 intervención) el 23/06/2012 03:33:11
Hola, soy nuevo en esto del VB , y hoy he estado aprendiendo a enlazar la base de datos access 2007 con el visual basic 2010, el problema esque, quiero hacer un formulario de logeo, pero no sé, como hacer el if, en caso de que sea así.

Como sería¿? llamemos contraseñareal , al campo de contraseña del access

if txtcontraseña.text = contraseñareal , como haría para que contraseña real, fuese el campo de la base de datos donde está la contraseña?
y lo mismo con el nombre, porque al salirme arriba el ADO, para que cambie de usuario en usuario tendría que ir cambiando el ''contador de usuarios p or decirlo asi'' y me gustaría ponerlo para que:
Ponga dos text box
y ponga , sin tener que ir cambiando en la barra de arriba el número de registro
que únicamente ponga, nombre y contraseña y el visual basic busque automaticamente en todos los registros de la base de datos y si coinciden, ya inicie sesion
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

Navegar en access desde VB 2010

Publicado por Danilo (1 intervención) el 12/01/2013 17:18:39
Te recomiendo que para la contraseña no la enlases a access...sino guardara en un archivo .txt, asi sera mas facil guardar la contraseña e incluso cambiarla desde la aplicacion...te dejo un codigo que hice:

esto lo pegas en el boton de aceptar que llevara para ingresar....

Dim TodoTexto As String = "", LineaDeTexto As String = ""
Dim x As Integer = 1


FileOpen(1, "c:\nombre del archivo.txt", OpenMode.Input)
Do Until EOF(1)
LineaDeTexto = LineInput(1) 'Lee la línea entera
TodoTexto = TodoTexto & LineaDeTexto
x = x + 1 'Incrementa la variable
Loop
FileClose(1) 'cierra el archivo

contra = TodoTexto

If ((TextBox1.Text = "235640") Or (TextBox1.Text = contra)) Then

MsgBox("Bienvenido contraseña aceptada", MsgBoxStyle.Exclamation, "aceptada")
Men.Show()
End If

If (TextBox1.Text <> "235640") Then
If (TextBox1.Text <> contra) Then
MsgBox("Contraseña incorrecta", MsgBoxStyle.Critical, "Error")
TextBox1.Text = ""
End If
End If


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