Insert without duplicates MS Access using ASP.net (VB.net) - sql

Question

I am building an e-commerce website as a school project. How can I make sure that I won't have duplicate users since this is the page where they have to fill in their user details.
This is the code I am using right now and the ExecuteNonquery doesn't work. It doesn't give any errors, it just skips it.
Protected Sub bntVerzenden_Click(sender As Object, e As EventArgs) Handles bntVerzenden.Click
Dim sqlCommand As String
Dim intGebruikersID, intRubriekID As Integer
Dim VerkopenConn As New OleDb.OleDbConnection
Dim VerkopenCommArtikel, VerkopenCommGebruiker, GebruikersIDComm, RubriekIDComm, EmailComm As New OleDb.OleDbCommand
VerkopenConn.ConnectionString = My.Settings.SvShopConnection
VerkopenCommArtikel.Connection = VerkopenConn
VerkopenCommGebruiker.Connection = VerkopenConn
GebruikersIDComm.Connection = VerkopenConn
RubriekIDComm.Connection = VerkopenConn
EmailComm.Connection = VerkopenConn
'Email Controleren
sqlCommand = "SELECT * FROM tblGebruiker WHERE GebruikersEmail = '" & txtEmail.Text & "'"
EmailComm.CommandText = sqlCommand
If VerkopenConn.State = ConnectionState.Closed Then VerkopenConn.Open()
If EmailComm.ExecuteNonQuery = 0 Then
'Gebruiker gegevens aan de database toevoegen
VerkopenCommGebruiker.CommandText = "INSERT INTO tblGebruiker (GebruikersNaam, GebruikersVoornaam, GebruikersEmail, GebruikersGSM) VALUES (#GebruikersNaam, #GebruikersVoornaam, #GebruikersEmail, #GebruikersGSM)"
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersNaam", txtNaam.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersVoornaam", txtVNaam.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersEmail", txtEmail.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersGSM", txtGsm.Text)
VerkopenCommGebruiker.ExecuteNonQuery()
'GebruikersID uit de database halen
GebruikersIDComm.CommandText = "SELECT tblGebruiker.GebruikersID FROM tblGebruiker WHERE tblGebruiker.GebruikersNaam = #Naam AND tblGebruiker.GebruikersVoornaam = #VNaam;"
GebruikersIDComm.Parameters.AddWithValue("#Naam", txtNaam.Text)
GebruikersIDComm.Parameters.AddWithValue("#VNaam", txtVNaam.Text)
intGebruikersID = Integer.Parse(GebruikersIDComm.ExecuteScalar)
'RubriekID uit de database halen
RubriekIDComm.CommandText = "SELECT tblRubriek.RubriekID FROM tblRubriek WHERE tblRubriek.RubriekNaam = #RubriekNaam"
RubriekIDComm.Parameters.AddWithValue("#RubriekNaam", lstRubriek.SelectedItem.ToString)
intRubriekID = Integer.Parse(RubriekIDComm.ExecuteScalar)
'Artikel gegevens aan de database toevoegen
VerkopenCommArtikel.CommandText = "INSERT INTO tblArtikel (ArtikelBeschrijving, ArtikelPrijs, RubriekID, ArtikelAankoopdatum, ArtikelTekoopgezet, ArtikelBeschikbaar, GebruikersID) VALUES ( #ArtikelBeschrijving, #ArtikelPrijs, #RubriekID, #ArtikelAankoopdatum, #ArtikelTekoopgezet, #ArtikelBeschikbaar, #GebruikersID)"
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelBeschrijving", txtArtikelBeschrijving.Text)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelPrijs", txtArtikelPrijs.Text)
VerkopenCommArtikel.Parameters.AddWithValue("#RubriekID", intRubriekID)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelAankoopdatum", CalAankoop.SelectedDate)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelTekoopgezet", calVerkoop.SelectedDate)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelBeschikbaar", True)
VerkopenCommArtikel.Parameters.AddWithValue("#GebruikersID", intGebruikersID)
VerkopenCommArtikel.ExecuteNonQuery()
VerkopenConn.Close()
Else
'GebruikersID uit de database halen
GebruikersIDComm.CommandText = "SELECT tblGebruiker.GebruikersID FROM tblGebruiker WHERE tblGebruiker.GebruikersNaam = #Naam AND tblGebruiker.GebruikersVoornaam = #VNaam;"
GebruikersIDComm.Parameters.AddWithValue("#Naam", txtNaam.Text)
GebruikersIDComm.Parameters.AddWithValue("#VNaam", txtVNaam.Text)
intGebruikersID = Integer.Parse(GebruikersIDComm.ExecuteScalar)
'RubriekID uit de database halen
RubriekIDComm.CommandText = "SELECT tblRubriek.RubriekID FROM tblRubriek WHERE tblRubriek.RubriekNaam = #RubriekNaam"
RubriekIDComm.Parameters.AddWithValue("#RubriekNaam", lstRubriek.SelectedItem.ToString)
intRubriekID = Integer.Parse(RubriekIDComm.ExecuteScalar)
'Artikel gegevens aan de database toevoegen
VerkopenCommArtikel.CommandText = "INSERT INTO tblArtikel (ArtikelBeschrijving, ArtikelPrijs, RubriekID, ArtikelAankoopdatum, ArtikelTekoopgezet, ArtikelBeschikbaar, GebruikersID) VALUES ( #ArtikelBeschrijving, #ArtikelPrijs, #RubriekID, #ArtikelAankoopdatum, #ArtikelTekoopgezet, #ArtikelBeschikbaar, #GebruikersID)"
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelBeschrijving", txtArtikelBeschrijving.Text)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelPrijs", txtArtikelPrijs.Text)
VerkopenCommArtikel.Parameters.AddWithValue("#RubriekID", intRubriekID)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelAankoopdatum", CalAankoop.SelectedDate)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelTekoopgezet", calVerkoop.SelectedDate)
VerkopenCommArtikel.Parameters.AddWithValue("#ArtikelBeschikbaar", True)
VerkopenCommArtikel.Parameters.AddWithValue("#GebruikersID", intGebruikersID)
VerkopenCommArtikel.ExecuteNonQuery()
VerkopenConn.Close()
End If
System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert(""Jouw artikel staat nu te koop"")</SCRIPT>")
End Sub

Answer 1

You should hace some id field, like email or full name. You could create a unique index on this columna and catch the exception on insert. Or fire a first query to verify if the user is already added.

Answer 2

You can check whether the emailid that user provide is already exist in your database or not.Try this code:-
SqlConnection Conn=new SqlConnection(your_connectionstring);
SqlCommand command = new SqlCommand("select * from tblGebruiker where GebruikersEmail='" + emailid + "'", Conn);
DataTable dtl = new DataTable();
SqlDataAdapter sqlDA = new SqlDataAdapter(command);
sqlDA.Fill(dtl);
if (dtl.Rows.Count > 0)
{
Response.Write("<script>alert('User already registered')</script>");
}
else
{
VerkopenCommGebruiker.CommandText = "INSERT INTO tblGebruiker (GebruikersNaam, GebruikersVoornaam, GebruikersEmail, GebruikersGSM) VALUES (#GebruikersNaam, #GebruikersVoornaam, #GebruikersEmail, #GebruikersGSM)"
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersNaam", txtNaam.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersVoornaam", txtVNaam.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersEmail", txtEmail.Text)
VerkopenCommGebruiker.Parameters.AddWithValue("#GebruikersGSM", txtGsm.Text)
If VerkopenConn.State = ConnectionState.Closed Then VerkopenConn.Open()
VerkopenCommGebruiker.ExecuteNonQuery()
}