- Messages
- 205
- Reaction score
- 0
- Points
- 26
Good day mga ka SB:
Help po sa problem ko about registration form. Paano ko po magagawa na kapag na read na may username na sa database ko (MS Access 2013) eh mag mesagebox.show("Username is not valid). Ganto po kac ginawa ko:
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ECE QUIZ DATABASE.accdb;Jet OLEDBatabase Password=password123"
Try
Dim sql As String = "SELECT * FROM Account WHERE Username= '" & txtUsername.Text & "'"
'Dim sql As String = "SELECT * FROM Account WHERE LastName= '" & txtLN.Text & "' AND FirstName= '" & txtFN.Text & "' AND MiddleName= '" & txtMN.Text & "'" & _
' "AND Address= '" & txtPMA.Text & "' AND ContactNumber= '" & txtCN.Text & "' AND "
Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql)
'Open Database Connection
sqlCom.Connection = conn
conn.Open()
Dim sqlRead As System.Data.OleDb.OleDbDataReader = sqlCom.ExecuteReader()
If sqlRead.Read() Then
MessageBox.Show(" -Username is not valid. Please change your username", "The following errors were encountered:", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("Failed to connect to Database.. System Error Message: " & ex.Message, "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Nagawa ko na madedetect nya na meron nang username sa database. Ang problema ko na lang eh kapag walang katulad sa DB eh aadd nya un sa DB.
Hope may mag bigay ng example hehehhe
Help po sa problem ko about registration form. Paano ko po magagawa na kapag na read na may username na sa database ko (MS Access 2013) eh mag mesagebox.show("Username is not valid). Ganto po kac ginawa ko:
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ECE QUIZ DATABASE.accdb;Jet OLEDBatabase Password=password123"
Try
Dim sql As String = "SELECT * FROM Account WHERE Username= '" & txtUsername.Text & "'"
'Dim sql As String = "SELECT * FROM Account WHERE LastName= '" & txtLN.Text & "' AND FirstName= '" & txtFN.Text & "' AND MiddleName= '" & txtMN.Text & "'" & _
' "AND Address= '" & txtPMA.Text & "' AND ContactNumber= '" & txtCN.Text & "' AND "
Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql)
'Open Database Connection
sqlCom.Connection = conn
conn.Open()
Dim sqlRead As System.Data.OleDb.OleDbDataReader = sqlCom.ExecuteReader()
If sqlRead.Read() Then
MessageBox.Show(" -Username is not valid. Please change your username", "The following errors were encountered:", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("Failed to connect to Database.. System Error Message: " & ex.Message, "Database Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Nagawa ko na madedetect nya na meron nang username sa database. Ang problema ko na lang eh kapag walang katulad sa DB eh aadd nya un sa DB.
Hope may mag bigay ng example hehehhe