[VB.Net][2.0] Transaction SQL

**NicoNGRI** · 15/12/2005, 12h12

Salut,

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

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
    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+

**rattlehead** · 15/12/2005, 14h03

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

**NicoNGRI** · 15/12/2005, 14h03

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

:

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
 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+

**NicoNGRI** · 15/12/2005, 14h04

Salut,

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

[VB.Net][2.0] Transaction SQL

ASP.NET

Vue hybride

Discussions similaires

Partager

Partager