[VB.Net][2.0] Transaction SQL

Version imprimable

Salut,

j'ai un petit bout de code pour une transaction SQL en ado.net :

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
    Sub TransAjout()
        Dim trans As SqlTransaction
        Dim conn As SqlConnection
        Dim comm As SqlCommand
 
        Try
            conn = New SqlConnection(ConfigurationManager.ConnectionStrings("GestionSIE2ConnectionString").ConnectionString)
            conn.Open()
            comm = conn.CreateCommand()
            trans = conn.BeginTransaction("BuilderTransaction")
            comm.Connection = conn
            comm.Transaction = trans
 
            comm.CommandText = "INSERT INTO dbo.Table (Champ1, Champ2) VALUES (Valeur1, Valeur2)"
 
            comm.Transaction = trans
 
            comm.ExecuteNonQuery()
            trans.Commit()
        Catch e As Exception
            Dim message As String
            Try
                If Not (trans Is Nothing) Then
                    trans.Rollback("BuilderTransaction")
                End If
            Catch ex As SqlException
                message = "L'erreur suivante " + ex.GetType().ToString() + " est survenue lors de l'annulation de la transaction"
                Response.Write("<body><script>alert(""" & message & """);</script></body>")
            End Try
            message = "L'erreur suivante " + e.GetType().ToString() + " est survenue lors de l'insertion des données"
            Response.Write("<body><script>alert(""" & message & """);</script></body>")
        Finally
            If Not (conn Is Nothing) Then
                conn.Close()
            End If
        End Try
    End Sub

Comment le modifier pour obtenir la clé d'identification de l'enregistrement que l'on vient d'insérer ?

Merci A+

15/12/2005, 14h03
rattlehead

le mieux est de passer par une procédure stockée qui te renverrait dans une variable la clé d'identification de ta variable.

Comme visiblement personne ne sait, je donne la solution que j'ai trouvé :D :

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
 Sub TransAjout() 
        Dim trans As SqlTransaction 
        Dim conn As SqlConnection 
        Dim comm As SqlCommand 
 
        Try 
            conn = New SqlConnection(ConfigurationManager.ConnectionStrings("GestionSIE2ConnectionString").ConnectionString) 
            conn.Open() 
            comm = conn.CreateCommand() 
            trans = conn.BeginTransaction("BuilderTransaction") 
            comm.Connection = conn 
            comm.Transaction = trans 
 
            comm.CommandText = "INSERT INTO dbo.Table (Champ1, Champ2) VALUES (Valeur1, Valeur2); set @Id= (select @@IDENTITY as Id)" 
            Dim Parametre As SqlParameter
            Parametre = comm.Parameters.Add("@Id", SqlDbType.Int)
            Parametre.Direction = ParameterDirection.Output
 
            comm.Transaction = trans 
 
            comm.ExecuteNonQuery() 
            trans.Commit()
            Response.Write("<body><script>alert(""" & comm.Parameters("@Id").Value.ToString() & """);</script></body>")
        Catch e As Exception 
            Dim message As String 
            Try 
                If Not (trans Is Nothing) Then 
                    trans.Rollback("BuilderTransaction") 
                End If 
            Catch ex As SqlException 
                message = "L'erreur suivante " + ex.GetType().ToString() + " est survenue lors de l'annulation de la transaction" 
                Response.Write("<body><script>alert(""" & message & """);</script></body>") 
            End Try 
            message = "L'erreur suivante " + e.GetType().ToString() + " est survenue lors de l'insertion des données" 
            Response.Write("<body><script>alert(""" & message & """);</script></body>") 
        Finally 
            If Not (conn Is Nothing) Then 
                conn.Close() 
            End If 
        End Try 
    End Sub

A+

15/12/2005, 14h04
NicoNGRI

Salut,

dans mon cas, je ne pouvais pas utiliser de PS...