comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Autentificar Usuario y password (con referencia a bd)

  • 0 Respuestas
  • 1079 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5320
  • Actividad:
    41.67%
  • Reputación 29
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:59:02 pm »
Creamos un formulario con un text1, text2 y un cmd y pegamos este código (obviamente con la referencia a ADO y la base de datos ya armada):

Código: Visual Basic
  1. Private cn1 As ADODB.Connection
  2. Private rsusuario As ADODB.Recordset
  3. Private strconn1 As String
  4.  
  5. Private Sub Form_Initialize()
  6.  
  7. strconn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
  8. Set cn1 = New ADODB.Connection
  9.  
  10. cn1.ConnectionString = strconn1
  11. cn1.CursorLocation = adUseClient
  12. cn1.Open
  13.  
  14. Set rsusuario = New ADODB.Recordset
  15. rsusuario.Open "usuarios", cn1, adOpenDynamic, adLockOptimistic
  16. End Sub
  17.  
  18. Private Sub Command1_Click()
  19. On Error GoTo usermal
  20. rsusuario.Find "usuario =" & "'" & Text1.Text & "'"
  21. If rsusuario!password = Text2.Text Then
  22. Form1.Show
  23. vendedor = Text1.Text
  24. Unload Me
  25. Exit Sub
  26. End If
  27.  
  28. usermal:
  29. MsgBox "El usuario o el password es incorrecto"
  30. End
  31.  
  32. End Sub
« Última modificación: Mayo 12, 2014, 03:20:00 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



[VB][Undocumented] LoadUserTile() - Obtener la imagen del usuario

Iniciado por Karcrack

Respuestas: 5
Vistas: 2933
Último mensaje Junio 20, 2013, 04:06:26 pm
por Danyfirex