Transaction problem (open datareader exception)

Version imprimable

Bonjour, je souhaite insérer des données d'une table à une autre. En utilisant Transaction, j'obtiens un message d'erreur :

Citation:

ExecuteReader implique que la commande possède une transaction lorsque la connexion affectée à la commande est en attente d'une transaction locale. La propriété Transaction de la commande n'a pas été initialisée.

Code:

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
42
43
44
45
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        
        oleCon.Close()
        oleCon.Open()
        Dim strCategory As String = " SELECT Category.ID, Category.Label FROM Category WHERE Category.ID = 1 "
        Dim olecmd As New OleDbCommand(strCategory, oleCon)
        Dim trans As OleDbTransaction = oleCon.BeginTransaction
        Dim dreaderCategory As OleDbDataReader = olecmd.ExecuteReader
        Dim intID As Integer
        Dim strLabel As String = String.Empty
        While dreaderCategory.Read
            intID = dreaderCategory("ID")
            strLabel = dreaderCategory("Label")
        End While
        dreaderCategory.Close()
        Dim strCategory_2 As String = "INSERT INTO Category_2 (ID,Label) VALUES (@ID,@Label)"
        Dim olecomCategory_2 As New OleDbCommand(strCategory_2, oleCon)
        olecomCategory_2.Parameters.AddWithValue("@ID", intID)
        olecomCategory_2.Parameters.AddWithValue("@Label", strLabel)
        olecmd.Transaction = trans
        olecomCategory_2.ExecuteNonQuery()
        oleCon.Close()
 
 
        Dim strProduct As String = "SELECT Product.ID, Product.Label, Product.ID_Cat FROM Category, Product WHERE Product.ID_Cat = 1 "
        Dim intIDProduct As Integer
        Dim strLabelProduct As String
        Dim intID_CatProduct As Integer
        Dim olecmdProduct As New OleDbCommand(strProduct, oleCon)
        oleCon.Open()
        Dim dreaderProduct As OleDbDataReader = olecmdProduct.ExecuteReader
        While dreaderProduct.Read
            intIDProduct = dreaderProduct("ID")
            strLabelProduct = dreaderProduct("Label")
            intID_CatProduct = dreaderProduct("ID_Cat")
            Dim strProduct_2 As String = "INSERT INTO Product_2 (ID,Label,ID_Cat) VALUES (@ID,@Label,@ID_Cat)"
            Dim olecomProduct_2 As New OleDbCommand(strProduct_2, oleCon)
            olecomProduct_2.Parameters.AddWithValue("@ID", intIDProduct)
            olecomProduct_2.Parameters.AddWithValue("@Label", strLabelProduct)
            olecomProduct_2.Parameters.AddWithValue("@ID_Cat", intID_CatProduct)
            'olecomDetailCmd.Transaction = tran
            olecmd.Transaction = trans
            olecomProduct_2.ExecuteNonQuery()
        End While
        trans.Commit()
    End Sub

26/03/2025, 09h40
popo

Tu ouvres une transaction ligne 6 et la valide ligne 44.
Mais entre temps, tu fermes la connexion et la rouvre (lignes 21 et 29).

En plus, tu affectes des transactions à olecmd (lignes 19 et 41) mais ce ce n'est pas cette commande que tu utilises.
26/03/2025, 14h25
HichSkill

Merci pour la réponse. Que suggérez-vous pour corriger le code, s'il vous plaît ? Connaissez-vous des cours en ligne sur la transaction ?
26/03/2025, 14h30
umfred

Il faut réinitier ta transaction sur la nouvelle commande, comme tu le fais dans la 1ère partie de ton code
donc rajouter

Code:

trans = oleCon.BeginTransaction

après ta ligne 29 sur laquelle tu ouvres ta connection
27/03/2025, 09h27
popo

Citation:

Envoyé par umfred

Il faut réinitier ta transaction sur la nouvelle commande, comme tu le fais dans la 1ère partie de ton code
donc rajouter

Code:

trans = oleCon.BeginTransaction

après ta ligne 29 sur laquelle tu ouvres ta connection

Mauvaise idée.
Le problème de base est que la connexion a été fermée alors qu'une transaction était en cours.

Il faut virer le oleCon.Close() de la ligne 21 et le oleCon.Open() de la ligne 29 pour utiliser la même transaction.
Et surtout affecter trans sur les bonnes commandes au lieu de olecmd qui ne fait pas de requête.

Bonsoir,

Je me suis penché sur ta routine et je pense que le mieux est :
Utiliser Using pour garantir la libération des ressources (OleDbCommand, OleDbDataReader).
Préparer les commandes d'insertion une seule fois en dehors des boucles et réutilisation des paramètres.
Ouvrir la connexion une seule fois et en la fermant après toutes les opérations.

Je te propose quelque chose à adapter dans le style.

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
 
  Try
      oleCon.Open()
      Dim trans As OleDbTransaction = oleCon.BeginTransaction()
 
      ' Transfert des données de la table Category
      Dim strCategory As String = "SELECT Category.ID, Category.Label FROM Category WHERE Category.ID = 1"
      Using olecmd As New OleDbCommand(strCategory, oleCon, trans)
          Using dreaderCategory As OleDbDataReader = olecmd.ExecuteReader()
              If dreaderCategory.Read() Then
                  Dim intID As Integer = dreaderCategory("ID")
                  Dim strLabel As String = dreaderCategory("Label")
 
                  Dim strCategory_2 As String = "INSERT INTO Category_2 (ID, Label) VALUES (@ID, @Label)"
                  Using olecomCategory_2 As New OleDbCommand(strCategory_2, oleCon, trans)
                      olecomCategory_2.Parameters.AddWithValue("@ID", intID)
                      olecomCategory_2.Parameters.AddWithValue("@Label", strLabel)
                      olecomCategory_2.ExecuteNonQuery()
                  End Using
              End If
          End Using
      End Using
 
      ' Transfert des données de la table Product
      Dim strProduct As String = "SELECT Product.ID, Product.Label, Product.ID_Cat FROM Product WHERE Product.ID_Cat = 1"
      Using olecmdProduct As New OleDbCommand(strProduct, oleCon, trans)
          Using dreaderProduct As OleDbDataReader = olecmdProduct.ExecuteReader()
              Dim strProduct_2 As String = "INSERT INTO Product_2 (ID, Label, ID_Cat) VALUES (@ID, @Label, @ID_Cat)"
              Using olecomProduct_2 As New OleDbCommand(strProduct_2, oleCon, trans)
                  While dreaderProduct.Read()
                      olecomProduct_2.Parameters.Clear()
                      olecomProduct_2.Parameters.AddWithValue("@ID", dreaderProduct("ID"))
                      olecomProduct_2.Parameters.AddWithValue("@Label", dreaderProduct("Label"))
                      olecomProduct_2.Parameters.AddWithValue("@ID_Cat", dreaderProduct("ID_Cat"))
                      olecomProduct_2.ExecuteNonQuery()
                  End While
              End Using
          End Using
      End Using
 
      ' Commit de la transaction
      trans.Commit()
  Catch ex As Exception
      ' Rollback de la transaction en cas d'erreur
      If oleCon.State = ConnectionState.Open Then
          trans.Rollback()
      End If
      MessageBox.Show("Erreur : " & ex.Message)
  Finally
      ' Fermeture de la connexion
      If oleCon.State = ConnectionState.Open Then
          oleCon.Close()
      End If
  End Try