fakeuser101
Addict
- Joined
- Feb 28, 2015
- Posts
- 13
- Reaction
- 1
- Points
- 67
Sino pong programmer dito?
please, paano po malalaman kung username already exists? di kasi gumagana yung codes na nasi-search ko.
If btnSave.Text = "Save" Then
Dim ct1 As String = "SELECT [Username] FROM tblCredentials WHERE Username='" & txtUsername.Text & "'"
cmd = New OleDb.OleDbCommand(ct1)
cmd.Connection = cnn
rdr = cmd.ExecuteReader()
If rdr.Read Then
MessageBox.Show("Username already exists!", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
txtUsername.SelectAll()
txtUsername.Focus()
If Not rdr Is Nothing Then
rdr.Close()
End If
Exit Sub
End If
End If
If Me.txtMID.Tag & "" = "" Then
'add data to table
cmd.CommandText = "INSERT INTO [tblCredentials]([MemberID], [FirstName], [MiddleName], [LastName], [Address], [Username], [Password], [ConfirmPass], [Position]) " & _
" VALUES(" & Trim(Me.txtMID.Text) & ",'" & Trim(Me.txtFirst.Text) & "','" & Trim(Me.txtMiddle.Text) & "','" & Trim(Me.txtLast.Text) & "','" & Trim(Me.txtAddress.Text) & "','" & Trim(Me.txtUsername.Text) & "','" & _
Trim(Me.txtPass.Text) & "','" & Me.txtConfirmPass.Text & "','" & _
Me.cboPosition.Text & "')"
cmd.ExecuteNonQuery()
please, paano po malalaman kung username already exists? di kasi gumagana yung codes na nasi-search ko.
If btnSave.Text = "Save" Then
Dim ct1 As String = "SELECT [Username] FROM tblCredentials WHERE Username='" & txtUsername.Text & "'"
cmd = New OleDb.OleDbCommand(ct1)
cmd.Connection = cnn
rdr = cmd.ExecuteReader()
If rdr.Read Then
MessageBox.Show("Username already exists!", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
txtUsername.SelectAll()
txtUsername.Focus()
If Not rdr Is Nothing Then
rdr.Close()
End If
Exit Sub
End If
End If
If Me.txtMID.Tag & "" = "" Then
'add data to table
cmd.CommandText = "INSERT INTO [tblCredentials]([MemberID], [FirstName], [MiddleName], [LastName], [Address], [Username], [Password], [ConfirmPass], [Position]) " & _
" VALUES(" & Trim(Me.txtMID.Text) & ",'" & Trim(Me.txtFirst.Text) & "','" & Trim(Me.txtMiddle.Text) & "','" & Trim(Me.txtLast.Text) & "','" & Trim(Me.txtAddress.Text) & "','" & Trim(Me.txtUsername.Text) & "','" & _
Trim(Me.txtPass.Text) & "','" & Me.txtConfirmPass.Text & "','" & _
Me.cboPosition.Text & "')"
cmd.ExecuteNonQuery()