السلام عليكم
اخواني ارجو المساعده
انا لدي برنامج كاملا وقد وضعت البحث في داتا قريد
والان اريد ان اطبع النتائج الضاهرة في الداتا قريد في تقرير يحتوي على النتائج التي ضهرت في الداتا فقط
ارجو المساعده اخواني
علما اني بحثت بالمنتدى ولم اجد ماابحث عنه
بانتظاركم
مشكور عالرد والتوضيح
ولكن كيف استعلم والنتائج بالتقرير
بشكل عام يجب ان تصمم التقرير مثل ال grid وبعد ذلك يعتمد على نوع التقرير
فأي نوع تقرير تستخدم ؟ datareport or crystal report
يعطيك العافيه اخوي انا استخدم كريستال ريبورت
للاسف الكريستال غير موجود عندي حتى استطيع ان افيدك لكن بخصوص ال datareport انظر الى هذه المشاركات فيمكن ان تفيدك وتجد حلول قريبة
اولا ننشاء جدول الاستعلام
وليكن اننا لدينا قاعدة البيانات بها الجدول التالي{tel} الذي به الحقول التالية[name,tel,address,e-mail,fax]
ونريد عمل استعلام بالحقول التالية[name,tel,address] هذا طبعا بدلالة الاسم[name]
cn.Execute ("create view teste as select name ,tel ,address from tel where tel=' " + Combo1.Text + " ' ")ولكن بعد تنفيذ هذا الكود لابد من حذف الجدول حتي لا يتسبب في وجود error ويكون الكود النهائي
cn.Execute ("drop view test")
cn.Execute ("create view test as select name ,tel ,address from tel where tel=' " + Combo1.Text + " ' ")وبهذا يكون لديك جدول استعلام ويمكنك ربط التقرير به
اما بلنسبة لانشاء التقرير يمكنك النظر في قسم التقارير
ملحوظة
cn هنا هي نسخة من ADODB.Connection
اقتباساولا ننشاء جدول الاستعلاموليكن اننا لدينا قاعدة البيانات بها الجدول التالي{tel} الذي به الحقول التالية[name,tel,address,e-mail,fax]
ونريد عمل استعلام بالحقول التالية[name,tel,address] هذا طبعا بدلالة الاسم[name]
كود
cn.Execute ("create view teste as select name ,tel ,address from tel where tel=' " + Combo1.Text + " ' ")
ولكن بعد تنفيذ هذا الكود لابد من حذف الجدول حتي لا يتسبب في وجود error ويكون الكود النهائي
كود
cn.Execute ("drop view test")
cn.Execute ("create view test as select name ,tel ,address from tel where tel=' " + Combo1.Text + " ' ")
وبهذا يكون لديك جدول استعلام ويمكنك ربط التقرير به
اما بلنسبة لانشاء التقرير يمكنك النظر في قسم التقارير
ملحوظة
cn هنا هي نسخة من ADODB.Connection
كلام سليم ومضبوط وأنا عملت بنفس الطريقه مشاريع كبيره
ممكن تشوف برنامج الأنديه الرياضيه فى توقيعى
هتلاقى فى الفورم 9 طباعة أى بيانات تظهر على الداتا جريد
ولو عاوز أى شرح للكود أنا تحت أمرك
سبحان الله وبحمده سبحان الله العظيم
مشكورين الف شكر عالردود والتفاعل يعطيكم العافيه
اخوي atef_rw للاسف صار عندي صعوبه بتطبيق ماذكرت نضرا لخبرتي القليله بالاستعلامات
ولكن ارفقت لكم مثال مع قاعدة بيانات جاهزه اتمنى التعديل عليها لاحصل على جدول في قاعدة البيانات يضم مابحثت عنه
بانتظاااااااااااركم
الاخ ضاري وصلتني رسالتك
البرنامج مرفق مع الرسالة
استخدمت الكرستال 4.6
وقمت بتحويل قاعدة البيانات لاصدار سابق لكي اقوم بربطها مع الكرستال
الرنامج يعمل وقد جربتة
مثال أخر ولكن بالكود بدون أدوات
طباعة ما يظهر على الداتا جريد
اقتباسوقمت بتحويل قاعدة البيانات لاصدار سابق لكي اقوم بربطها مع الكرستال
يمكنك أستخدام تحديث الكريستال 4.6 ليعمل مع قواعد بيانات أكسيس 2003
سبحان الله وبحمده سبحان الله العظيم
الاخ moslem_12002 البرنامج رائع
والف شكر علي التحديث
الاخ moslem_12002 البرنامج رائع
والف شكر علي التحديث
الاخ moslem_12002 البرنامج رائع
والف شكر علي التحديث
يعطيكم العافيه اخواني ماقصرتو والف شكر للأخ atef_rw وكذلك الاخ moslem_12002
فعلا انحلت المشكله وهذا بالضبط ما اردته ولكن بقي شي بسيط
وهو :
اني اريد الاستعلام مختلف او البحث اريد بحث بالكلمه يعني لو اكتب في عبارة البحث اسم "بندر" مثلا
اريد انت يظهر بالنتائج بندر بن محمد و عبدالله بن بندر و ناصر بن محمد بن بندر يعني اريد جميع الاسماء التي تحوي
اسم بندر
بانتظاركم
الامر بسيط ستضع المعامل [like] بدلا من [=] فتكون جملة الاستعلام كتالي
cn.Execute ("create view test as select name ,phone,phone1 from teel where name like'" + Text1.Text + "%'")البرنامج مرفق بعد التعديل
وايضا ستجد كتاب داخل المجلد يساعدك علي استخدام الاستعلام
اخوي atef_rw يعطيك العافيه ماقصرت فعلا طريقة البحث مثل ما اردت بالضبط ولكن
لايتم طباعة النتائج يظهر التقرير صفحة بيضاء لماذا ؟
أنا جربت حكاية أنشاء تقرير بناء عاى جدول أستعلام بأستخدام like من فتره طويله بس منفعش معايه
حل المشكله بتاعتكم
على ما أظن سيتم الطباعه من الجدول بدون أنشاء جدول أستعلام (لم أجرب ذلك لأنى فى أمتحانات)
والله الموفق
سبحان الله وبحمده سبحان الله العظيم
معقول ؟ يعني مافي حل ؟؟
:( :( :( :( :(
هذا الموضوع مغلق.