Discussion :

[rocketter]

Bonjour,

j'ai un souci pour construire une requête SQL d'insert. J'ai deux tables dans Access :


En rouge la clé primaire de la table, en bleu la clé étrangère, j'aimerais ajouter un lot supplémentaire à un des articles, par exemple le lot 1122 aux articles dont le n° est 1.

Je présente mes données dans un datagridview, l'ajout de données dans les deux tables est ok mais l'ajout que dans la table lot me pose souci

Mon code se présente ainsi :

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
 
 
Dim CodeArticle As String = InputBox("Pour quel code article ?", "Code article ?")
Dim Requete As String = "SELECT Num_Article from Article Where Code_Article = '" & CodeArticle & "'"
Dim Commande As New OleDbCommand(Requete, Connexion)
NumArticle = Commande.ExecuteScalar()
 
 
Insert = New OleDbCommand("Insert into Lot (" & DG_DataGrid.Columns(6).Name & "," & DG_DataGrid.Columns(7).Name & "," & DG_DataGrid.Columns(8).Name & "," & DG_DataGrid.Columns(9).Name & "," & DG_DataGrid.Columns(10).Name & ") Select @Date_PerempLot, @Stockage, @Fournisseur, @Date_Reception, @Num_Lot from lot where numéro_Article = @ID", Connexion)
 
 
                    Insert.Parameters.AddWithValue("@Date_PerempLot", DG_DataGrid.CurrentRow.Cells(6).Value)
 
                    Insert.Parameters.AddWithValue("@Stockage", DG_DataGrid.CurrentRow.Cells(7).Value)
 
                    Insert.Parameters.AddWithValue("@Fournisseur", DG_DataGrid.CurrentRow.Cells(8).Value)
 
                    Insert.Parameters.AddWithValue("@Date_Reception", DG_DataGrid.CurrentRow.Cells(9).Value)
 
                    Insert.Parameters.AddWithValue("@Num_Lot", DG_DataGrid.CurrentRow.Cells(10).Value)
 
                    Insert.Parameters.AddWithValue("@ID", NumArticle)
 
                DataSetAdaptateur.InsertCommand = Insert
 
                Insert.ExecuteNonQuery()
                DataSetAdaptateur.Update(DataSet, "DataTableCreation")
                Insert.Dispose()
                Connexion.Close()

J'ai l'erreur : "Modifications non effectuées : risque de doublons dans champs index, clé principale ou relation interdisant les doublons. Modifiez les données des champs contenant les doublons, enlevez ou redéfinissez l’index pour permettre les doublons et recommencez."

Je suis dessus depuis des heures et je ne vois pas comment m'en tirer

[François DORIN]

Bonsoir,

J'ai l'impression que tu as oublié de spécifier la valeur pour la colonne "Numéro_Article". Si la colonne ne peut contenir la valeur NULL, alors le soucis est peut être là...

Sinon le message d'erreur fait référence à un risque de doublons. Il nous faut donc connaître toutes les contraintes sur ta table, notamment la clé primaire (bon, ça on là), mais aussi d'éventuelles contraintes d'unicité.

[rocketter]

Bonjour Dorinf,

J'ai l'impression que tu as oublié de spécifier la valeur pour la colonne "Numéro_Article". Si la colonne ne peut contenir la valeur NULL, alors le soucis est peut être là...

Non j'ai bien la valeur pour "Numéro_Article", je l'obtiens via ces commandes :

Code :

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

1
2
3
4
5
Dim Requete As String = "SELECT Num_Article from Article Where Code_Article = '" & CodeArticle & "'"
Dim Commande As New OleDbCommand(Requete, Connexion)
NumArticle = Commande.ExecuteScalar()
...
Insert.Parameters.AddWithValue("@ID", NumArticle)

Sinon le message d'erreur fait référence à un risque de doublons. Il nous faut donc connaître toutes les contraintes sur ta table, notamment la clé primaire (bon, ça on là), mais aussi d'éventuelles contraintes d'unicité.

Le null est interdit sur les clés primaires mais également sur la colonne "Code_Article" de Article ; concernant la relation entre les tables :

[François DORIN]

Non j'ai bien la valeur pour "Numéro_Article", je l'obtiens via ces commandes :

Tu m'as mal compris. Tu as bien le "Numero_Article" qui apparait dans la clause WHERE, mais pas dans les champs insérés. Aussi, quand tu ajoutes une ligne à la table Lot, la colonne Numero_Article n'est pas initialisée (donc à NULL). Comme ton schéma interdit les NULL, cela provoque une erreur. Je ne sais pas si c'est celle là qui est en cause ici, mais cela fera au moins une erreur de corrigée.

[rocketter]

Oui, au temps pour moi, j'ai modifié la requête dans mon code :

Code :

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

Insert = New OleDbCommand("Insert into Lot (" & DG_DataGrid.Columns(6).Name & ", Numéro_article, " & DG_DataGrid.Columns(7).Name & "," & DG_DataGrid.Columns(8).Name & "," & DG_DataGrid.Columns(9).Name & "," & DG_DataGrid.Columns(10).Name & ") values (@Date_PerempLot, @ID, @Stockage, @Fournisseur, @Date_Reception, @Num_Lot)", Connexion)

Toujours la même erreur Malgré tout l'enregistrement se fait dans la bdd

[François DORIN]

Es-tu sûr à 100% que l'enregistrement présent est bien celui que tu as saisies, et non un enregistrement qui existait préalablement ?
Refais un test avec un numéro de lot n'existant pas (vérifie bien avant de faire ta requête), puis effectue la requête et regarde ce qui se passe. As-tu l'exception ? L'enregistrement est-il présent ?

Autre piste, serait-il possible que ton code soit appelé plusieurs fois ? Cela pourrait expliquer le problème. Tu peux le vérifier simplement en mettant un point d'arrêt sur la ligne appelant DataSetAdaptateur.Update et vérifier que l'exception se produit bien lors du premier appel.

[rocketter]

Oui oui je confirme, en spécifiant un n° de lot bidon que dans le programme, l'enregistrement apparait dans la base Access, malgré l'erreur.

Autre piste, serait-il possible que ton code soit appelé plusieurs fois ? Cela pourrait expliquer le problème. Tu peux le vérifier simplement en mettant un point d'arrêt sur la ligne appelant DataSetAdaptateur.Update et vérifier que l'exception se produit bien lors du premier appel.

Avant d'appuyer sur le bouton "Insertion" ma cnx à la base est fermée, lorsque j'appuie sur ce bouton, la cnx s'ouvre, et ensuite je n'ai que cet update qui est appelé, l'exception est bien levé qu'une seule fois lorsque le programme rencontre la ligne DataSetAdaptateur.Update

[François DORIN]

Avant d'appuyer sur le bouton "Insertion" ma cnx à la base est fermée, lorsque j'appuie sur ce bouton, la cnx s'ouvre, et ensuite je n'ai que cet update qui est appelé, l'exception est bien levé qu'une seule fois lorsque le programme rencontre la ligne DataSetAdaptateur.Update

Ce n'était pas ma question. Je ne te demandais pas si l'exception ne se produisait qu'une seule fois, mais si elle se produisait bien lors du premier appel.

Je t'invite à mettre un point d'arrêt sur cette ligne. Lorsque tu l’atteins, tu regardes si ta base access contient ou non la ligne. Ensuite, tu continues l'exécution de ton programme afin d'exécuter juste le Update et tu nous dis si tu as eu ou pas une exception. Cela peut te paraître bateau, mais dans la mesure où tu ne fournis pas d'exemple pour pouvoir reproduire le problème, il faut s'assurer qu'il est correctement identifié.

[rocketter]

J'ai mis le point d'arrêt sur la ligne, je lance le programme. Lorsque le programme arrive sur mon point d'arrêt :


ma bdd possède le nouvel enregistrement.

je fais F8 et là l'erreur apparait. Donc l'exception apparait au premier appel

Je ne sais pas si je réponds mieux à ta question. Après fichier d'exemple j'suis pas contre, j'pourrais essayer de bidouiller un truc pour reproduire le pb.

[François DORIN]

*TILT*
Je n'avais pas vu une chose, mais ce que tu viens de me dire me l'a fait voir. Tu donnes toi-même la réponse : la donnée est présente avant d'exécuter le Update.

En regardant mieux ton code, c'est à cause du Insert.ExecuteNonQuery() (c'est ça que j'aurais du voir plus tôt).

Ou bien tu mets le Insert.ExecuteNonQuery(), ou bien le DataSetAdaptateur.Update, mais pas les deux, sinon, tu insères deux fois la donnée, d'où l'erreur que tu rencontres !

[rocketter]

Tu as raison ! du coup l'erreur est logique. Maintenant c'est ok, ce qui est étonnant par contre c'est que j'ai mis ces deux lignes à peu près partout dans mon programme (création d'items, modifications de données) mais je n'ai pas d'erreur et pas de doublon non plus