Tipo , Usuario , Clave
donde Tipo es el indicador si es un Administrador o Usuario simple. esto para darle algunos privilegios ... lo que hize es algo simple:
Código
Dim cn As New ADODB.Connection Dim Rst As New Recordset Dim i As Integer Dim ClaveCorrecta As Boolean Private Sub Form_Load() cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "data.mdb" cn.Open End Sub Private Sub Button1_Click() If TxtUsuario.Text <> Empty And TxtClave.Text <> Empty Then Rst.Open "SELECT Usuario,Clave FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch If Rst.RecordCount Then For i = 1 To Rst.RecordCount If StrComp(Rst(0).Value, TxtUsuario) = 0 Then If StrComp(Rst(1).Value, TxtClave) = 0 Then ClaveCorrecta = True Exit For End If End If Rst.MoveNext Next i End If If ClaveCorrecta Then Unload Me Principal.Show Else MsgBox "Ha escrito incorrectamente el nombre de usuario o la clave", vbExclamation, "Atención" Rst.Close Set Rst = Nothing End If Else MsgBox "Debe escribir en nombre de usuario y la clave", vbExclamation, "Atención" End If End Sub
como es multiusuario... solo habia hecho esto pero sin tener en cuenta lo de tipo, y toy dandole vueltas para poder manejar todo eso... y poder mostrarlo en una etiketa algo asi :
Código
Principal.Tipo.Caption
Alguna sugerencia de como lograrlo.
Saludos.