جُمل SQL

[أبو آدم]

جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل SQL صغير الحجم كبيرة المفعول ، وأشارككم بها ، من باب العصف الذهني ، علّ فائدة بسيطة تتحقق منها لأحد إخوتنا وننال دعوة طيبة بظهر الغيب.

وإخترت ثلاثة منها ينطبق عليها الوصف ، صغيرة الحجم كبيرة المفعول

أولها :

DoCmd.RunSQL "SELECT *INTO Customers_copy FROM Customers;"

وتقوم بنسخ الجدول Customers بكامل محتوياته و تسميه الجدول الجديد Customers_copy ، باستخدام INTO ثانيها :

DoCmd.RunSQL "SELECT CustomerID, CompanyName, ContactName INTO Table2 FROM Customers;"

وتقوم بنسخ أعمدة محددة بالإسم من الجدول Customers بكامل محتوياتها وإنشاء جدول جديد و تسميه Table2 ، باستخدام INTO وثالثها:

Me.Combo2.RowSource = "SELECT DISTINCT City FROM Customers;"

وتقوم باسناد مصدر صفوف لمربع التحرير و السرد من الجدول Customers ومن العامود City ( ومن غير تكرار)

والمحلل لتركيبة الجملة يرى مدى بساطتها وبالمقابل أداء كبير ....

وهذه الروتينات أستخدمها لإنشاء الجداول المؤقتة لغايات إستخراج النتائج الإحصائية أو تجميع معلومات من مجموعة جداول في جدول واحد .

آملاً من الله عزّ وجلّ أن يستفيد منها الإخوة

والله من وراء القصد .......

NA_SQL01.rar

[أ / محمد صالح]

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

حقاً أخي نارت

لغة sql بها الكثير من الأسرار

وها أنت خضت معنا فيها فمرحب بك

على أمل التواصل معكم في هذا الموضوع بخفايا sql

وفقكم الله

[ابوخليل]

روائع ... والرفقة مباركة .. وانما يقطع الطريق بالحديث

نحن بالانتظار ...

[أبو آدم]

شَرُفتُ بمروركم الطيب

أخي محمد صالح تواصلكم يعنيني وتَقَرُ به عيني ... فمرحباً

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

والله المستعان ...

......

[ياسر الحافظ]

قلت في احدى مشاركاتي

لدينا خبرات يفتخر بها العالم

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

وفقك الله

ابو الحارث

[أبو آدم]

جزيت خيراً أبا الحارث ... ولا شكّ أنك مما نفخر به ونعتزّ ... وإخوتنا وأساتذتنا يملؤون الدنيا مما علّمهم الله

سررت بمرورك الطيب

..............

[أ / محمد صالح]

يمكن تعدد حقول وجداول جملة select بمعنى أنه يمكننا الاستعلام من أكثر من جدول

مثال على ذلك

SELECT orders.order_id, suppliers.name FROM suppliers, orders WHERE suppliers.supplier_id = orders.supplier_id;

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

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

[أبو آدم]

لإستخدام Sum ، ولتجميع قيم أجور الشحن كإجمالي لصفقات الموظف ، ولكل موظف على حدى ، وكمصدر لسجلات نموذج

Me.Form.RecordSource = "SELECT EmployeeID, Sum(Orders.Freight) AS Freight FROM Orders GROUP BY EmployeeID;"

وتكون النتيجة

[مضيعة بيتهم]

الله يعطيكم الف عافية :)

[الصمت المتحدث]

بوركت أخي الفاضل دائما ما تجود علينا بدرر ما يسر الله لك من علم

ربي يرزقك الصحة ويدوم علينا هذه النعمة

دمت سالما ورحت غانما

[أبو آدم]

لنتعرف على الفرع الذي فاقت مبيعاته مبلغ 1000 دينار

SELECT store_name

FROM Store_Information

WHERE Sales > 1000

...........

[أبو آدم]

للتعرف على عملائنا في مدينتي عمان والعقبة ، نستخدم العبارة التالية :

SELECT *

FROM Customers

WHERE City IN ('Amman', 'Aqaba');

[أبو آدم]

لإضافة سجل جديد في الجدول Customer بالاسم الأول First_Name وإسم العائلة Last_Name ، نستخدم العبارة التالية :

INSERT INTO Customer (Last_Name, First_Name) values ('Lebzo','Nart');

[أبو آدم]

لمعرفة قيمة إجمالي أجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية :

SELECT SUM(Freight) FROM Orders

[عبدالله المجرب]

سنحتاج لتعلم هذه الجمل

نشكر للاستاذ ابو ادم التكرم بمشاركتنا لاسرار هذه اللغة

=====

هل هناك قواعد متبعة لكتابة هذه الاوامر

[أبو آدم]

بدأنا البحث بالتفاصيل .... هنا .... http://www.officena.net/ib/index.php?showtopic=41731

......................

[عبدالله المجرب]

هل هناك قواعد متبعة لكتابة هذه الاوامر

وجدت المطلوب هنا

http://www.officena.net/ib/index.php?showtopic=41731

[عبدالله المجرب]

مشاركتي كتبتها قبل زيارة ذلك الرابط فكل الشكر لك ابا ادم

[نورسعيد]

كل الإعزاز والتقدير لشخصكم الكريم للأخ العزيز / أبو آدم

أشكر شخصكم على هذه الجمل الذكية الرائعة حقآ _ فهى مغرية جدآ لأن يطرقها أى مبتدىء بسيط

أزادكم الله من علمه

[محمد ايمن]

جزاك الله كل خير اخي ابو آدم

و أدعوك لتثبيت الموضوع

[أبو آدم]

لمعرفة أعلى قيمة لأجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية :

SELECT MAX(Freight) AS MaxFreight

FROM Orders

.............

[أبو آدم]

لمعرفة أقل قيمة لأجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية :

SELECT MIN(Freight) AS MINFreight

FROM Orders

............

[أبو آدم]

لتحديد مصدر الصف لمربع التحرير و السرد بجملة SQL ضمن VBA وفي حدث عند التحميل للنموذج

Me.cboTitle.RowSource = "SELECT Employees.Title " & vbCrLf & _

"FROM Employees " & vbCrLf & _

"GROUP BY Employees.Title " & vbCrLf & _

"ORDER BY Employees.Title;"

...........

[أبو آدم]

للتعرف على المبيعات اليومية و أسعار البيع لليوم ، نستخدم العبارة التالية :

SELECT ProductName, UnitPrice, Now() as PerDate FROM Products

..............

[أبو آدم]

لسرد أسماء الموظفين مرتبة تنازلياً و حسب الإسم الأخير ، ببساطة نستخدم العبارة التالية :

SELECT * FROM Employees 
ORDER BY LastName DESC