Click here to Skip to main content
15,886,199 members
Please Sign up or sign in to vote.
1.00/5 (3 votes)
See more:
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click

strQuery = "SELECT A.TxUserName, A.TxFirstName, A.TxLastName, A.CodeRole, B.TxRoleDescription " &
"FROM TblUsers A " &
"LEFT JOIN LookUp_CodeRole B " &
"ON B.CodeRole = A.CodeRole " &
"WHERE A.TxUserName = '" & tbUsername.Text & "' AND A.TxPassword = '" & tbPassword.Text & "' "

Try
SelectDataFromAccessDb(strQuery)

If MsAccessDbReader.Read Then
strAppUser = MsAccessDbReader(0).ToString()
strAppUserFirstname = MsAccessDbReader(1).ToString()
strAppUserLastname = MsAccessDbReader(2).ToString()
strAppUserFullName = strAppUserLastname & ", " & strAppUserFirstname
strAppUserCodeRole = MsAccessDbReader(3).ToString()
strAppUserRoleDescription = MsAccessDbReader(4).ToString()

Me.Hide()
frmMain.Show()
CloseMsAccessDbConnection()

strQuery = "INSERT INTO TblUserHistory (TxUserName, DtLogged, TxStatus) " &
"VALUES ('" & strAppUser & "', '" & Now.ToString("yyyy-MM-dd hh:mm:ss:fff") & "', 'LOGIN') "

OpenMsAccessDbConnection()
InsertDataFromAccessDb(strQuery)

Else
MessageBox.Show("User not found or incorrect username/password! Please try again.", "INFORMATION", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
CloseMsAccessDbConnection()
Catch ex As Exception
MessageBox.Show(Err.Description, "INFORMATION", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

What I have tried:

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click

strQuery = "SELECT A.TxUserName, A.TxFirstName, A.TxLastName, A.CodeRole, B.TxRoleDescription " &
"FROM TblUsers A " &
"LEFT JOIN LookUp_CodeRole B " &
"ON B.CodeRole = A.CodeRole " &
"WHERE A.TxUserName = '" & tbUsername.Text & "' AND A.TxPassword = '" & tbPassword.Text & "' "

Try
SelectDataFromAccessDb(strQuery)

If MsAccessDbReader.Read Then
strAppUser = MsAccessDbReader(0).ToString()
strAppUserFirstname = MsAccessDbReader(1).ToString()
strAppUserLastname = MsAccessDbReader(2).ToString()
strAppUserFullName = strAppUserLastname & ", " & strAppUserFirstname
strAppUserCodeRole = MsAccessDbReader(3).ToString()
strAppUserRoleDescription = MsAccessDbReader(4).ToString()

Me.Hide()
frmMain.Show()
CloseMsAccessDbConnection()

strQuery = "INSERT INTO TblUserHistory (TxUserName, DtLogged, TxStatus) " &
"VALUES ('" & strAppUser & "', '" & Now.ToString("yyyy-MM-dd hh:mm:ss:fff") & "', 'LOGIN') "

OpenMsAccessDbConnection()
InsertDataFromAccessDb(strQuery)

Else
MessageBox.Show("User not found or incorrect username/password! Please try again.", "INFORMATION", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
CloseMsAccessDbConnection()
Catch ex As Exception
MessageBox.Show(Err.Description, "INFORMATION", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Posted
Updated 6-Feb-23 4:39am

1 solution

Don't do it like that! So little code, so many major problems ...

1) Never concatenate strings to build a SQL command. It leaves you wide open to accidental or deliberate SQL Injection attack which can destroy your entire database. Always use Parameterized queries instead.

When you concatenate strings, you cause problems because SQL receives commands like:
SQL
SELECT * FROM MyTable WHERE StreetAddress = 'Baker's Wood'
The quote the user added terminates the string as far as SQL is concerned and you get problems. But it could be worse. If I come along and type this instead: "x';DROP TABLE MyTable;--" Then SQL receives a very different command:
SQL
SELECT * FROM MyTable WHERE StreetAddress = 'x';DROP TABLE MyTable;--'
Which SQL sees as three separate commands:
SQL
SELECT * FROM MyTable WHERE StreetAddress = 'x';
A perfectly valid SELECT
SQL
DROP TABLE MyTable;
A perfectly valid "delete the table" command
SQL
--'
And everything else is a comment.
So it does: selects any matching rows, deletes the table from the DB, and ignores anything else.

So ALWAYS use parameterized queries! Or be prepared to restore your DB from backup frequently. You do take backups regularly, don't you?

And in a login screen? That's just suicidal because I don't even have to have a username to destroy your DB, or log in as you without knowing your password.

2) Never store passwords in clear text - it is a major security risk. There is some information on how to do it here: Password Storage: How to do it.[^] the code is in C#, but it's pretty obvious.

And remember: if you have any European Union users then GDPR applies and that means you need to handle passwords as sensitive data and store them in a safe and secure manner. Text is neither of those and the fines can be .... um ... outstanding. In December 2018 a German company received a relatively low fine of €20,000 for just that.
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900