الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اربط الخيار بقاعدة البيانات؟؟

بدأه athen25 في 26 يونيو 2009 · 1 رد · 385 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الساده الكرام

السلام عليكم ورحمة وبركاته

كيف اربط الخيار بقاعدة البيانات؟؟

نامل من الله ثم الجميع المساعده والتعديل على البرنامج المرفق واعادة لنا

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام

sinfo2000.rar

#2

السلام عليكم...

بما أنك تستعمل تنسيق قديم لقاعدة البيانات (Access 97) وتستعمل كائنات DAO فإن الـ CheckBox يمكن ربطه فقط أثناء التصميم (لا يمكن ربطه من خلال الكود):

1. أضف المكون Data إلى الـ Form ثم اضبط الخاصية DatabaseName للمكون Data على مسار قاعدة البيانات لديك. و في الخاصية RecordSource اختر اسم الجدول sinfo

2. حدد الـ CheckBox ثم اضبط الخاصية DataSource على اسم الـ Data Control الذي أضفته في الخطوة 1. و اضبط الخاصية DataField على الحقل athen1.

* إذا كنت لا تريد إظهار الـ Data Control فيمكنك إخفاؤه بضبط الخاصية Visible على False

* إذا كنت لا تحتاج إلى استعمال الكائنين db و rs فاحذفهما من المشروع، أما إذا كنت تحتاجهما لأمر آخر فقم بتعديل السطر الأول الموجود في الـ Form_Load إلى الشكل التالي:

  1. Set db = OpenDatabase(App.Path & "db2.mdb", False)
  2.  

كذلك يستحسن إغلاق الـ Recordset و الـ Database عند إغلاق البرنامج من خلال الحدث Form_Unload

  1. Private Sub Form_Unload(Cancel As Integer)
  2. rs.Close
  3. db.Close
  4. End Sub
  5.  

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

مواضيع مشابهة