Manuel Acosta Aceves
24 de Mayo del 2004

Alguien me puede ayudar con un ejemplo de usuario y contraseña lo que quiero es que antes de iniciar mi programa me pida estos requisitos, con alguna opcion de cambiar contraseña por si las dudas gracias

Manuel Acosta Aceves
24 de Mayo del 2004

Alguien me puede ayudar..por favor,,,,se los agradeceria mucho

jfkjunior
24 de Mayo del 2004

no se como estas accediendo tu a la base de datos yo uso esta rutina:

Private Sub Com_Aceptar_Click()
Dim rsbuscar As New ADODB.Recordset

If (txt_nombre.Text = "") Or (txt_clave.Text = "") Then
MsgBox ("Se Detectó al Menos un campo vacío, Por Favor Rellene los Campos"), vbCritical
If txt_nombre.Text = "" Then
txt_nombre.SetFocus
Else
txt_clave.SetFocus
End If
Else

rsbuscar.Open "select* from Acceso where ((LOGIN)=\'" & txt_nombre.Text & "\') AND ((CLAVE)=\'" & txt_clave.Text & "\')", "DSN=ALMACEN"

If rsbuscar.EOF Then

MsgBox ("¡No Se Encontró Ninguna Coincidencia para los Datos Suministrados, Por favor Intente de Nuevo!"), vbInformation Or vbOKOnly, "Información"
txt_nombre.Text = ""
txt_clave.Text = ""
txt_nombre.SetFocus
a = a + 1
If (a = 3) Then
MsgBox ("¡Sobrepasó el Número de Intentos. El Sistema se Cerrara!"), vbCritical
End
End If
Else

Login.Visible = False

End If
End If

Manuel Acosta Aceves
24 de Mayo del 2004

Gracias pero no la quiero para mi base de datos o algo relacionado sino la quiero para comenzar cualquier programa X... Solo por seguridad claro con la opcion de que puedas cambiar contraseña por si alguien te la ve o algo parecido

Clara
24 de Mayo del 2004

A mi si me sirve el codigo porque tengo que relacionarlo a una base de datos de acces

No entiendo muy bien el codio, la rutina mas o menos

mira mi tacla se llama usuarios y mis campos usuario y contraseña

rsbuscar.Open "select* from Acceso where ((LOGIN)=\'" & txt_nombre.Text & "\') AND ((CLAVE)=\'" & txt_clave.Text & "\')", "DSN=ALMACEN"

debo de cambiar algo en esta parte de eso estoy segura. Que cambio?

si puedes ayudarme te lo agradecere