hola,estoy trabajando con un sistema pequeño para una materia en la escuela, necesito un login que verifique los datos en una base de datos de access, he trabajado con vb 6 pero es la primera vez que trabajo con elVB.Net 2008
ayudemne porfa
hola,estoy trabajando con un sistema pequeño para una materia en la escuela, necesito un login que verifique los datos en una base de datos de access, he trabajado con vb 6 pero es la primera vez que trabajo con elVB.Net 2008
ayudemne porfa
Hola, es winforms o webforms?
es un winforms
Ok, pone 2 textbox
A uno lo vamos a llamar txtUser y al otro txtPass.
AtxtPass setea su propiedad PasswordChar con un asterisco (*)
Y agrega un boton que vamos a llmar btnLogin.
El codigo lo hacemos bien rustico, despues lo podes separar en clases, validad la password, que los campos no sean vacios, etc.
Ahora cuando haces click en el boton hace lo siguiente.
Private sub btnLogin_Click(....) Handles btnLogin.click
dim conexion As New System.Data.OleDb.OleDbConnection
dim comando [color=#0000ff size=2]As[/color] [color=#0000ff size=2]New[/color] System.Data.OleDb.OleDbCommand
dim cadena as string=[color=#800000 size=2]"Provider= microsoft.jet.oledb.4.0;Data Source=c:\MiBase.mdb[color=#800000 size=2]"[/color][/color]
[color=#800000 size=2][/color]
[color=#800000 size=2]conexion.connectionstring=cadena[/color]
[color=#800000 size=2]conexion.open()[/color]
[color=#800000 size=2]Comando.commandText="Select * from TablaUsuario Where NombreUsuario=' " & txtUser.text & " ' AND PasswordUsuario=' " & txtPass.text & " ';"[/color]
[color=#800000 size=2][/color]
[color=#800000 size=2]comando.connection= conexion[/color]
[color=#800000 size=2]if comando.ExecuteScalar() >= 1 then[/color]
msgbox "Se logueo"
else
msgbox"Usuario o clave incorrecta"
end sub
----------
Fiajte bien el path de la bd, el nombde de los campos y tablas y por ultimo que hacer si la persona se loguea.
Como veraz no varia en casi nada de lo que venias haciendo en vb6.
Si necesitas mas ayuda pidela,
Saludos
Muchisimas gracias, en verdad me ha servido, Saludos
![]()
De nada
Cuando quieras.
hola fpela,
he intentado hacer este mismo codigo pero me genera un error en esta linea:
If comando.ExecuteScalar() >= 1 Then
y dice que los tipos no coinciden.Me puedes ayudar,te lo agradeceria mucho.