[Emam emam]

(23-04-22, 02:06 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
أخي الكريم إمام
انشأت لك مثال في قسم الاسئلة حول عملية الـ Transaction مع الاكسس
وستجد الشرح للاكواد
http://vb4arb.com/vb/showthread.php?tid=41236

الف شكر اخي ابراهيم
انا عاجز عن شكرك
بارك الله فيك وجعله الله في ميزان حسناتكم
الكود اشتغل تمام
ولكن اخي هل ينفع اعمل جملة ال Transaction علي كل كود اضافه لوحده 
انا جربتها ومنفعتش
ياريت لو تساعدني
وده الكود اللي انا جربت عليه 

PHP كود :

Public Sub insert_Employee_Table(Employee_Name As String, Employee_Job As String, NetSallary As Double)
        Con.Open()
        Using Trans As OleDbTransaction = Con.BeginTransaction
            Try
                Cmd = New OleDbCommand("insert into Employee_Table(Employee_Name,Employee_Job) Values(@Employee_Name,@Employee_Job)", Con)
                Cmd.Parameters.Add(New OleDbParameter("@Employee_Name", OleDbType.VarWChar)).Value = Employee_Name
                Cmd.Parameters.Add(New OleDbParameter("@Employee_Job", OleDbType.VarWChar)).Value = Employee_Job
                Cmd.Transaction = Trans
                Cmd.ExecuteNonQuery()
                Cmd.Parameters.Clear()
                Trans.Commit()
            Catch ex As Exception
                Trans.Rollback()
                MessageBox.Show(ex.Message)
            End Try
        End Using
    End Sub

    Public Sub insert_Sallaries_Table(Employee_Name As String, Employee_Job As String, NetSallary As Double)
        Con.Open()
        Using Trans As OleDbTransaction = Con.BeginTransaction
            Try
                Cmd = New OleDbCommand("insert into Sallaries_Table(EmpName,Job,NetSallary) Values(@EmpName,@Job,@NetSallary)", Con)
                Cmd.Parameters.Add(New OleDbParameter("@EmpName", OleDbType.VarWChar)).Value = Txt_Employee_Name.Text
                Cmd.Parameters.Add(New OleDbParameter("@Job", OleDbType.VarWChar)).Value = Txt_Employee_Job.Text
                Cmd.Parameters.Add(New OleDbParameter("@NetSallary", OleDbType.Numeric)).Value = Convert.ToDouble(Txt_NetSallary.Text)
                Cmd.Transaction = Trans
                Cmd.ExecuteNonQuery()
                Trans.Commit()
            Catch ex As Exception
                Trans.Rollback()
                MessageBox.Show(ex.Message)
            End Try
        End Using
    End Sub