Formulario Login

Espero te sirva este código

'Conectando a la base de datos
Dim conBase As New OleDb.OleDbConnection
("Provider=Microsoft.jet.oledb.4.0;Data Source=d:ombre
de la BD.mdb")
conBase.Close()
Dim strSQL As String
strSQL = "Select * from cuentas where usuario = '"
& txtusuario.Text & "' and contrasena = '" &
txtcontrasena.Text & "'"
Dim daEmp As New OleDb.OleDbDataAdapter(strSQL,
conBase)
Dim dsEmp As New DataSet
daEmp.Fill(dsEmp, "Log")
'Si el dataset obtuvo un registro es que si es
valido el Usuario y la clave
If dsEmp.Tables("Log").Rows.Count = 1 Then
Me.Close()
Dim a As New frmprincipal
a.Show()
Else
MessageBox.Show("Usuario o contraseña No
Valida")
txtusuario.Text = ""
txtcontrasena.Text = ""
Me.txtusuario.Focus()
End If


Mostrar la cita

Saludos compañeros, estoy aprendiendo a programar con
visual basic .net y quisieran que me ayudaran con lo
siguiente:

Estoy diseñando una aplicación de base de datos, la cual
la base de datos esta hecha en access 2003. En la base
dedatos he creado una tabla llamada usuarios donde tengo
el nick y el password del usuario.

Mi pregunta es como puedo hacer un formulario de ingresar
usuario, donde me valide el nick y el password del
usuario que esten registrados en la tabla de la base de
datos.


Saludos y gracias.


.

Gracias amigo la verdad me sirvio bastante, pero seria
bueno agregar como puedo decirle al sistema que luego de
que el usuario ingrese el nick y el password erroneo 3
veces, cierre la aplicación.

Gracias y disculpa la molestia causada.


Mostrar la cita

Espero te sirva este código

'Conectando a la base de datos
Dim conBase As New OleDb.OleDbConnection
("Provider=Microsoft.jet.oledb.4.0;Data Source=d:ombre
de la BD.mdb")
conBase.Close()
Dim strSQL As String
strSQL = "Select * from cuentas where usuario

= '"
Mostrar la cita

& txtusuario.Text & "' and contrasena = '" &
txtcontrasena.Text & "'"
Dim daEmp As New OleDb.OleDbDataAdapter(strSQL,
conBase)
Dim dsEmp As New DataSet
daEmp.Fill(dsEmp, "Log")
'Si el dataset obtuvo un registro es que si es
valido el Usuario y la clave
If dsEmp.Tables("Log").Rows.Count = 1 Then
Me.Close()
Dim a As New frmprincipal
a.Show()
Else
MessageBox.Show("Usuario o contraseña No
Valida")
txtusuario.Text = ""
txtcontrasena.Text = ""
Me.txtusuario.Focus()
End If


Mostrar la cita

Saludos compañeros, estoy aprendiendo a programar con
visual basic .net y quisieran que me ayudaran con lo
siguiente:

Estoy diseñando una aplicación de base de datos, la

cual
Mostrar la cita

Mostrar la cita

la base de datos esta hecha en access 2003. En la base
dedatos he creado una tabla llamada usuarios donde

tengo
Mostrar la cita

Mostrar la cita

el nick y el password del usuario.

Mi pregunta es como puedo hacer un formulario de

ingresar
Mostrar la cita

Mostrar la cita

usuario, donde me valide el nick y el password del
usuario que esten registrados en la tabla de la base de
datos.


Saludos y gracias.


.

.

Hola Carlos,

Una forma muy sencilla sería colocar un contador en el botón Aceptar que
cuente el número de fallos que ha cometido el usuario. Si es igual a 3 ya
podrías cerrar el programa.

Espero que te sirva.


meular.
meular{arroba}gmail{punto}com


"Carlos melendez" escribió en el mensaje
news:017c01c5c2ee$2b13cc90$
Gracias amigo la verdad me sirvio bastante, pero seria
bueno agregar como puedo decirle al sistema que luego de
que el usuario ingrese el nick y el password erroneo 3
veces, cierre la aplicación.

Gracias y disculpa la molestia causada.


Mostrar la cita

Espero te sirva este código

'Conectando a la base de datos
Dim conBase As New OleDb.OleDbConnection
("Provider=Microsoft.jet.oledb.4.0;Data Source=d:ombre
de la BD.mdb")
conBase.Close()
Dim strSQL As String
strSQL = "Select * from cuentas where usuario

= '"
Mostrar la cita

& txtusuario.Text & "' and contrasena = '" &
txtcontrasena.Text & "'"
Dim daEmp As New OleDb.OleDbDataAdapter(strSQL,
conBase)
Dim dsEmp As New DataSet
daEmp.Fill(dsEmp, "Log")
'Si el dataset obtuvo un registro es que si es
valido el Usuario y la clave
If dsEmp.Tables("Log").Rows.Count = 1 Then
Me.Close()
Dim a As New frmprincipal
a.Show()
Else
MessageBox.Show("Usuario o contraseña No
Valida")
txtusuario.Text = ""
txtcontrasena.Text = ""
Me.txtusuario.Focus()
End If


Mostrar la cita

Saludos compañeros, estoy aprendiendo a programar con
visual basic .net y quisieran que me ayudaran con lo
siguiente:

Estoy diseñando una aplicación de base de datos, la

cual
Mostrar la cita

Mostrar la cita

la base de datos esta hecha en access 2003. En la base
dedatos he creado una tabla llamada usuarios donde

tengo
Mostrar la cita

Mostrar la cita

el nick y el password del usuario.

Mi pregunta es como puedo hacer un formulario de

ingresar
Mostrar la cita

Mostrar la cita

usuario, donde me valide el nick y el password del
usuario que esten registrados en la tabla de la base de
datos.


Saludos y gracias.


.

.