22-04-22, 07:25 PM
السلام عليكم
كل عام وانتم بخير
عندي مشكله وأرجو ان اجد الحل
عندي كودين لاضافة البيانات
مثلا كود لاضافة موظف
وكود اخر لاضافة مرتب الموظف في جدول اخر
المطلوب اضافة الكودين معا وفي حالة حدوث خطأ يتم الغاء العمليه ولا يتم اضافة الكودين
ده الكود المستخدم ارجو من الاخوه التعديل عليه ولكم جزيل الشكر.
كل عام وانتم بخير
عندي مشكله وأرجو ان اجد الحل
عندي كودين لاضافة البيانات
مثلا كود لاضافة موظف
وكود اخر لاضافة مرتب الموظف في جدول اخر
المطلوب اضافة الكودين معا وفي حالة حدوث خطأ يتم الغاء العمليه ولا يتم اضافة الكودين
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
ده الكود المستخدم ارجو من الاخوه التعديل عليه ولكم جزيل الشكر.