[kebboud]

(30-08-18, 10:45 PM)elgokr كتب :

عند عمل اضافة طالب جديد

كل ما عليك فعله هو 

بعد انهاء من عمل كود اضافة الكود فى جدول الطلاب

قم بتكرار الكود نفسه اسفل منه ولكن هذه المرة لجدول المادة

وبكده ستجد انه قم باضافة الطالب لكلا الجدولين

لتوضح الفكرة اكتر

تخيل ان الرز الخاص بالاضافة يتحتوى على كود اضافة الطلاب بجدول الطالب بهذا الشكل

كود :

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins As String = "insert into Table1 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

والكود كمثال

كل ما عليك ان تجعله بهذا الشكل

كود :

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins As String = "insert into Table1 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()

       If Not con.State = ConnectionState.Open Then con.Open()
       Dim sqlins2 As String = "insert into Table2 (Teacher,ID_Subject)values('" & Name.text & "', " & Id.text) & ")"
       Using cmd As New OleDbCommand(sqlins2, con)
           cmd.ExecuteNonQuery()
       End Using
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

اتمنى ان تكون الصورة وضحت كاملاً

تحياتى لك

وتمنياتى لك التوفيق

 
ههههه 
تمت المهمة بنجاح !!!!
الحمد لله و الشكر لله على نعمه التي لا تعد و لا تحصى و منهم نعمة الاصدقاء المفيدين