hola a todos:
tengo una tarea en el cual me gustaria me ayudaran es para crea un formulario donde un cliente si es administrador puede ingresar un formulario principal con privilegios como el de crear backup y restaurar una base de datos, si no lo es puede ingresar al mismo menu pero no esas opciones, yo tengo hecho lo otro, solamente me falta ese punto, yo tengo una tabla en access llamada
tblingreso
usuario
contrasena
nivel ***
*** este nivel lo puse para que cuando se le de aceptar haga la conexion para comprovobar que ese usuario es administrador.
aqui les pongo los codigos
MODULO
Module Module1
Public objconexion As New OleDb.OleDbConnection
Public objcomando As New OleDb.OleDbCommand
Public Function abrir_base() As OleDb.OleDbConnection
Try
Dim ruta As String
Dim cnn As New OleDb.OleDbConnection
ruta = Application.StartupPath & "" & "tiendavideos.accdb" ' empieza a buscar el archivo desde la carpeta debug"
If cnn.State = 1 Then cnn.Close()
cnn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source =" & ruta & "" ' provee la informacion suficiente para abrir la base de datos
cnn.Open()
Return cnn
Catch ex As Exception
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function
End Module
Private Sub txtusuario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtusuario.KeyPress
If Not Char.IsLetterOrDigit(e.KeyChar) Then
If e.KeyChar <> Convert.ToChar(Keys.Back) Then
If e.KeyChar <> Convert.ToChar(Keys.Enter) Then
Else
If Trim(txtusuario.Text) = "" Then
MessageBox.Show("Por favor ingrese el usuario", "Usuarios")
Else
txtcontrasena.Enabled = True
txtcontrasena.Focus()
End If
End If
End If
End If
End Sub
Function Consultausuario(ByVal usuario As String, ByVal contrasena As String) As DataTable
Try
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter
objcomando.Connection = objconexion
objcomando.CommandText = "select * from tblingreso where usuario ='" & usuario & " ' and contrasena = '" & contrasena & "'"
da.SelectCommand = objcomando
da.Fill(dt)
Return dt
Catch ex As Exception
MessageBox.Show(Err.Description)
Return Nothing
End Try
End Function
Private Sub frmingreso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objconexion = abrir_base()
End Sub
Private Sub txtcontrasena_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcontrasena.KeyPress
If Not Char.IsLetterOrDigit(e.KeyChar) Then
If e.KeyChar <> Convert.ToChar(Keys.Back) Then
If e.KeyChar <> Convert.ToChar(Keys.Enter) Then
Else
If Trim(txtcontrasena.Text) = "" Then
MessageBox.Show("Por favor ingrese la contraseña", "Contraseña")
Else
btnaceptar.Enabled = True
btnaceptar.Focus()
End If
End If
End If
End If
End Sub
como seria el codigo para programar el boton aceptar y que me valide que si es nivel 1 desde access tenga esos privilegios?
gracias
