سؤال عن الداتا ربيورت

بسم الله الرحمن الرحيم

هل بإمكانكي أختي أن ترفقي البرنامج أو شاشه منه لكي يتم التعديل

أما أذا أردت مثالا :

فتصفحي القسم ستجدين الكثير واليك هذا الموضوع الذي فيه مثال جيد سيفيدكي بإذن الله خطأ في ربط ال datareport ..,

إضافة الى الموضوع المثبت في القسم اليكم الشرح الكامل لعمل علاقة في Data Report مع الصور

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

اخي هل من الممكن مساعدتي في التقارير

بسم الله الرحمن الرحيم

هل استطيع استعراض من اكثر من جدول استعرض حفول من عندة جداول وعرضها في الداتا ريبورت

بسم الله الرحمن الرحيم

عذراً أختي فأنا كنت مشغولاً ولم أنتبه لردكي حيث أنني اليوم أنهيت امتحاناتي إضافة الى ظروف العمل

بالنسبة لطلبكي فبالتأكيد ممكن وذلك بواسطة جمل الـ SQL

أما المساعدة فأرجو منكي أن ترفقي البرنامج الذي تعملين عليه للتعديل

أو توضيح المطلوب من البرنامج بشكل أفضل وتحديد ما إن كنتي ما زلتي تعملين على الـ Data .

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

اخي انا اعمل الان على ado ومشيت معي الحمدللة باقي لي التقارير

ارجوك ساعدني فيها ممكن ترسل لي الايميل تبعك عشان ارسل لك البرتامج ولكي اتواصل معك بسرعة

ارجوك اخي انا محتاجة للمساعدتك في اسرع وقت

اخي هذا برنامجي

للتواصل معي هذا الايميل تبعي ممكن ترسل لي البرنامج على الايميل rahef2005@yahoo.com

lip.zip

بسم الله الرحمن الرحيم

لم تشرحي مالذي تريدينه تقارير عن أيش وما البيانات التي تظهر فيها

بسم الله الرحمن الرحيم

rahef كتب:

للتواصل معي هذا الايميل تبعي ممكن ترسل لي البرنامج على الايميل rahef2005@yahoo.com

بما أنكي وضعتي البرنامج في المنتدى فالأفضل مناقشة الموضوع هنا لتعميم الفائدة .

لم أعرف مالذي تريدينه بالضبط لكن بالنسبة لتقرير من أكثر من جدول فعليكي بالآتي :

1- أن ضيفي Command جديد الى الـ DataEnvironment

2 - غيري خاصية CommandType الى adCmdText

3- اكتبي جملة SQL تستدعي المعلومات التي تريدينها من الجداول في قاعدة البيانات

أما باقي الخطوات فهي نفس الخطوات التي قمتي بها سابقاً في عمل التقرير .

بالنسبة لجدول المريض اريد طباعة اخر سجل تم ادخالة وليس كافة السجلات وفي عملية البحث يطبع السجل المعروض فقد المراد البحث عنة و الفورم تبع المحاليل اريد طباعة كافة السجلا حسب تاريخ شرائها

اما التحاليل ومنها 6 تقريبا هنا العرض يكون من جدولين جدول المريض وجدول التحليل نفسة بكافة بياناتة ياريت تعمل لي اي واحد منهم وانا بكمل الباقي زي اي ورق تحليل في الاعلى في الوسط اسم التحليل وفي الايمن اسم المختبر (ليس حقل موجود وانما ليبل يظهر في كافة الصفحات) وفي الايسر بيانات المريض اسمة التاريخ اسم الطبيب المعالج وتحت بيانات التحليل كلها ثم في الاسفل خالص عنوان المختبر (من جدول المريض)

كل البياتات هذة تظهر في كل الصفحات

وجزاك الله خيرا

اتا اسفة لو ثقلت عليك بس انا فعلا محتاجة لمساعدتك

ارجوك ارجوك انا محتاجة مساعدتك اتا معنديش خلفية كبيرة في التقارير وباقي عشرة ايام على تسليم المشروع

ربنا يوفقك لما هو خير

اخي يظهر انك ماتدخل المنتدى بشكل متواصل واتا محتاجة لمساعدتك بسرعة

السلام عليكم

هذا الملف فيه تقرير عن المريض ضيفيه للمشروع

في ال Form3 ضعي هذا الكود

Private Sub Command5_Click()
'DataReport1.Show
SickReport.ShowPatientReport Val(Text1.Text)
End Sub

ويا ريت لو سمحتي ان توضحي الاسئلة اكثر اي ان تخبرينا بالجداول اللتي بدك تقرير منهم و شو الرابط بينهم

لانه مش واضح الي

SickReport.rar

بالنسبة لجدول المريض(sick) اريد طباعة اخر سجل تم ادخالة وليس كافة السجلات وفي عملية البحث يطبع السجل المعروض فقد المراد البحث عنة و الفورم تبع المحاليل اريد طباعة المحاليل حسب اسم المحلول بكافة بياناتة جدول المحلول(mahlol) الفورم تبعة رقم 5

اما التحاليل ومنها 6 تقريبا هنا العرض يكون من جدولين جدول المريض وجدول التحليل نفسة بكافة بياناتة ياريت تعمل لي اي واحد منهم وانا بكمل الباقي زي اي ورق تحليل في الاعلى في الوسط اسم التحليل وفي الايمن اسم المختبر (ليس حقل موجود وانما ليبل يظهر في كافة الصفحات) وفي الايسر بيانات المريض اسمة التاريخ اسم الطبيب المعالج وتحت بيانات التحليل كلها ثم في الاسفل خالص عنوان المختبر (من جدول المريض) وليكن جدول التحليل urin رقم الفورم 4 عندما اقوم بكتابة بيانات في التكستات تم اضيفها الى قاعدة البيانات بعد ذلك اضغظ زر عرض التقرير اريد يظهر البيانات السجل الاخير اللي تم اضافتها بالاضافة الى البيانات اللي من جدول المريض وهكذ ا في كل مرة يعني كاي ورقة تحليل بالنسبة للتقرير المرسل لي لم يشتغل ياريت ياريت اي تقرير يعمل لي يكون في المجلد حقي المرسل اعلى المجلد تبع البرنامج حقي عشان اضمن انة يشتغل اكون شاكرة لكم عسى الله يفرج همومكم وهموم كافة المسلمين فعلا لم يتبقى لي وقت ياريت تكون الفكرة اتضحت كما ياريت ان تشرحوا لى الخطوات عشان انا اكمل بقية التقارير تبع المحاليل ارجوكم جزاكم الله خيرا

الرابط بينهم رقم المريض the number

بسم الله الرحمن الرحيم

أنا عادة لا أعتمد على الـ DataEnvironment وكل اعتمادي على الـ SQL .

rahef كتب:

الفورم تبع المحاليل اريد طباعة المحاليل حسب اسم المحلول بكافة بياناتة جدول المحلول(mahlol) الفورم تبعة رقم 5

يفضل أن يكون عن طريق رقم المحلول وذلك لأنه هو المفتاح الرئيسي وذلك حسب التالي :

نبحث عن المحلول بواسطة الاسم ، ثم نأخذ رقم المحلول ونخزنه في متغير مثل ( Mahlol_Num ) في زر الطباعة نكتب الكود التالي

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\lip.mdb"
rs.Open "select * from mahlol where mnum =" & Mahlol_Num & ";", DB , adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = rs 
DataReport1.Show

على أن تضيفي في التقرير جميع السجلات كما عملت التقرير السابق .

rahef كتب:

بالنسبة لجدول المريض(sick) اريد طباعة اخر سجل تم ادخالة

هل تقصدين السجل المعروض في لحظة الطباعة في الفورم . وتتم الطباعة من أي فورم . ( نفس الكود السابق ) والرقم يكون موجود في الفورم

وأرجو المعذرة فأنا مشغول هذه الفترة ولن أستطيع أن أساعدكي قبل الأربعاء بإذن الله .

حاولي حسب الخطوات السابقة وردي خبر .

بالنسبة لجدول المريض

اريد طباعة المراد البحث عنة اذابحث عن مريض مثلا وظهرت بياناتة اعمل زر طباعة يطبع لي هذة البيانات

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

بالنسبة للكود ان فتخت القاعدة وهي مفثوحة لدي في الفورم الرئيسي عندما انفذ يطلغ error

ممكن تكتبي أيش الخطأ وعند تنفيذ أي جمله

- هل وضعت جميع أسماء الحقول في التقرير بشكل صحيح

- اكتبي قبل السطر الأول db.close لكي يقوم بإغلاق الاتصال القديم وفتح اتصال جديد

بالنسه للكود السابق اعملي تقرير جديد اسمه DataReport3 اكتبي في عرض التقرير في الفورم 5 الكود التالي

db.Close
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\lip.mdb"
rs.Open "select * from mahlol where mnum =" & 0 & ";", db, adOpenStatic, adLockOptimistic
Set DataReport3.DataSource = rs
DataReport3.Show

هل الكود هذا بوجود data enverment او لا اذا ممكن انا اغير الطريقة مش مشكلة المهم اني اعمل التقارير

وجزاك الله خيرا

انا ارسلت برنامجي على ايميلك ولكن لاني اردت ارفاقه هنا يطلع لي رسالة بان حجم المرفق اكبر من الحجم المسموح بة انا اتبعت خطواتك بس انا عملت data enverment لانك لم تحدد لي

ومع ذلك عرض لي كافة السجلات ممكن تعدل لي البرنامج وترسلة لي انا اعتذر بشدة لو ثقلت عليك انا اسفة بس اني محتاجة للمساعدة وللاسف ماحد بيرد علية غيرك

عسى الله يجزيك خيرا إن شاء الله

بسم الله الرحمن الرحيم

قومي بالتعديل على البرنامج كالتالي :

أولا عرفي db2 , rs2 في Module2

Public db2 As New ADODB.Connection
Public rs2 As New ADODB.Recordset

ثم استبدلي الكود في المشاركة السابقة للفورم 5 ( المحاليل ) بالكود التالي :

If db2.State = adStateOpen Then db2.Close
db2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\lip.mdb"
rs2.Open "select * from mahlol where mnum =" & Val(Text1.Text) & ";", db, adOpenStatic, adLockOptimistic
Set DataReport3.DataSource = rs2
DataReport3.Show

أما في باقي الشاشات فقومي بتعديل جملة الـ SQL في السطر الثالث كما أنه يجب أن تعملي DataReport جديد لكل شاشة وتعدلي اسم التقرير بدلا من DataReport3 الى اسم التقرير الجديد .

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

مازلت لم تحدد لي هل data enveirment او لا

وجزاك الله الف خيرا

بسم الله الرحمن الرحيم

أنا لا أستخدم data enveirment علما أن وجودها لا يؤثر وأفضل حذفها ، وهذا يرجع لكي .

لم تردي في ما إذا نفذ البرنامج معكي أم لا .

الكود لايتفذ تطلع شاشة بيضاء بدون اي بيانات ماعد اسم التقرير ممكن تعدل لي البرنامج وترسلة لي اكون شاكره لك ياخي

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

لو تريد البرنامج المعدل لدي رح ارسلة لك

جزاك الله خيرا

الكود لايتفذ تطلع شاشة بيضاء بدون اي بيانات ماعد اسم التقرير ممكن تعدل لي البرنامج وترسلة لي اكون شاكره لك ياخي

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

لو تريد البرنامج المعدل لدي رح ارسلة لك

انا جربت طريقة الاخ هنا في المنتدى بس لمالضيفها لبرنامجي تطلع رسالة data source not found

انا عملتها في برنامج منفصل وتنقذت ممكن تشوفها لي لو بتمشي معك او تعدل لي بطريقتك ارجوك

جزاك الله خيرا

reoprt.rar