تجميع تقرير بالداتا ريبوت

تفضل مثالك باستخدام Datainveronment

إذا اردتها بالكود ابحث في المنتدى بكلمة Grpuping

تحياتي

________________.rar

اخي الكريم Omani

'لتغغير شكل الماوس الى الساعة الرملية

MousePointer = 11

'الاتصال بقاعدة البيانات

db.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\db1.mdb"

'تم حجز متغغير مسبقا في الجنرال باسم cm وهو من نوع Command

وهنا اعدادات الكوماند

With cm

تحديد قاعدة البيانات

.ActiveConnection = db

نوع الكوماند تكست ليقبل جمل السكيوال

.CommandType = adCmdText

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

.CommandText = "SHAPE {SELECT Dep FROM TBL1 Group by Dep Order by Dep} AS T1 APPEND ({SELECT * FROM Tbl1 Order by Dep,M_Name} AS T2 RELATE Dep TO Dep) AS T2"

هنا تنفيذ الاستعلام

.Execute

End With

هذا المتغيير تم تسجيله مسبقا من نوع ريكوردست'

With rs

تحديد نوع الاتصال

.ActiveConnection = db

هنا جعل الريكورد ست من نوع كلاينت يووز

.CursorLocation = adUseClient

فتح الريكوردست وتنفيذ الاستعلام المسبق انشاءه

.Open cm

End With

اخي الكريم وجدت هذا الكود وانت قمت بشرحه ولكنني لم افهمه تماما والميزة فيه في انه لا يستخدم الداتا اينفرومينت وهذا الفيرومنت لم افها تماما ولكنني

فارجوا بيان المفهوم المسمى shape والحرف T1,T2 ما هو مدلولها

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

للرفع

للرفع

اين انت يا اخ عماني

للرفع يا اخواني

هل من مجيب

اخي الكريم Omani حياك الله ...

ممكن اخي الكريم تشرح لي مفهوم طريقة القروبكن كما بينتها لكمنقبل المشاركة منقبل

وشكرا

VBase كتب:

اخي الكريم Omani

'لتغغير شكل الماوس الى الساعة الرملية

MousePointer = 11

'الاتصال بقاعدة البيانات

db.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\db1.mdb"

'تم حجز متغغير مسبقا في الجنرال باسم cm وهو من نوع Command

وهنا اعدادات الكوماند

With cm

تحديد قاعدة البيانات

.ActiveConnection = db

نوع الكوماند تكست ليقبل جمل السكيوال

.CommandType = adCmdText

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

.CommandText = "SHAPE {SELECT Dep FROM TBL1 Group by Dep Order by Dep} AS T1 APPEND ({SELECT * FROM Tbl1 Order by Dep,M_Name} AS T2 RELATE Dep TO Dep) AS T2"

هنا تنفيذ الاستعلام

.Execute

End With

هذا المتغيير تم تسجيله مسبقا من نوع ريكوردست'

With rs

تحديد نوع الاتصال

.ActiveConnection = db

هنا جعل الريكورد ست من نوع كلاينت يووز

.CursorLocation = adUseClient

فتح الريكوردست وتنفيذ الاستعلام المسبق انشاءه

.Open cm

End With

اخي الكريم وجدت هذا الكود وانت قمت بشرحه ولكنني لم افهمه تماما والميزة فيه في انه لا يستخدم الداتا اينفرومينت وهذا الفيرومنت لم افها تماما ولكنني

فارجوا بيان المفهوم المسمى shape والحرف T1,T2 ما هو مدلولها

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

اخي الكريم SHAPE هي تقنية الاب والابن او التقنية الهرمية ومدعومه من قبل مزودات الاتصال بقواعد البيانات ..

اما T1 فهي الاستعلام الاول الذي يظهر الرؤوس كأن نقول

SQL = "select * from Mytable"

هنا اصبحت SQL هي نتيجة جملة الاستعلام ... وهكذا الحال بالنسبة T1 اي انها تحمل نتيجة استعلام وهي عبارة عن RecordSet مربوطة بنتيجة الاستعلام الثاني T2 باستخدام الوظيفة APPEND وهي لربط الجدولين ببعض في الحقول اللي تتساوى فيها فقط وتعرف بحقول الربط المتشابهه او ما تسمي الحقل الاساسي Primery Key والحقل التابع Forgn Key وذلك باستخدام وظيفة التواصل او الترابط RELATE أي دليل التواصل .

تحياتي