امثلة مفيدة

[محب العقيدة]

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

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

المثال الاول احضار الحساب الاب والابناء وابناء الابناء الخ دون استخدام الدالة

like

  المثال الثاني سيكون عن استخدامات

Data shaping

والتي تستخدم في انشاء

recordsets within recordsets

ضمن

ADO OBJECT

والتي نستخدم في العرض الشجري للبيانات

 

PARENT.accdb

تم تعديل يناير 26, 2020 بواسطه محب العقيدة

[أبوبسمله]

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

ربنا يجعله فى ميزان حسناتك ان شاء الله

 

[محب العقيدة]

السلام عليكم

المثال الثاني

 المكتبات الممضافة
لعرض الشجري
Microsoft Windows Common Controls 6.0
ADOو
Microsoft ActiveX Data Objects 6.1 Library
الصيغة المبسطة بوجود ابناء فقط
SHAPE {parent-command}
APPEND ({child-command} [[AS] table-alias]
RELATE (parent-column TO child-column)
الصيغة المركبة مع وجودابناء ابناء......
SHAPE {SELECT * FROM Parent}
APPEND ({SELECT * FROM Child1}
RELATE parent-column TO child1-column) AS child1-alias,
({SELECT * FROM Child2}
RELATE parent-column TO child2-column) AS child2-alias
مثال
SHAPE {SELECT CustomerID AS [Cust Id],
CompanyName AS (Company) Customers}
APPEND ({SELECT CustomerId, OrderDate, OrderId,
Freight FROM Orders} AS custOrders
RELATE (CustomerID TO CustomerID)
جدولcustomers وجدولorders
استخدام select الاولى تمثل الاب لمجموعة السجلات
استخدام select الثانية تمثل الابن لمجموعة السجلات
استخدام append  تمثل اضافة الابناء الاىناء
 adChapter يمثل الحقل في مجموعة الاباء  الناتج عن  اضافة الابناء الى الاباء
في المثال السابق  سمي ب Custorders وفي حال لم نسمه يعطى اسما افتراضيا
استخدام relate للربط بين الاباء والابناء دون الحاجة الى ذكر اسماء الجدول فقط الترتيب
مزود خدمة data shaping service  يكون
conn.Provider = "MSDataShape"
الارتباط بالسجلات في اكسيس 2003
Dim conn As ADODB.Connection
strConn = "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & CurrentProject.Path & _
   "\Northwind.mdb"
    conn.ConnectionString = strConn
الارتباط ب اكسيس 2007 فما فوق
strConn = "Data Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & CurrentProject.Path & _
   "\Northwind.accdb"
لنظر الى المرفق النموذج

المثال الثالث ان شاء الله
كيفية عرض وفتح التقارير والنماذج في العرض الشجري

 

TREEVIEW.zip