If user names are unique you can select them from the table.
If your user passwords are not encrypted, and are plain text (I HOPE AND PRAY that this is only a exercise!) Then you can just check the password field.
Private Function Autherized(ByVal sUser As String, ByVal sPass As String) As Boolean Try 'Get your real connection string @ www.connectionstrings.com Dim da As New OleDbDataAdapter("SELECT * FROM tblUsers WHERE User='" & sUser & "'", New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;")) Dim ds As New DataSet da.Fill(ds, "pw") If Not IsNothing(ds.Tables("pw")) And ds.Tables("pw").Rows.Count > 0 Then If ds.Tables("pw").Rows(0)("Password") = sPass Then Return True Else Return False End If Else Return False End If Catch ex As Exception MsgBox(ex.ToString) Return False End Try End Function
Now just call the function when the user presses the login button:
Private Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click Try If Autherized(txtUser.text,txtPass.Text) Then 'Both are text boxes. 'Do work for autherized users. Else MsgBox("You are not autherized to access this application!") End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub
Edited 3 Years Ago by Begginnerdev
Hi, as I was told that my code doesn’t scale well at all, I thought perhaps I’d try to get a better understanding of interfaces/abstract classes and classes and the relationship between them.
I don’t want at this stage work on a big separate project as I've already got plenty ...
OK, so HostGator for some reason no longer allows gcc/g++ access unless you have a Designated Server account, which is a lot of money to spend just to compile my "Hello World" program. Thus I figured I'd compile at home, then upload. Program is your regular old bare-bones Hello World ...
Hi. I have a form with list box : lst_product, datagridview : grd_order and button: btn_addline. lst_product has a list of product ids selected from database (MS Acess 2013) , grd_order is by default empty except for 2 headers and btn_addline adds rows to grd_order.
Private Sub btn_addline_Click(ByVal ...