Discussion :

[kornetmuse]

Bonjour,

J'ai un petit souci dans mon application.

En effet lors de la modification d'un utilisateur je mets à jour sa liste de droits.

Ainsi, pour chaque droit modifié je lance un update sur la table droit et pour chaque droit supprimé je lance une requête delete sur la table.

Lorsque je suis dans la même transaction, la suppression plante car il y a un verrou sur la table.

Merci par avance de votre aide.

[SQLpro]

Il suffit d'utiliser un MERGE.

A +

[kornetmuse]

Bonjour,

Merci pour ta réponse.

Cependant je ne vois pas comment le merge peut répondre à ma question.

En effet, voici un extrait de la fonction posant problème.

La connaissance des droits à modifier ou à supprimer ne vient pas d'une table mais d'un objet.

Code vb :

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
 
 Dim maConnection As Connection
        maConnection = ApplicationContext.GetInstance.CurrentConnection
        maConnection.BeginTrans()
 
        Try
            FactoryUtilisateur.UpdateUtilisateur(maConnection, monUtilisateur)
            If Not monUtilisateur.Droits Is Nothing Then
                Dim mesDroitsEnBase As Droits
                mesDroitsEnBase = GetDroitsForUtilisateur(monUtilisateur)
 
                For Each monDroit As Droit In monUtilisateur.Droits
                    If mesDroitsEnBase Is Nothing OrElse Not mesDroitsEnBase.Exist(monDroit) Then
                    Else
                        UpdateDroit(maConnection, monDroit, monUtilisateur)
                    End If
                Next
 
                For Each monDroit As Droit In mesDroitsEnBase
                    If monUtilisateur.Droits Is Nothing OrElse Not monUtilisateur.Droits.Exist(monDroit) Then
                        SupprimeDroit(maConnection, monDroit, monUtilisateur)
                    End If
                Next
 
                maConnection.CommitTrans()
            End If
            monUtilisateur.MajInfoFromUtilisateur(GetUtilisateur(monUtilisateur.ID), True)
 
        Catch ex As Exception
            maConnection.RollbackTrans()
            Throw ex
        End Try

[skuatamad]

Il est particulièrement important de préciser le SGBD pour les problèmes de transaction, les SGBD n'ayant pas la même gestion de la concurrence d'accès.

Cependant au sein d'une même transaction, je trouve douteux d'être bloqué, es tu sûr de ne pas ouvrir 2 sessions ?
Évidemment il y a peu de chance d'obtenir des réponses sur le forum SQL concernant un code VB.

[aieeeuuuuu]

Cela dit, pour éviter ce genre de souci, et bien d'autres encore, il n'est pas recommandé de gérer les transactions coté appli.

en l’occurrence, il serait préférable d'envoyer la liste des "nouveaux" droits à une procédure stockée qui ferait le merge

[kornetmuse]

Bonjour,

le SGBD utilisé est Access.

Le code n'est là que pour mieux comprendre la mécanique car le problème serait plus lié à la base de données mais je poste aussi le message sur le forum vb. Sait-on jamais.

Et je suis tout aussi surpris de l'incapacité de faire un update et un delete sur la même table dans une transaction mais bon avec Access nous sommes à l'abris de rien