الحفظ في جدولين مرتبطين بالكود

قد يفيدك هذا الرابط

/index.php/topic/270437-%D9%83%D9%8A%D9%81%D9%8A%D8%A9-%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-transaction-%D9%85%D8%B9-%D8%AC%D9%85%D9%84%D8%A9-insert/?hl=%2Bidentity#entry1314231

جزاك الله خيراً على إرشادك

أستاذي الفاضل : لقد رأيت هذا الموضوع عدة مرات وحاولت أن أفهمه أو أطبقه فباءت محاولاتي بالفشل 

هل يمكنك توضيحه لي بشكل أفضل ؟ ويكون بكود vb.net  وليس C#

هل من معين

أخي الفاضل

مرفق مثال بداخلة SQL Database + مشروع مصمم بالفيجوال بيسك يوضح طريقة الحفظ داخل جدولين مرتبطين رأس بأطراف

بالتوفيق

invoice.zip

شكر اخي محمد لقد سبقتني

بنسبه للموضوع الرابط الكود الاول في السكول وه عمل الsql server stored procedure وفكرته عمله هو ارسال كلا قيم الجدولين الي السكول ثم عمل Transaction تقم بعمل ادخال مؤقت في الجدول الاول ثم اخد رقم التسلسل ادخالة في الجدول الاخر بشكل مؤقت واذا تم الادخال الصحيح في كلا الجدولين تقم بالاحفظ عن طريق كلمة commit واذا حدث خطء تتراجع عن الحفظ من خلال كلمة rollback وسطر الاخر يرجع رسالة خطء الي البرنامج وهو  raiserror('عفوا حدث خطأ الرجاء اعادة المحاولة',14,1)

CREATE PROCEDURE dbo.spAdd
	@val1 int,
	@val2 nvarchar(50),
	
	@valA  nvarchar(50),
	@valB nvarchar(50),
	@valC int
AS
Begin 
Begin Transaction
	insert into dbo.Table_1 (Col1,col2) values (@val1,@val2)
	insert into dbo.Table_2  values (@@identity,@valA,@valB,@valC)
if @@ERROR = 0
	commit
else
begin
	raiserror('عفوا حدث خطأ الرجاء اعادة المحاولة',14,1)
	rollback
end
end

والكود البياقي في البرنامج وهو ارسال كلا قيم الجدولين الي الstored procedure وهذ هو الكود

dim con as new SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString1").ConnectionString)
 
        try
         con.Open()
        SqlCommand com = new SqlCommand("dbo.spAdd", con)
        com.CommandType = CommandType.StoredProcedure
        com.Parameters.Add("val1", SqlDbType.Int).Value = val1.ToString()
        com.Parameters.Add("val2", SqlDbType.NVarChar, 50).Value = val2.ToString()
       
        com.Parameters.Add("valA", SqlDbType.NVarChar, 50).Value = valA.ToString()
        com.Parameters.Add("valB", SqlDbType.NVarChar, 50).Value = valB.ToString()
        com.Parameters.Add("valC", SqlDbType.Int).Value = valC.ToString()
       
	com.ExecuteNonQuery ()
        
        catch (Exception ex)        
         MessageBox.show(ex.Message)        
  finally       
            con.Close()
        end try

ولا يهمك يا أخ كريم

ومنكم نستفيد  :)

أساتذتي الأخ كريم والأخ محمد

جزاكم الله خير

كم نستفيد منكم

جعله فيه ميزان حسناتكم

الأستاذ محمد والأستاذ كريم 

جزاكما الله خيراً ... كفيتما ووفيتما

لقد راجعت مرفق الأستاذ محمد وقمت بتفهمه وتطبيقه ونجحت الفكرة ولله الحمد  .. وبقيت عملية تحديث الداتا سيت بعد الحفظ لتظهر السجلات الجديدة بأرقامها .. الخ أضفت كود لتصفيتها ثم إعادة التعبئة .. وقبل التصفية يقوم بأخذ مكان السجل ثم بعد التعبئة يرجع إلى ذلك المكان 

وهذا الكود الذي استخدمته في زر الحفظ : 

Try
            If TextBox1.Text = "" Then
                TextBox1.Text = ds.Tables("StudentsInfo").Compute("Max(Id)", "ID >= 0") + "1"


                Dim strSQL1 As String = "INSERT INTO StudentsInfo (ID, StudentName) VALUES('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "')"

                Dim cmd As SqlCommand = New SqlCommand(strSQL1, con)
                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()

                For Each row As DataGridViewRow In Me.DataGridView2.Rows
                    If row.Cells(Me.DataGridView2.Columns(2).Index).Value = "" Then Exit For

                    Dim strSQL As String = "INSERT INTO StudentCourses (SID, CourseName) VALUES('" & Val(Me.TextBox1.Text) & "','" & row.Cells(Me.DataGridView2.Columns(2).Index).Value & "')"

                    Dim cmd2 As SqlCommand = New SqlCommand(strSQL, con)

                    cmd2 = New SqlCommand(strSQL, con)
                    con.Open()
                    cmd2.ExecuteNonQuery()
                    con.Close()
                Next row

            Else
                sda.EndEdit()
                SQLDataAdapter1.Update(ds, "StudentsInfo")
                cda.EndEdit()
                SQLDataAdapter2.Update(ds, "StudentCourses")

            End If

            'لأخذ موضع السجل وتخزينه للعودة إليه
            Dim intIndex As Integer
            intIndex = BindingContext(sda).Position
            'تحديث الداتاسيت لتظهر المحفوظات
            ds.Clear()
            SQLDataAdapter1.Fill(ds, "StudentsInfo")
            SQLDataAdapter2.Fill(ds, "StudentCourses")
            'cda = New BindingSource(sqldataset2, "StudentCourses")
            BindingContext(sda).Position = intIndex


            MessageBox.Show("تم حفظ التغييرات", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MessageBox.Show(ex.Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

وبالنسبة لجملة الترانسكشن - فلم أقم بتجربتها أو معرفتها سابقاً - وكما فهمت من كلام الأستاذ كريم أنها مفيدة جداً خصوصاً في عمل الشبكات في حالة حدوث خطأ لا يحفظ أي شيء ... ويعود للحالة الطبيعية  ...  أعجبتني الفكرة وفائدتها ..

وكما فهمت من الكلام أنها تحتوي على ثلاثة معاملات وعندما كتبت - كما ذكر الأستاذ كريم

Begin Begin Transaction

لم يتعرف عليها البرنامج فقمت بعمل متغير في بداية الكود 

        Dim trans As SqlTransaction = con.BeginTransaction

ثم استدعيته .... ولكن باءت محاولاتي بالفشل ....

هل يمكنك أستاذ كريم أن تضع كود الحفظ أعلاه في جملة الترانسكشن 

جزاكم الله خيراً ...

مرفق ملف مثال للمشروع ...

rohiem.zip

هل من مساعد في تطبيث جملة Transaction  على المثال أعلاه