(04-09-18, 07:47 AM)elgokr كتب :اهلاً بك اخى العزيز kebboud
لحل المشكلة بساطة مع استخدام قاعدة البيانات بعد التعديلات الاخيرتعال فى الـ Form2فى كود زر الحفظ واستخدم الكود بهذا الشكل
كود :
Dim F As String = "INSERT INTO ETUDIANT ( رقم_الطالب ,الاسم, هاتف_الوكيل , محل_الميلاد , تاريخ_الميلاد , الفصل_الدراسي) VALUES ('" & Val(رقم_الطالبTextBox.Text) & "' , '" & الاسمTextBox.Text & "' , '" & هاتف_الوكيلTextBox.Text & "', '" & محل_الميلادTextBox.Text & "', '" & تاريخ_الميلادDateTimePicker.Value & "', '" & الفصل_الدراسيTextBox.Text & "') "
Dim U As String = "INSERT INTO ARABE (رقم_الطالب, الاسم) VALUES ('" & Val(رقم_الطالبTextBox.Text) & "' , '" & الاسمTextBox.Text & "') "
AAAA(F)
AAAA(U)
MessageBox.Show("تم الحفظ")
الان جرب اعمل اضافة وذحب الى Form1 واضغط على زر تحديثوشاهد ظهور الطالب كما تريد
تحياتى لكوتمنياتى لك التوفيق
شكرا الاستاذ الجوكر على المساعدة و الصبر
لكن هذه الطريقة ذكرتها لي انت قبل يومين و انا كنت اطبقها
لكن كنت أرجو أن يكون الاعتماد على الروابط بين جدول ETUDIANT و ARABE حتى تتم عملية الاضافة و ليس على اضافة كود
قطعا توجد طريقة Query تعتمد على الروابط بين الجداول و لكنني لم اكتشفها بعد
شكرا على كل حال استاذ الجوكر على تجشم معاناة الرد و جمع المعلومات المفيدة و أرجو من الله أن يحفظني و يحفظك من كل شر
ربي زدني علما