🔒 Closed Username Already Exists VB.NET MS Access

[fakeuser101]

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()

 

[my_unico11]

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()


Answer :


Dim querystr asString="SELECT Count(Username) FROM tblCredentials WHERE Username='" & txtUsername.Text & "'"
Dim mycmd AsNew SqlCommand(querystr, Yourconnection)
Dimvalue asObject= mycmd.ExecuteScalar()

IF asObject > 0 THEN
MsgBox("Existing")
ELSE
"Your Script"
END IF

 

[🤖]

Dear fakeuser101,

Since 2 years have passed since the last reply in this thread, I am locking it to prevent necroposting. Feel free to start a new thread or contact any forum staff if you want this to be reopened.

Thread closed.