Discussion :

[SiakaCphp]

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.

[jopopmk]

Salut,

la méthode que tu nous présentes fait un UPDATE ...

[SiakaCphp]

Bonsoir, Je suis de retour. Je m'excuse auprès de vous. J'ai été empêcher pour un bon moment. J'ai pas codé depuis lors. je vous pris...
pour mon souci voici le code de l'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 encore

[Invité]

Bonjour,
Soit tu exécutes deux fois la cmd soit tu appels deux fois ta méthode SaveClient!

Où alors tu n'as pas pris le temps de valider qu'il n'existait pas déjà!

[lefajele]

Bonjour, pourquoi le bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 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

revient deux fois?

[Invité]

Difficile à dire nous ne voyons que ce que tu montre mdr!

[SiakaCphp]

Bonjour, cela ne vient pas deux fois; le premier c'est pour spécifier les variables(champs de la table) avec leur type respectif et le second assigne les paramètres envoyer à la fonction aux variables(champs de la table)
Dysorthographie j'ai bien vérifier, voici

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
 
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
 
                Dim rest As Integer = cmd.ExecuteNonQuery
                If rest > 0 Then
                    MsgBox("enregistrer", MsgBoxStyle.Information)
                Else
                    MsgBox("pas enregistrer", MsgBoxStyle.Critical)
                End If

A l'appel il y a ceci

Code :

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

1
2
3
4
5
If nom_txt.Text <> "" And prenom_txt.Text <> "" And tel_txt.Text <> "" And adress_txt.Text <> "" And boit_txt.Text <> "" And ville_txt.Text <> "" And email_txt.Text <> "" And idcatgClt.Text <> "" Then
            Client.SaveClient(nom_txt.Text, prenom_txt.Text, adress_txt.Text, tel_txt.Text, boit_txt.Text, ville_txt.Text, email_txt.Text, idcatgClt.Text)
        Else
            MsgBox("Veuillez remplir tous les champs", vbCritical)
        End If

[Invité]

Bonjour,
Je te rassures j'ai bien compris comment fonctionnait la méthode SaveClient, le problème n'est pas là donc ou et comment appels tu SaveClient!

Place un point d'arrête touche [F9] ici Client.SaveClient et execute normalement ton programme et regardes le valeurs de chaque paramètres!