angelina
31 de Mayo del 2005

hola saben necesito detectar un usuario y el pass si son correcto para eso los tengo que buscar en una bd yo tengo el metodo de que me reconozca solamente la clave ,, pero el user y pass no si alguien tiene el codigo me lo puede facilitar porfavor

krizall
31 de Mayo del 2005

hola angelina, podrias poner el codigo que utilizas, posiblemente solo sea cuestion de agregar unas pequeñas instrucciones para que funcione.

angelina
31 de Mayo del 2005

es que el tipico de busqueda indexada

Luis
31 de Mayo del 2005

este es un ejmeploq ue ya tenia solo leelo y modificalo ok.
'formulario 1
Private Sub TxtPassword_Change()
TxtPassword.PasswordChar = "*"
TxtPassword.MaxLength = 6
End Sub

en laparte de general declarar las siguieste variables

pero antes te vas al menu Proyect, Refrences(refrencias) y escojes Microsoft ActiveX data Objetcs 2.7 library (aqui escoges la mas actual) y le das aceptar

Public cn As New ADODB.Connection
Public rs As ADODB.Recordset
Public user As String
Public pass As String
Option Explicit

ahora aremos la conexion a tu base de datos para poder comparar aver si existe el usuario
private sub form_load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=direccion de tu base de datos;Persist Security Info=False"
cn.Open
'ocultaremos la etiquera de reghistro
lblregistro.visible=false
end sub

ahora programamos en el boton Aceptar va!

Private Sub CmdAceptar_Click()
user = TxtUsername.Text
pass = TxtPassword.Text
Dim rs As New ADODB.Recordset
Set rs = Nothing
rs.Open "select Username, Password from Usuarios(nombre de tu tabla) where Username= '" & user & "'", cn, adOpenDynamic, adLockReadOnly
If rs.EOF = True Then
MsgBox "Este usuario no existe", vbExclamation, "Mensaje del Sistema"
MsgBox "Registrate por favor", vbExclamation, "Mensaje del Sistema"

TxtUserName = ""
TxtPassword = ""
TxtUserName.SetFocus
'como no existe nos mostrara en el formulario al eriqueta que dice registrate qui
lblregistro.visible=true
Else
If rs.Fields("Password").Value = pass Then
TxtUserName = ""
TxtPassword = ""
MsgBox "Los datos son correctos." + vbNewLine + "Bienvenido al Sistema", vbInformation, "Mensaje del Sistema"
end
'aqui yamas a otrso formularios en caso de que sean correctos
Else
MsgBox "La contraseña es incorrecta.", vbExclamation, "Mensaje del Sistema"
TxtPassword = ""
TxtPassword.SetFocus
End If
End If
End Sub
encaso de no existir dicho usuarioi se puede agregar y por eso esta el otro formulario ok.

ahora el codido ne la parte general declaramos las soiguientes variables

Public cnn As New ADODB.Connection
Option Explicit

despues en el form_load lo siguiente

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=direccion de tu base de datos;Persist Security Info=False"
cnn.Open

ahora en el boton aceptar lo siguiente
'aqui loq ue aremos es un query para realizar y poder guardar la informacion
NOTA: esto('" & TxtNombre & "','" & TxtApellido & "','" & TxtDireccion & "','" & TxtUsername & "','" & TxtPassword & "') son los nombres de tus cajas de texto y las tienes que poenr en orden seguna como estan ordenados tus campos en la base de datos ok.

cnn.Execute ("Insert into Usuarios(nombre de tus tablas) values ('" & TxtNombre & "','" & TxtApellido & "','" & TxtDireccion & "','" & TxtUsername & "','" & TxtPassword & "')")
TxtNombre = ""
TxtApellido = ""
TxtDireccion = ""
TxtUsername = ""
TxtPassword = ""
Form1.Show
Form2.Hide

Private Sub TxtPassword_Change()
TxtPassword.PasswordChar = "*"
TxtPassword.MaxLength = 6
End Sub

espero te funcione esto
GOOD LOOK!!!
att luis