نجوم المشاركات

جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل 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 Me.cboPhylumID.RowSource = "SELECT tblPhylum.PhylumID, tblPhylum.PhylumName FROM tblPhylum " & _ " WHERE KingdomID = " & Nz(Me.cboKingdomID) & _ " ORDER BY PhylumName" تمكين وعدم تمكين مربعات التحرير و السرد عبر الكود وحسب قيم المربعات المتتالية Me.cboPhylumID.Enabled = (Not IsNull(Me.cboKingdomID)) Me.cboClassID.Enabled = (Not IsNull(Me.cboPhylumID)) Me.cboOrderID.Enabled = (Not IsNull(Me.cboClassID)) Me.cboFamilyID.Enabled = (Not IsNull(Me.cboOrderID)) Me.cboGenusID.Enabled = (Not IsNull(Me.cboFamilyID)) [*]تصفية مربع القائمة إستناداً لخيارات مربعات التحرير و السرد Dim strRS As String ' Filter the list box appropriately based on the combo box selection(s) strRS = "SELECT qryTaxonomy.SpeciesName, qryTaxonomy.Description FROM qryTaxonomy" If Not IsNull(Me.cboGenusID) Then strRS = strRS & " WHERE GenusID = " & Me.cboGenusID ElseIf Not IsNull(Me.cboFamilyID) Then strRS = strRS & " WHERE FamilyID = " & Me.cboFamilyID ElseIf Not IsNull(Me.cboOrderID) Then strRS = strRS & " WHERE OrderID = " & Me.cboOrderID ElseIf Not IsNull(Me.cboClassID) Then strRS = strRS & " WHERE ClassID = " & Me.cboClassID ElseIf Not IsNull(Me.cboPhylumID) Then strRS = strRS & " WHERE PhylumID = " & Me.cboPhylumID ElseIf Not IsNull(Me.cboKingdomID) Then strRS = strRS & " WHERE KingdomID = " & Me.cboKingdomID End If strRS = strRS & " ORDER BY qryTaxonomy.Description;" Me.lstSpeciesID.RowSource = strRS Me.lstSpeciesID.Requery والتطبيق خير معين على الفهم و التجريب والله من وراء القصد ... وهو حسبي ........... CascadingComboBoxes.zip

الجزء 2 سنقوم ضمن هذا الجزء بشرح تطبيقات عملية وبعض دقائق الأمور الحاسمة و المهمة ، كي نتمكن من إستخدام SQL بسهولة ويسر . ومن خلال هذا الفصل سيتم شرح وتفصيل جملة (عبارة) SELECT وتستخدم عبارة SELECT لتحديد البيانات من قاعدة بيانات ، ويتم تخزين النتيجة في جدول النتيجة، المسمى ( مجموعة النتيجة ) result-set . SELECT بناء الجملة SQL SELECT Syntax SELECT column_name(s) FROM table_name و .... SELECT * FROM table_name[/right] ومثال ذلك تعاملنا مع الجدول Employees من قاعدة البيانات المختارة للتطبيق Northwind نريد تحديد مضمون الأعمدة "LastName" و "FirstName" من الجدول Employees ، فنستخدم العبارة التالية : SELECT LastName,FirstName FROM Employees أو SELECT Employees .LastName, Employees .FirstName FROM Employees; SELECT Employees .* FROM Employees; فائدة : النجمة (*) هو وسيلة سريعة لتحديد كافة الأعمدة! ويكون شكل result-set كما كما في الاستعلام Q_SelectAll ....................................... NA_NorthwindSQL.rar ويكون شكل result-set كما في الاستعلام Q_Select SELECT * نريد تحديد كافة الأعمدة من الجدول Employees ، فنستخدم العبارة التالية : SELECT * FROM Employees أو

قمت بعمل التعديل ولم الاحظ اي خطأ ولكن جرب المرفق واخبرني اين الخطأ بالضبط تحياتي,,, مثال على استبدال قيمة حقل بشرط.rar