[Emam emam]

السلام عليكم
كل عام وانتم بخير
عندي مشكله وأرجو ان اجد الحل

عندي كودين لاضافة البيانات 
مثلا كود لاضافة موظف
وكود اخر لاضافة مرتب الموظف في جدول اخر

المطلوب اضافة الكودين معا وفي حالة حدوث خطأ يتم الغاء العمليه ولا يتم اضافة الكودين

PHP كود :

Dim cmd As New SqlCommand
    Dim Trans As SqlTransaction


    Public Sub Insert_Sallaries(ByVal EmpName As String, ByVal Job As String, ByVal NetSallary As Double)
              Dim cmd As New SqlCommand("Insert into Sallaries_Table (EmpName,Job,NetSallary)
                                   values (@EmpName,@Job,@NetSallary)", connSQL)
        cmd.Parameters.Add("EmpName", SqlDbType.NVarChar).Value = EmpName
        cmd.Parameters.Add("Job", SqlDbType.NVarChar).Value = Job
        cmd.Parameters.Add("NetSallary", SqlDbType.Decimal).Value = NetSallary
        cmd.ExecuteNonQuery()
    End Sub


    Public Sub Insert_Employee(ByVal Employee_Name As String, ByVal Employee_Job As String)
               Dim cmd As New SqlCommand("Insert into Employee_Table (Employee_Name,Employee_Job)
                                   values (@Employee_Name,@Employee_Job)", connSQL)
        cmd.Parameters.Add("Employee_Name", SqlDbType.NVarChar).Value = Employee_Name
        cmd.Parameters.Add("Employee_Job", SqlDbType.NVarChar).Value = Employee_Job
        cmd.ExecuteNonQuery()
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        connSQL.Open()
        Trans = connSQL.BeginTransaction
        cmd.Connection = connSQL
        cmd.Transaction = Trans

        Insert_Employee(TextBox1.Text, TextBox2.Text)
        Insert_Sallaries(TextBox1.Text, TextBox2.Text, TextBox3.Text)

        Trans.Commit()
        connSQL.Close()
    End Sub 


ده الكود المستخدم ارجو من الاخوه التعديل عليه ولكم جزيل الشكر.