Bonsoir à vous !
Encore heureux d'être ici.
Je travail sur une application de gestion de stock avec une base mysql et depuis un moment lorque je fais une insertion cela se fait en duble au niveau de la base de données. Je ne comprends pas pourquoi. voici un exemple de code qui fait une insertion:
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
Public Shared Sub SaveClient(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)
            Try
                conn = New MySqlConnection(chaine)
                conn.Open()
                cmd = New MySqlCommand
                cmd.Connection = conn
                cmd.CommandType = CommandType.Text
                Dim reqsql As String
                reqsql = "INSERT INTO Client (Nomclt,Prenomclt,AdressCt,telephone,Boitepostale,Ville,Email,Categorie) values (@Nomclt,@Prenomclt,@AdressCt,@telephone,@Boitepostale,@Ville,@Email,@Categorie)"
                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))
                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
 
                End With
merci pour votre avis