Hacer nobre de usuario y contraseña

[crucifijo]

Hola amigos ke tal, fijense ke he hecho una base de datos en acceess 2000 y en una tabla he puesto lo siguiente:

Y mi base de datos se encuentra en c:\base\academia\control.mdb
Mi base de datos se llama Control.mdb

Nombre de la tabla: Usuarios
Clave del usuario: IdUsuario
Nombre del usuario: Usuario


Ahora en visual basic he puesto un formulario con 2 cajas de texto donde una la quiero para la clave del usuario y la otra para el nombre del usuario y tengo 2 botones uno de aceptar y otro de salir.

En el boton de salir solo tengo el codigo de "end" para salirme de la aplicacion.

¿como le puedo hacer para que en el boton de aceptar me pueda conectar a la base de datos y que pueda validar los campos anteriores y si si son correctos que me paso a mi otro formulario y si no que me mande un mensaje de error ose crear un nombre de usuario y contraseña?

Les agradeceria muchismo su ayuda

[jrp01]

solo conectate a la base de datos, luego pones la pantalla de sesion, cuando pregunte por usuario y contraseña y presione aceptar que haga una consulta a la base de datos y verifique si existe el usuario y si es asi que revise el password esto lo puedes hacer con instrucciones SQL por ejemplo hacer un count si regresa 1 es que existe el usuario y ahora hace otro que seleciones la contraseña asi: select pass from usuarios where usuario=tu_text, y comparas el resultado con el depassword que tecleo

Código:

if rs(0)=tu_pass then
  muestras la ventana principal
else
  msgbox "Password incorrecto"
endif

[hernanmdq]

Tu pregunta parece de alguien muy desorientado.
Aqui encontraras un monton de codigo, bajate alguno de un sistema que podras ver ejemplos de ese codigo que necesitas.

Mygnet.

Salu2.

[piojoman]

Lo unico que puedo decirte es que si recien comenzas empieces por Access y no por MySQL que es mas potente pero mas jodido, además para access (DAO) VB posee el control data que te permite comunicarte de una forma muy sencilla y casi sin código.
Ahora, para las contraseñas, te digo que cualquiera que entre a la base de datos podrá averiguar los password y sería un problema, se podría poner contraseña a la BD (una solución fácil de implementar, pero no tanto de manejar), la manera ideal y segura sería declarar los campos de la BD correspondiente a la Contraseña como Número (Longint o Single). En la parte del codigo realizar algun algoritmo para la incriptacion, es muy fácil hacer uno sencillo: EJ.

'----------------------------------------------------------------------------------
'-- Lo que hacemos es convertir letra por letra en números de la tabla de valores
'-- de Windows y le restamos a ese número 50 unidades para que queden todos entre
'-- valores de dos cifras, cuando descifremos leemos los numero de a dos y le
'-- sumamos 50 unidades y convertimos a ese numero en letra
'----------------------------------------------------------------------------------
Dim Cadena As String, Posicion As Byte
Dim Resultado As String
Private Sub Command1_Click()
Cifrado.Caption = "" 'Vacia las cadenas
DesCifrado.Caption = "" 'Vacias las cadenas
Cadena = Text1.Text
Posicion = 1
Do While Posicion <= Len(Cadena)
Resultado = Mid(Cadena, Posicion, 1)
Cifrado.Caption = Cifrado.Caption & (AscW(Resultado) - 50)
Posicion = Posicion + 1
Loop
End Sub
Private Sub Command2_Click()
DesCifrado.Caption = "" 'Vacia las cadenas
If IsNumeric(Cifrado.Caption) Then
Cadena = Cifrado.Caption
Posicion = 1
Do While Posicion <= Len(Cadena) 'Se repite hasta la ultima letra
Resultado = Mid(Cadena, Posicion, 2) 'Lee de a dos letras
DesCifrado = DesCifrado & Chr(Resultado + 50) 'Al resultado le sumamos 50 y convertimos a letras
Posicion = Posicion + 2 'Avanzamos para leer los dos proximos numeros
Loop
End If
End Sub
------------------------------------------------------------
Se necesitan Dos Label llamados (Cifrado y descifrados) un TextBox y dos Botones CommandButton

Caundo tengas los Números Ej: 10480523 (La cant. de Num serán PAR) los guardaras en la base de datos, y luego con el metodo de DesIncriptacion(Command2) haces el metodo inverso comparandolo con los números almacenados en la BD.

Bye!!!

[piojoman]

Ahhh!!! me olvidaba por si no sabias necesitas convertir la Tabla de Access 2000 a la de Access 97, sino te traera miles de dolores de cabeza, para hacerlo tenes que ir a Herramientas --> Utilidades de la Base de Datos --> Convertir a Base de Datos --> A formato de archivo de 97...

Bye!!