Estoy usando este pequeño script para el ingreso a un menu en dicho programa.
El problema esta es en que me pidieron, tener varios niveles de acceso, usuario estandar y usuario admin.
En la base de datos agregue un campo llamado tipo, donde los valores son numerico, 1=admin y 2=estandar
Quiero saber como construir un condicional para que cuando el user sea admin cargue el form2 y cuando sea estandar el form3. Internamente debe verificar que tipo de numero hay en el campo Tipo.
Saludos
Código [Seleccionar]
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open
' Look up the user name/password.
statement = "SELECT COUNT (*) FROM Users WHERE " & _
"UserName='" & Replace(txtUserName.Text, "'", "''") & "' AND " & _
"Password='" & Replace(txtPassword.Text, "'", "''") & "'"
Set rs = conn.Execute(statement)
' See if we got anything.
If CLng(rs.Fields(0)) < 1 Then
' There is no match.
' Do not allow the login.
Unload Me
MsgBox "Invalid user name/password."
Else
' There is a match.
' Display the program's main form.
Form1.Show
Unload Me
End If
rs.Close
conn.Close
El problema esta es en que me pidieron, tener varios niveles de acceso, usuario estandar y usuario admin.
En la base de datos agregue un campo llamado tipo, donde los valores son numerico, 1=admin y 2=estandar
Quiero saber como construir un condicional para que cuando el user sea admin cargue el form2 y cuando sea estandar el form3. Internamente debe verificar que tipo de numero hay en el campo Tipo.
Saludos