منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استدعاء معلومات جدولين عن طريق المفتاح الاجنبي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم 



رمضان كريم عليكم وعلى الامة العربية 

 

وحفظكم الله من كل مكروه 



*****************************************************************

انا كنت شغال على الاكسس وشغال بشكل احترافي والحمد لله 
لكن حبيت اطور من نفسي رحت شغال فيجول // وهنا بدات الصدمه لي  بسبب اختلاف بيئة العمل
عندي مشكل بصراحة وصلت لمرحلة الياس في حلها وكلي امل فيكم 

عندي جدولين 

الاول اسمه Info  خاص بمعلومات المرضى 

الجدول الثاني اسمه Reviews وفيه زيارات المرضى ونوع الزيارة وتاريخ الزيارة 
بينهم علاقة 
ID >>>>>IDD
لما اقوم باستدعاء بيانات المريض وكما في الصورة 
[صورة مرفقة: p_1582u2rk71.png]
يوجد زر اسمه زيارة جديدة 
اثناء الضغط علية يخرج لي فورم اخر
لكن المشكلة يقوم بجلب زيارات وتواريخ جميع المرضى 
كما في الصوره 
[صورة مرفقة: p_15829tily2.png]
المطلوب 
لما اقوم بتحديد مريض جديد والضغط على زر 
زيارة جديدة 
يفتح الفورم الثاني   
 ويعرض زيارات المريض المحدد  فقط 
والسلام عليكم 
ضع الكود لنراه
اعتقد المشكلة بجملة جلب البيانات يجب ان تحدد رقم المريض الذي تريد جلب بياناته للداتاجرد فيو
فانت تجلب جميع بيانات المرضى وليس المريض الذي تريد اضافة زيارة جديدة له
شكرا لاهتمامك بالموضوع
سبق وان قلت اني جديد على الفيجول
اي ان الكود الذي وضعته بالزر فقط اظهار الفورم
اما بحدث تحميل الفورم
وضعت تحميل معلومات الجدول الخاص بالزيارات

da = New OleDbDataAdapter(" select * from Reviews  ", con)
       da.Fill(dt)
في فورم الزيارات
وهذا في زر الاختيار  في الفورم الاول 
    If ID.Text = "" Or age.Text = "" Then
           MsgBox("يرجى اختيار المريض")
           Return
       Else
           Visits.Show()
       End If
ضع الكود الخاص بتحميل البيانات يجب ان تضع فيه شرط بدلالة رقم المريض
وان شاء الله بنساعدك

بالنسبة لتحميل البيانات يجب ان تكون بحدث الزر الخاص بفتح الشاشة
حلو يعني تحميل البيانات بيكول بزر فتح الفورم
طيب كيف بدي اكتب الشرط حسب ID
عندك برنامج anydesk
ثواني بيكون جاهز
كود :
(" select * from Reviews where id="& ID.Text &"", con)