Bonsoir à vous ! Heureux d'être ici!
Je travail sur application de gestion de stock avec une base mysql. le souci se pose lorsque je fais une insertion dans cette dernière. Il s'enregistretre en doublons parfois. je ne sais pas exactement ce qui se passe. voici le code:
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
 Public Shared Sub modifier(ByVal nom As String, ByVal prenom As String, ByVal adress As String, ByVal tel As String, ByVal boite As String, ByVal ville As String, ByVal email As String, ByVal categorie As Integer, idclient As Integer)
            Try
                conn = New MySqlConnection(chaine)
                conn.Open()
                cmd = New MySqlCommand
                cmd.Connection = conn
                cmd.CommandType = CommandType.Text
                Dim reqsql As String
                reqsql = "UPDATE Client SET Nomclt = @Nomclt, Prenomclt= @Prenomclt, AdressCt = @AdressCt, telephone = @telephone, Boitepostale = @Boitepostale, Ville = @Ville, Email = @Email, Categorie = @Categorie WHERE idClient = @idClient"
                cmd.CommandText = reqsql
 
                With cmd
                    .Parameters.Add(New MySqlParameter("@Nomclt", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@Prenomclt", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@AdressCt", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@telephone", MySqlDbType.Int24))
                    .Parameters.Add(New MySqlParameter("@Boitepostale", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@Ville", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@Email", MySqlDbType.VarChar))
                    .Parameters.Add(New MySqlParameter("@Categorie", MySqlDbType.Int24))
                    .Parameters.Add(New MySqlParameter("@idClient", MySqlDbType.Int24))
                End With
 
                With cmd
                    .Parameters("@Nomclt").Value = nom
                    .Parameters("@Prenomclt").Value = prenom
                    .Parameters("@AdressCt").Value = adress
                    .Parameters("@telephone").Value = tel
                    .Parameters("@Boitepostale").Value = boite
                    .Parameters("@Ville").Value = ville
                    .Parameters("@Email").Value = email
                    .Parameters("@Categorie").Value = categorie
                    .Parameters("@idClient").Value = idclient
 
                End With
lorsque je l'appel en envoyant les informations, cela se passe bien mais en doublons.
merci pour votre aide.