Discussion :

[amaramacenta]

bonjour les pros,
Comment interdire les doublons sur ma base ?
J'ai fait une petite appli, mais j'ai un problème avec des doublons.
voici mon code vb d'insertion dans la base, je veux interdire les doublons sur le numéro de police.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 Private Sub BT_Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Valider.Click
        If (Text_Numero_Police.Text = "") Then
            MsgBox("Veuillez Chaissir le Numero de Police SVP", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Information")
        ElseIf Txt_Nom_Prenom_Client.Text <> "" And Txt_Type_Compteur.Text <> "" And Txt_Type_Branchement.Text <> "" And Text_Numero_Police.Text <> "" And Text_index_compte.Text <> "" And Text_Contact_Client.Text <> "" And Txt_Contact_Technicien.Text <> "" Then
            Dim Requete As String = "INSERT INTO Client VALUES('" + Txt_Nom_Prenom_Client.Text.ToString() + "','" + Txt_Type_Compteur.Text.ToString() + "','" + Txt_Type_Branchement.Text.ToString() + "', '" + Text_Numero_Compteur.Text.ToString() + "','" + Text_Numero_Police.Text.ToString() + "','" + Text_index_compte.Text.ToString() + "','" + CB_Nom_Prenom_Technicien.Text.ToString() + "','" + Text_Contact_Client.Text.ToString() + "','" + Txt_Contact_Technicien.Text.ToString() + "','" + dta.Text.ToString() + "')"
            Try
                Connexion.Open()
                Dim commande As New SqlCommand(Requete, Connexion)
                commande.ExecuteNonQuery()
                If MsgBox("Enregistrement de Branchement Réussi!!! Voulez-vous continuer?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Information") = MsgBoxResult.Yes Then
                    Txt_Nom_Prenom_Client.Text = ""
                    Txt_Type_Compteur.Text = ""
                    Txt_Type_Branchement.Text = ""
                    Text_Numero_Compteur.Text = ""
                    Text_Numero_Police.Text = ""
                    Text_index_compte.Text = ""
                    Text_Contact_Client.Text = ""
                    CB_Nom_Prenom_Technicien.Text = ""
                    Txt_Contact_Technicien.Text = ""
                    dta.Text = ""
                Else
                    Me.Close()
                    Txt_Nom_Prenom_Client.Text = ""
                    Txt_Type_Compteur.Text = ""
                    Txt_Type_Branchement.Text = ""
                    Text_Numero_Compteur.Text = ""
                    Text_Numero_Police.Text = ""
                    Text_index_compte.Text = ""
                    Text_Contact_Client.Text = ""
                    CB_Nom_Prenom_Technicien.Text = ""
                    Txt_Contact_Technicien.Text = ""
                    dta.Text = ""
 
                End If
                commande.Dispose()
                Connexion.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

[fozzeuh]

Salut,

alors tout d'abord tu devrais utiliser les balises code pour mettre ton code dedans.

Ensuite la solution la plus facile serait de faire un SELECT pour vérifier si les données que tu veux insérer n'existe pas déjà et ensuite si ça existe pas tu insères les données sinon tu affiches un message comme quoi la donnée existe déjà dans le base.

[ranzoken]

Ho le méchant, c'est immonde à lire du code sans la balise code

et donc vous voulez éviter de créer des doublons dans votre base de donnée par rapport au numéro de police,
mais avant d’insérer un jeu de résultat vous ne devriez pas regarder si il existe déjà ?

ensuite pour la suite je vous conseillerai de faire des requêtes paramétré (il y a énormément d'exemple sur le net)

[Pol63]

pour le sécuriser, tu mets un index unique sur la ou les colonnes
sql server te jetteras alors si tu essayes

après tu peux faire un select ou un if not exists insert pour prévenir sans générer d'exception

[rv26t]

Bonjour,

Les requêtes paramétrées, voir Tuto ou Faq.