الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

درس (Vertical to Horizontal) للأخت زهره اود رؤية مثالا له

بدأه كوماندير في 20 سبتمبر 2014 · 4 رد · 389 مشاهدة · في قواعد بيانات Microsoft Access
عمودي الى افقي
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

في الرابط 

 

/index.php/topic/66750-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%A8%D9%8A%D9%86-%D8%A7%D9%84%D9%86%D8%B8%D8%B1%D9%8A%D8%A9-%D9%88%D8%A7%D9%84%D8%AA%D8%B7%D8%A8%D9%8A%D9%82/?hl=%2B%D8%A7%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85%D8%A7%D8%AA+%2B%D8%A7%D9%84%D9%81%D8%B1%D8%B9%D9%8A%D9%87#entry331862

 

دروسا لذيذه ومفيده ومهمه جدا ....

 

المشكلة ان الصور غير موجوده ...

 

مايهمني الان هو المشاركه رقم 4 بهذا الموضوع .......(عامودي الى افقي : Vertical to Horizontal)

 

 

اريد مثالا للاستعلام التالي :

SELECT DISTINCT Employees.EmpID, Name, 
(SELECT Value FROM EmployeesData AS T2 WHERE (T2.StatType 'Age') And (T2.EmpID = Employees.EmpID)) As Age, 
(SELECT Value FROM EmployeesData AS T2 WHERE (T2.StatType Height) And (T2.EmpID = Employees.EmpID)) As Height, 
(SELECT Value FROM EmployeesData AS T2 WHERE (T2.StatType Weight) And (T2.EmpID = Employees.EmpID)) As Weight, 
FROM (Employees INNER JOIN EmployeesData ON Employees.EmpID= EmployeesData.EmpID

فهلا تكرمتم بارفاق مثالا او مثالا مشابها .......ز

#2

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

 

ولكني لم استطع بناء الاستعلام فيظهر لي خطاء عند نسخ ولصق البيانات

 

HorizVertical.rar

#3

اخواني الكرام لو تكرمتم الموضوع مهم للغايه .........؟؟؟؟؟؟؟؟

#4

الحمد لله بعد محاولات عديده توصلت الى الحل

وهذا مرفق به استعلامات فرعيه اولا منفرده ثم الاستعلام المطلوب وهي مدرجه

 

 

وهذه تعتبر طريقة بديله للاستعلامات الجدوليه

 

بقي تسأؤل وحيد وهو في الموضوع المذكور هناك كود يستخدم بديلا للاستعلام

 

ولكن بصراحه لم ادري اين اضع هذا الكود وكيف استخدمه

 

الكود طبعا

Private Sub VerticalToHorizontal2( ) 
Dim db As Database 
Set db = CurrentDb 
Dim rsEmp As Recordset 
Dim rsData As Recordset 
Dim rsHor As Recordset
Set rsEmp = db.OpenRecordset("Employees") 
Set rsHor = db. OpenRecordset("EmployeesOutput") 
Do While Not rsEmp.EOF 
Set rsData = db.OpenRecordset( _ 
"SELECT * FROM EmployeesData WHERE EmpID = " & rsEmp!EmpID) 
rsHor.AddNew 
rsHor!EmpID = rsEmp!EmpID 
rsHor!Name = rsEmp!Name 
Do While Not rsData.EOF 
rsHor.Fields(rsData!StatType).Value = rsData!Value 
rsData.MoveNext 
Loop 
rsHor.Update 
rsEmp.MoveNext 
Loop 
rsEmp.Close 
rsData.Close 
rsHor.Close 
End Sub

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

 

HorizVertical.rar

#5

وهناك سؤال ايضا للعباقرة

 

فالجدول T2 الغير موجود اصلا مافائدته ولم لانفعل جدول EmployeesData بدلا عنه في الاستعلامات الفرعيه ؟؟

مواضيع مشابهة