Write a web application that uses sqltrasaction.save method in transaction.

Imports System.Data.SqlClient

Imports System.Data

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim myconn As SqlConnection

Dim mycmd As SqlCommand

Dim mytransac As SqlTransaction

Dim myreader As SqlDataReader

myconn = New SqlConnection("Data Source=L2_10\SQLEXPRESS;Initial Catalog=trydb;Integrated Security=True")

myconn.Open()

mytransac = myconn.BeginTransaction

mycmd = New SqlCommand

mycmd.Connection = myconn

mycmd.Transaction = mytransac

Try

mycmd.CommandText = "insert into t1 values (1,'sonu')"

mycmd.ExecuteNonQuery()

mytransac.Save("1st")

mycmd.CommandText = "insert into t1 values (2,'jai')"

mycmd.ExecuteNonQuery()

mytransac.Save("2nd")

mycmd.CommandText = "select * from t1"

myreader = mycmd.ExecuteReader

Response.Write("
1 record")

mytransac.Rollback("1st")

While myreader.Read()

Response.Write("
" + myreader.GetString(0) + "" + myreader.GetString(1))

End While

mytransac.Commit()

Catch ex As Exception

Response.Write(ex.Message)

Finally

myconn.Close()

End Try

End Sub

End Class