Discussion :

[jcd]

Bonjour,

Mon DataContext est unique (singleton).

Dans mon projet d'application Web, j'ai une page Web d'inscription. Un Collaborateur est identifié dans le SQL Server par son matricule, un integer à 6 digits : Primary Key, int, Not Null, pas d'Identity (forcément).

Quand l'utilisateur valide la page, la classe controleur est appelée avec en paramètre les valeurs des controles de la page Web.

Une méthode de clase a la charge de vérifier que ce matricule n'existe pas déjàdans la Base :

Code :

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

1
2
3
4
5
dc = CtrlMain.dc
Dim monCollaborateur = (From c In dc.Collaborateur _
						Where c.matricule = leMatricule _
                        Select c).SingleOrDefault()
return monCollaborateur

Si la mtéthode retourne Nothing, je crée un nouveau collaborateur, met à jour ses propriétés, Ok.

Je vérifié avec SQL Server Management Studio dans la Base, avec un "SELECT ... WHERE ID =..." : 0 records founds, Ok.

Le dc.InsertOnSubmit() fonctionne corerectement.

Mais, presque systématiquement 1 fois sur 2 tests, la méthode d'insertion dc.SubmitChanges() retoune une System.Data.Linq.DuplicateKeyException

Si l'enregistrement n'est pas dans la Base (0 records found), il pourrait se trouver en mémoire... mais je ne l'ai pas créé... ???!!

Une idée ?

D'avance merci,
JC

[tigunn]

Salut jcd,
comme tu n'as pas trop mis de code qui (me) permettrait d'être plus précis; voici un exemple d'utilisation de linq pour update et insert:

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
Public Function maTableUpdateOrInsert(ByVal DC As LinqClassDataContext, ByVal C As LmaTable) As Integer
      Try
         Dim Retour As LmaTable = (From Ligne In DC.LmaTables Where (Ligne.Id = C.Id) Select Ligne).FirstOrDefault
         If Retour Is Nothing Then
            Retour = New LmaTable
            DC.LmaTables.InsertOnSubmit(Retour)
         End If
         With Retour
            .Libel = C.Libel
            .Id = C.Id
            .Valid = C.Valid
         End With
         DC.SubmitChanges()
         Return Retour.Id
      Catch ex As Exception
         TraiteErreur("maTableUpdateOrInsert", ex.ToString)
         Return 0
      End Try
   End Function

voila j'espère que cela pourra t'aider, bon dev'

[jcd]

Merci pour ta réponse,
Mis à part le fait que je faisais mon InsertOnSubmit après avoir défini les propriétés de mon objet, le reste est identique.

A) Je fais une inscription, enregistrement des données dans la Base --> Ok
B) Je supprimer les données dans la base (SQL Server Management Studio)
C) Je refais une inscription avec un test de vérification que l'enregistrement n'existe pas dans la base avant de faire un éventuel New ==> Nothing, donc je fais un New, je définis les propriétés, je fais l'InsertOnSubmit, je fais le SubmitChanges ==> Exception

JC

[jcd]

Code de Test qui génère l'exception lors de la 2ème insertion, qui indique bien qu'il reste quelque part en mémoire une instance de l'objet.

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
        'CREATE TABLE Test(
        '	id int NOT NULL PRIMARY KEY,
        '	libelle nchar(10) NOT NULL)
 
Private Sub CmdButtonTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdButtonTest.Click
        Dim dc As CovoiturageDataContext = Nothing
 
        Try
            'Singleton DataContext
            ctrlM = CtrlMain.GetInstance()
            dc = ctrlM.dc
            Dim TheTest = (From t In dc.Test Select t Where t.id = 1).FirstOrDefault
            If TheTest Is Nothing Then
                System.Diagnostics.Debug.WriteLine("No records in the Database's Test table with id=1")
                TheTest = New Test
                TheTest.id = 1
                TheTest.libelle = "aaa"
                dc.Test.InsertOnSubmit(TheTest)
                dc.SubmitChanges()
            Else
                System.Diagnostics.Debug.WriteLine("One record in the Database's Test table with id=1")
            End If
 
            'BreakPoint here and 'DELETE FROM Test WHERE id=1' in SQL Server Management Studio            
 
            TheTest = (From t In dc.Test Select t Where t.id = 1).FirstOrDefault
            If TheTest Is Nothing Then
                System.Diagnostics.Debug.WriteLine("No records in the Database's Test table with id=1")
                TheTest = New Test
                TheTest.id = 1
                TheTest.libelle = "aaa"
                dc.Test.InsertOnSubmit(TheTest)
                dc.SubmitChanges()
            Else
                System.Diagnostics.Debug.WriteLine("One record in the Database's Test table with id=1")
            End If
 
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine("Error : " & ex.ToString)
        End Try
    End Sub

[jcd]

Bonjour,

Donc je n'arrivais pas à réellement supprimer un objet du cache.

Je n'ai pas trouvé de manière de contourner le pb sur le net.

==> J'ai donc supprimé tous mes appels de méthodes InsertOnSubmit, DeleteOnSubmit.... SubmitChanges.

Puis, j'ai créé une mtéhode Insere et une MiseAjour avec les bonnes vieilles méthodes de l'ADO.NET en mode connecté, et effectué un Refresh sur l'objet LinqTo SQL dans le cache (MAJ du cache avec les valeurs de la Base de Données).
JC