[vb.net] transaction sql server

Version imprimable

bonjour bonjour !

j'essaie de mettre en place une transaction... comme ceci :

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
Dim oConnection As SqlClient.SqlConnection
Dim i As Integer
		Try
			oConnection.ConnectionString = oString
			oConnection.Open()
			For i = 0 To 2
                'initilisation transaction
                Dim Transac As SqlClient.SqlTransaction = oConnection.BeginTransaction
                'creation commandes à éxécuter
                Dim SQLTransac As SqlClient.SqlCommand = oConnection.CreateCommand
                'commandes contrôlées par la transaction.
                oCommand.Transaction = Transac
                oCommand.CommandType = CommandType.Text
                If i = 1 Then
                    oCommand.CommandText = "INSERT INTO test values"
                Else
                    oCommand.CommandText = "INSERT INTO test(test_id) values (" & i & ")"
                End If
                Try
                    If Not (oCommand.ExecuteNonQuery = 0) Then
                        'enregistrement
                        Transac.Commit()
                    Else
                        'erreur annulation
                        Transac.Rollback()
                        MessageBox.Show("Erreur d'écriture dans la base de données")
                    End If
                Catch ex As Exception
                    'annulation
                    Transac.Rollback()
                    MessageBox.Show("Erreur d'écriture dans la base de données: " + ex.Message)
                End Try
            Next
            oCommand.Dispose()
            oConnection.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

j'ai mis volontairement une condition :

Code:

1
2
3
4
5
 If i = 1 Then
                    oCommand.CommandText = "INSERT INTO test values"
                Else
                    oCommand.CommandText = "INSERT INTO test(test_id) values (" & i & ")"
                End If

pour faire planter une de mes requêtes et vérifier que ça annule bien les premières requêtes qui se sont éxecutées, mais ça n'annule rien du tout :?

une erreur dons mon code ?! :o merci !

04/02/2006, 21h02
Piotrek

Pour que toutes les commandes soient annulees il faut creer la transaction a l'exterieur de la boucle. Dans ton cas tu as 3 transactions

bonsoir Piotrek !
Code:

1 2 3 4 5 Dim Transac As SqlClient.SqlTransaction = oConnection.BeginTransaction 'creation commandes à éxécuter Dim SQLTransac As SqlClient.SqlCommand = oConnection.CreateCommand 'commandes contrôlées par la transaction. oCommand.Transaction = Transac
j'ai passé tout ceci au dessus du For mais ça ne fonctionne tujours pas... :?
Exception : SqlTransaction est terminé, il n'est plus utilisable. c'est l'erreur renvoyé.

J'en ai mis trop en dehors ? je sais plus trop quoi essayé ! :roll:

04/02/2006, 23h03
StormimOn

Tu n'as pas mis la partie Commit/Rollback hors de ton for non plus je suppose. Au premier passage dans ta boucle la transaction est "validée" (commit ou rollback), résultat, au second passage et bien la transaction n'est plus viable puisque le coup d'avant elle a été "validée".

A une transaction doit correspondre une et une seule opération commit ou rollback, sachant qu'il ne faut pas imbriquer les transactions :)
05/02/2006, 01h03
iamunknown

salut !

bah j'ai oublié quelque chose alors ...

comment mes requêtes s'éxécute là :? si c'est le commit qui éxécute... je vois pas là.. je bloque ! 8O

si je mets mon commit à l'extérieur de la boucle, je n'ai qu'une seule requête qui s'éxécute d'ailleurs c'est logique ça pour moi mais le reste non :lol:
05/02/2006, 10h53
StormimOn

Citation:

Envoyé par iamunknown

comment mes requêtes s'éxécute là :? si c'est le commit qui éxécute... je vois pas là.. je bloque ! 8O

Lors d'une transaction le "résultat" du lot de requêtes, car une transaction peut englober plusieurs requêtes, est stocké de manière temporaire. Par la suite, lorsque tu fais un commit les résultats sont validés et stockés de manière définitive, si tu fais un rollback on ne touche à rien.

Donc, lors d'une transaction :

1- tu ouvres la transaction
2- tu effectues ton lot de requêtes
3- tu valides (commit) ou annules (rollback), si tu as des erreurs, la transaction, une et une seule fois, à la fin de l'exécution du lot

Maintenant, les transactions programmées sont peut être un peu différentes de celles en script SQL, mais je pense que le principe doit être le même :)
05/02/2006, 10h59
neguib

A quoi sert ceci

Code:

oCommand.CommandText = "INSERT INTO test values"

:?:
05/02/2006, 11h00
StormimOn

C'est pour introduire une erreur et vérifier l'annulation de la transaction, dixit son premier post :)

Mais bon, faire un rollback tout court à la fin aurait été suffisant pour vérifier la chose ^^

Re: [vb.net] transaction sql server

ok :oops: :wink: mal lu de ma part excuses

Je verrai les choses plutôt ainsi alors

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
 
Imports System
Imports System.Data
Imports System.Data.SqlClient
'...
 
 Const badInsert As String = "INSERT INTO test values"
 Const insert As String = "INSERT INTO test(test_id) values(?)"
 
 Dim oConnection As SqlConnection = Nothing
 Dim SQLTransac As SqlCommand = Nothing
 Dim Transac As SqlTransaction  = Nothing
 Dim i As Integer
 
 Try
   oConnection =New SqlConnection(oString)
   oConnection.Open()
 
   Transac = oConnection.BeginTransaction()
   SQLTransac = oConnection.CreateCommand()
   SQLTransac.Connection = oConnection
   SQLTransac.Transaction = Transac
 
   For i=0 to 2
     If i = 1 Then: SQLTransac.CommandText = badInsert
     Else : SQLTransac.CommandText = insert.Replace("?", i.ToString())
     End If
     SQLTransac.ExecuteNonQuery()
   Next
   Transac.Commit()
 Catch e As Exception
   Try
      Transac.Rollback()
   Catch ex As SqlException
      MessageBox.Show(ex.Message)
   End Try
   MessageBox.Show(e.Message)
 Finally
   If Not(oConnection Is Nothing) _ 
     AndAlso Not(oConnection.State = ConnectionState.Closed) Then
         oConnection.Close()
   End If
 End Try

05/02/2006, 17h08
iamunknown

bonjour !

merci pour votre aide, j'ai adapté tout ce que vous avez dit à mon cas et ça fonctionne très bien ;) !
merci encore !