مطلوب كودين (جملتين) اسعفونا الله يجازيكم كل خير

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

اخي الكريم ابحث في قسم التقارير

وتحديدا في دروس اخونا Major وستجد كل ما تريد ان شاء الله

بالتوفيق

===============

الى اللقاء

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

أخى الكريم بالنسبه للسؤال الأول

وهو ربط قاعده البيانات هناك عده طرق للربط وسوف أقوم بالشرح عن طريق مكتبه الdao

نستخدم الكود التالى لفتح فاعده البيانات بعد تحميل المكتبه

dim db as database
Set db = OpenDatabase(App.Path & "\dhary.mdb ")

ثم لفتح ملف تقرير بكريستال ريبورت

نرجو اضافه اداه علرض التقارير

ثم كتابه الكود التالى

 CrystalReport1.ReportFileName = App.Path & "\t_ajeer.rpt "
  CrystalReport1.Action = 1

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

وإذا واجهتك اى مشكله ارجو إرفاق المشروع للتعديل عليه

*للعلم ان مشروعك مخالف لقواعد المشاركه يجب عليك مراعاه ذلك حتى لايتم إغلاق الموضوع من قبل المشرفين

راجع الرابط التالي وهو طريقة الربط بـADO

/index.php?showtopic=52933

السلام عليكم اخي الكريم

يجب عليك في البداية ان تضيف المكتبه الخاصة بالado ويمكنك دلك من خلال القائمة projict واختار refrens سوف تضهر لك نافدة اختر منها الاتي :

microsoft dao3.5 opject

ومن ثم ادهب الى الفورم واكتب هذا الكود في التصريح العام genarel

dim d as database

dim r as recordset

ثم ادهب الى الحدث form_load واكتب الكود التالي :

set d=opendatabase(app,path &"/اسم قاعدة البيانات")

set r=d,openrecordset("اسم الحقل")

وهكدا قد اكملة ربط قاعدة البيانات بالكود .

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

دعواتكم لنا بالنجاح

aimn19852004@hotmail.com

اقتباس

be or not to be

مشكووووووووووووورين الف الف شكر للجميع على الردود والتوضيحات

وسوف اقوم باذن الله بالتجربه واوافيكم بالنتائج

اكرر شكري وتقديري لكل من قام الرد والتوضيح

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