Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.DialogResult = DialogResult.Cancel 'Me.Close() 'RaiseEvent LoginStatus(LoginStatusENUM.LoginFailed) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Conectando a la base de datos Dim conBase As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=E:RecuperadosSagmaSoftarcandb_arcan.mdb;Jet OLEDB:Database Password=Saga20Moal22") conBase.Close() Dim strSQL As String strSQL = "Select * from usuarios where usuario = '" & TextBox1.Text & "' and clave = '" & TextBox2.Text & "'" Dim daEmp As New OleDb.OleDbDataAdapter(strSQL, conBase) Dim dsEmp As New DataSet daEmp.Fill(dsEmp, "Log") 'Si el dataset obtuvo un registro es que si es valido el Usuario y la clave If dsEmp.Tables("Log").Rows.Count = 1 Then Me.DialogResult = DialogResult.OK Me.Close() 'Dim a As New frmmain 'a.Show() Else 'MessageBox.Show("Mensaje","titulo",System.windows.forms.MessageBosButtons.Accept) 'MessageBox.Show("DESEA ELIMINAR","IMPORTANTE", MessageBoxButtons.OKCancel, MessageBoxIcon.Error) MessageBox.Show("Usuario o contaseña no valida", "Mensaje de Error", MessageBoxButtons.OK, MessageBoxIcon.Error) TextBox1.Text = "" TextBox2.Text = "" Me.TextBox1.Focus() End If End Sub
Bueno, yo tengo un login que unicamente establece relacion con una clave y te puede dar nivel o establecer privilegios. Es es base access local.si te interesa manda mensaje.