elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Comparar usuario y contraseña con la base de datos. Ayuda
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Comparar usuario y contraseña con la base de datos. Ayuda  (Leído 11,188 veces)
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Comparar usuario y contraseña con la base de datos. Ayuda
« en: 29 Enero 2008, 00:44 am »

Se que es facil... pero ando perdido y a estas horas pues... exo polvo.
Aver si alguien me puede decir... o completar este codigo.
Código:
   
Private Sub Button1_Click()
       
         If TextBox1 = Me.database1DataSet.table1 Then

        End If
   
End Sub
         

y... me perdi.


En línea

70N1
ranslsad


Desconectado Desconectado

Mensajes: 492


Dim Ranslsad as String * :P - Que Vicio!


Ver Perfil WWW
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #1 en: 29 Enero 2008, 12:48 pm »

Creo que deberias de leer un poco mas sobre las DB y eso..
yo no se usarlas, pero se que no es dificil, leete algo rapidin :D

Salu2

Ranslsad


En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #2 en: 29 Enero 2008, 19:12 pm »

Citar
"Comparar usuario y contraseña con la base de datos"



Este ejemplo es muy básico, en el form, un ComboBox y un TextBox.
El combo cargará desde la BD los usuarios registrados en la tabla "Usuario_Sistema"
En el TextBox se introducirá el password que posteriormente será verificado.

Código
  1. Option Explicit
  2. Public Conex As String 'Almacenará datos de conexión
  3. Public RS As ADODB.Recordset 'Recordset
  4.  
  5. Private Sub Form_Load()
  6.    Set RS = New ADODB.Recordset
  7.  
  8.    'Cadena de conexión
  9.    Conex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  10.    "Data Source=" & App.Path & "\BD.mdb;"
  11.  
  12.    'Abrimos la tabla "Usuario_Sistema" con el recordset
  13.    RS.Open "Usuario_Sistema", Conex
  14.        Combo1.Clear
  15.        While Not RS.EOF
  16.            'Añadimos el Id y el nombre de usuario al combo1
  17.            Combo1.AddItem RS!Id_Usuario_Sistema & " - " & RS!Nombre_Usuario
  18.            RS.MoveNext
  19.        Wend
  20.    RS.Close
  21. End Sub
  22.  
  23. Private Sub CmdAceptar_Click()
  24. Dim Id As Byte
  25.  
  26.    'Abrimos la tabla
  27.    RS.Open "Usuario_Sistema", Conex, adOpenDynamic, adLockOptimistic
  28.        RS.MoveFirst 'Nos movemos al primer registro
  29.        'Extraemos el ID del usuario del combo1
  30.        Id = Mid(Combo1.Text, 1, (InStr(Combo1.Text, "-")) - 2)
  31.  
  32.        'Buscamos el registro correspondiente, usando el ID que conseguimos
  33.        RS.Find "Id_Usuario_Sistema = " & Id
  34.  
  35.        'Comparamos el campo contraseña con el password introducido en el textbox
  36.        If RS!Contraseña_Usuario = Text1.Text Then
  37.            MsgBox "contraseña correcta"
  38.        Else
  39.            MsgBox "La contraseña es incorrecta..."
  40.        End If
  41.    RS.Close
  42. End Sub

Como el combo1 solo carga los registros existentes, es obvio que deberas tener un modulo donde se administren los usuarios del sistema, porque este es solo para limitar el acceso a aquellos que estan registrados.

El Id del usuario no es necesario cargarlo en el mismo combo1 junto con el nombre, podes tener un combo2, donde solo se agreguen los Id de cada registro de la tabla y a la hora de necesitar el id para buscar el registro y hacer comparaciones con el password, usar el contenido del mismo.

Medio enrredadito, ¿verdad? :rolleyes: si no entendes algo, ¡avisas!

Espero os sea de ayuda, ¡S4lu2!
« Última modificación: 20 Abril 2008, 19:27 pm por cΔssiΔnі » En línea

eszzes

Desconectado Desconectado

Mensajes: 32


Ver Perfil
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #3 en: 28 Agosto 2008, 06:27 am »

Citar
"Comparar usuario y contraseña con la base de datos"



Este ejemplo es muy básico, en el form, un ComboBox y un TextBox.
El combo cargará desde la BD los usuarios registrados en la tabla "Usuario_Sistema"
En el TextBox se introducirá el password que posteriormente será verificado.

Código
  1. Option Explicit
  2. Public Conex As String 'Almacenará datos de conexión
  3. Public RS As ADODB.Recordset 'Recordset
  4.  
  5. Private Sub Form_Load()
  6.    Set RS = New ADODB.Recordset
  7.  
  8.    'Cadena de conexión
  9.    Conex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  10.    "Data Source=" & App.Path & "\BD.mdb;"
  11.  
  12.    'Abrimos la tabla "Usuario_Sistema" con el recordset
  13.    RS.Open "Usuario_Sistema", Conex
  14.        Combo1.Clear
  15.        While Not RS.EOF
  16.            'Añadimos el Id y el nombre de usuario al combo1
  17.            Combo1.AddItem RS!Id_Usuario_Sistema & " - " & RS!Nombre_Usuario
  18.            RS.MoveNext
  19.        Wend
  20.    RS.Close
  21. End Sub
  22.  
  23. Private Sub CmdAceptar_Click()
  24. Dim Id As Byte
  25.  
  26.    'Abrimos la tabla
  27.    RS.Open "Usuario_Sistema", Conex, adOpenDynamic, adLockOptimistic
  28.        RS.MoveFirst 'Nos movemos al primer registro
  29.        'Extraemos el ID del usuario del combo1
  30.        Id = Mid(Combo1.Text, 1, (InStr(Combo1.Text, "-")) - 2)
  31.  
  32.        'Buscamos el registro correspondiente, usando el ID que conseguimos
  33.        RS.Find "Id_Usuario_Sistema = " & Id
  34.  
  35.        'Comparamos el campo contraseña con el password introducido en el textbox
  36.        If RS!Contraseña_Usuario = Text1.Text Then
  37.            MsgBox "contraseña correcta"
  38.        Else
  39.            MsgBox "La contraseña es incorrecta..."
  40.        End If
  41.    RS.Close
  42. End Sub

Como el combo1 solo carga los registros existentes, es obvio que deberas tener un modulo donde se administren los usuarios del sistema, porque este es solo para limitar el acceso a aquellos que estan registrados.

El Id del usuario no es necesario cargarlo en el mismo combo1 junto con el nombre, podes tener un combo2, donde solo se agreguen los Id de cada registro de la tabla y a la hora de necesitar el id para buscar el registro y hacer comparaciones con el password, usar el contenido del mismo.

Medio enrredadito, ¿verdad? :rolleyes: si no entendes algo, ¡avisas!

Espero os sea de ayuda, ¡S4lu2!


disculpa q agarre este tema tan tarde es q no encuentro como hacer para cargar desde una base de datos un registro   hacia una caja de texto algo as com en el form load me podrian decir mas o menos aca recien dieron un ejemplo de cargarlo en un combo box pero parece q es mas complicado
por favor respode
En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #4 en: 28 Agosto 2008, 06:46 am »

a bueno ya te deje un ejemplo y... creo que no hacia falta citar todo eso   :P

uy eso ya es viejito para mi, hasta maneras más directas hay de hacer las consultas, lo que pasa por no saber nada de sql para el momento  :rolleyes:
« Última modificación: 28 Agosto 2008, 06:48 am por cΔssiΔnі » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #5 en: 28 Agosto 2008, 13:55 pm »

Cita de: eszzes
q no encuentro como hacer para cargar desde una base de datos un registro   hacia una caja de texto algo as com en el form load me podrian decir mas o menos aca recien dieron un ejemplo de cargarlo en un combo box pero parece q es mas complicado

leete un manual de ADO y SQL y problema solucionado...
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Comparar usuario y contraseña con la base de datos. Ayuda
« Respuesta #6 en: 28 Agosto 2008, 15:27 pm »

Código:

Option Explicit
Public Conex As String 'Almacenará datos de conexión
Public RS As ADODB.Recordset 'Recordset

Private Sub Form_Load()   
Set RS = New ADODB.Recordset

    'Cadena de conexión
    Conex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _    "Data Source=" & App.Path & "\BD.mdb;"     

'Abrimos la tabla "Usuario_Sistema" con el recordset   

RS.Open "Usuario_Sistema", Conex       

   Combo1.Clear 
     
   While Not RS.EOF 

   'Añadimos el Id y el nombre de usuario al combo1       
   Combo1.AddItem RS!Id_Usuario_Sistema & " - " & RS!Nombre_Usuario0

   RS.MoveNext       

   Wend   

RS.Close
End Sub



Usando el ejemplo de arriba, alli te muestro como cargar datos en un combo automaticamente al mostrarse el form. No es dificil. Y como dice seba, leete un tuto de BD.
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Cómo se une un usuario y una base de datos?
Bases de Datos
dimitrix 2 1,476 Último mensaje 2 Abril 2012, 19:18 pm
por dimitrix
[AYUDA] VB.NET BUSCAR EN UN DIRECTORIO Y COMPARAR EL CHEKSUM MD5
.NET (C#, VB.NET, ASP)
DragonsWP 1 2,391 Último mensaje 20 Julio 2013, 02:17 am
por Eleкtro
Ayuda con usuario y contraseña en linux!
Hacking Básico
hettor 3 1,972 Último mensaje 8 Agosto 2013, 19:18 pm
por OLM
Extracción de datos de contraseña de usuario con Mimikatz DCSync
Noticias
r32 0 971 Último mensaje 2 Julio 2018, 23:22 pm
por r32
base de datos con un usuario y privilegio USAGE?
Bugs y Exploits
jsanchez7 1 593 Último mensaje 8 Noviembre 2018, 14:26 pm
por Shell Root
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines