مشکل در چندین insert در بانک

[sheervin]

mikham chandin insert konam ,vali moshkel injas k to nemitonam rollback konam,che kar bayad konam?aya emkane rollback vojod nadare?

[reza1944]

عزيز فارسي نميتوني تايپ كني؟
قوانين سايت يادت رفته!
سوالت رو هم واضع تر بگو

[saadi2]

Sub Main()
Dim Cn As New sds.SqlConnection()
Dim cm As New sds.SqlCommand()
Cn.ConnectionString = "Data Source=localhost;Initial Catalog=northwind;Integrated Security=SSPI"
Try
Cn.Open()
cm.Connection = Cn
Catch Ex As Exception
MsgBox(Ex.Message)
End Try
Dim SqlTran As sds.SqlTransaction = Cn.BeginTransaction
cm.Transaction = SqlTran
Try 'To Trap Errors
cm.CommandText = "Insert into categories values('Test Category','A Test Category',NULL)"
cm.ExecuteNonQuery()
cm.CommandText = "Insert into Categories values('Test Category2','A Test Category',NULL)"
cm.ExecuteNonQuery()
SqlTran.Commit()
Console.WriteLine("Successfully Written to Database.")
Catch Ex As Exception
Console.WriteLine("Error in Performing Transaction : " & Ex.Message & " " & Ex.Source)
Console.WriteLine("Rolling Back Transaction Please Wait...")
SqlTran.Rollback()
Console.WriteLine("RollBack Compelete.")
End Try
Console.WriteLine("Press Enter to Quit !")
Console.ReadLine()
End Sub