Pregunta:
Como autorizar usuario por password usando ADO?
Respuesta:
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):
Cita: Private cn1 As ADODB.Connection
Private rsusuario As ADODB.Recordset
Private strconn1 As String
Private Sub Form_Initialize()
strconn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
Set cn1 = New ADODB.Connection
cn1.ConnectionString = strconn1
cn1.CursorLocation = adUseClient
cn1.Open
Set rsusuario = New ADODB.Recordset
rsusuario.Open "usuarios", cn1, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Command1_Click()
On Error GoTo usermal
rsusuario.Find "usuario =" & "'" & Text1.Text & "'"
If rsusuario!password = Text2.Text Then
Form1.Show
vendedor = Text1.Text
Unload Me
Exit Sub
End If
usermal:
MsgBox "El usuario o el password es incorrecto"
End
End Sub
Espero les sirva
