لغة الإستفسارات البنيوية SQL

بكل تأكيد

وياريت اشوفوا هذه المشاركة في منتد الاوراكل

http://arabteam2000.com/vb/showthread.php?...?threadid=31620

نعم و بكل تأكيد لأن لغة SQL من أهم اللغات التي يتعامل معها المبرمج في برمجة التطبيقات المعتمده على قواعد البيانات بغض النظر عن نوع قاعدة البيانات التي تستخدم سواء كانت أكسس أو أوراكل أو SQL SERVER أو أي قاعدة بيانات أخرى فهي لغة مشتركه بينها جميعا.

أخي مصلح .. نعم بالتأكيد نؤيدك في هذه الفكرة .. وجزاك الله خيرا(f)

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

أخي العزيز : مصلح الحريصي

أرى أن الدورة التي التحقت بها ستعود علينا بالنفع ;) وهذا أول الغيث (gift).

نؤيدك وبشده بدء دروسا خاصه في لغة SQL البنيوية .

(clock)

تحياتي (f)

========

شكرا اخي مصلح الحريصي

معاك وانا في انتظار هذه الدورس

نود أن تكون هذه الدورس من البداية ويعمل لها تخطيط للمواضيع التي سوف تطرح واتمنى أن يكون الشرح مدعوم بالصور والامثله وتكون من الصفر الى القمه وشكرا

قبل البدء يجب أن تعرف على بعض مفردات لغة SQL حتى نستطيع التعامل معها بالشكل المطلوب وهذه بعض المفردات الهامة :

الرمز أو الأمر الوصف

____________________________________________________________

SELECT استرجاع البيانات البيانات المخزنة من قاعدة البيانات

____________________________________________________________

INSSERT يضيف سجلات جديدة للجدول ويستخدم في إلحاق سجل أو

سجلات من جدول إلى أخر أو مجداول إلى جداول أخرى

____________________________________________________________

UPDATE تعديل البيانات أي استبدال بيانات ببيانات أخرى

____________________________________________________________

DELETE حذف سجل أو سجلات من جدول

____________________________________________________________

CREATE

CREATEtABLE ينشيء جدول جديد في قاعدة البيانات أو ينشيء

فهرساً لحقل موجود أو مجموعة من الحقول

____________________________________________________________

ALTER ينشيء حقول جديدة لجول موجود أو يحذف حقول موجودة

____________________________________________________________

DROP يحذف جدولاً موجود أو فهرساً موجود لحقل أو مجموعة من الحقول

____________________________________________________________

DISTINCTROW يحذف السجلات المكرره في النتيجه

____________________________________________________________

AS تعيين الاسم المستعار الذي نريد استخدامه لاسم الحقل الذي يسبق الاسم المستعار

____________________________________________________________

FROM يعين الجدول أو الاستعلامات التي تحتوي على الحقول التي نريدها في النتيجة

____________________________________________________________

INTO تأتي بعد كلمة INSERT مباشرة وتعني اضافة أو إلحاق إلى ويأتي بعدها اسم الجدول

____________________________________________________________

WHERE يعين المعيار ( الشرط ) الذي نريد استخدامه لتحديد السجلات ويأتي بعدها الشرط الذي نريد أن يتحقق الكمبيوتر منه و WHERE ظرف بحث تحتوي النتيجة على سجلات فقط يكون ظرف البحث لها TRUE

____________________________________________________________

JOIN يعين الربط بين السجلات في الجدول أو استعلامات مختلفة تستخدم JOIN مع الكلمات الأساسية INNET أو LEFT أو RIGHT لتحديد نوع الربط

____________________________________________________________

ORDERBY تقوم بترتيب النتائج حسب العمود المحدد لها 0

____________________________________________________________

DISTINCT يقوم بجمع القيم المكرره مثل لو ورد اسم محمد في الجدول 20 مرة فبواسطة هذه الكلمة يظهر اسم محمد مرة واحدة فقط

____________________________________________________________

GLOBAL تجعل الجدول المؤقت كجدول عام يمكن الوصو إليه من كامل التطبيق وهي بهذه الصيغة

CREATE GLOBAL TEMPORARY TABLE

____________________________________________________________

LOCAL إنشاء جدول مؤقت محلي وهي بهذه الصيغة

CREATE LOCAL TEMPORARY TABLE

____________________________________________________________

بالنسبة للأمثله فليس الوقت مناسباً لها وأحب أن أنوه بأنه من الأفضل حفظ هذه المفردات حتى نستطيع التعامل معها فيما بعد

وتوجد كلمات أخرى تستخدم في قواعد أوراكل ولكن ما يهمنا هنا هو التدرج وسوف نتطرق بشكل موسع لكل عبارة مما سبق وهناك تطبيق على ذلك وأمثلة حتى يتمكن كل متابع معنا من التعامل مع هذه اللغة بكل بساطة ويستغني عن القص واللصق بل ستصبح سهلة جداً 0

هناك أيضاً الدوال المستخدمة مع لغة Sql والشروط والعمليات الحسابية وستأتي في حينها 0

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

الاخ الكريم مصلح انا عندي اقتراح ما ادري ايش الراي ، ان التطبيق يكون على قاعدة بيانات Northwind الي تجي مع الاكسس كمثال ؟

بارك الله فيك اخي / مصلح الحريصي :)

الله يزيدك من العلم .... ماشاء الله

عندي طلب أخي :

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

مع خالص دعائي لك أخوك / shz

الحمد لله على السلامه للأستاذ الغالي مصلح

وعقبال أبو حمود إن شاء الله

والله الموضوع مهم وأتمنى أن تستمر كما عودتنا دائماً وأنا أدين لك بالكثير في تعلم الأكسس ولهذا المنتدى الرائع والكبير بأعضائه فإلى الأمام .

الأخ:

System

بالنسبة للتطبيق أفضل أن تكون قاعدة البيانات من صنعنا جميعاً حتى نتابع الموضوع كلنا وسوف تكون الطريقة كما يلي:

1_ نضع تسميات حقول الجدول وحجم كل حقل ونوع بيانات الحقول واسماء الجداول هنا في المنتدى قبل إنشاء القاعدة وأن رأيتم أن تلك القاعدة أصلح وأنفع فلا يوجد لدي أي مانع وعلى الراس والعين0

الأخ:

shz

بالنسبة للشرح وإعطاء مثال فأبشر بما طلبت ولكن لي رجاء التريث وسوف تتضح الأمور مع الدروس المقبلة ولكن يجب أن نحفظ كما أسلفت لنتمكن من فهم الدروس المقبلة بدلاً من نسأل ماذا تعني هذه العبارة0

الأخ:

أبو يعلى

بإذن الله سنستمر إذا وجدنا تفاعل من الجميع فلي طبع قد يكون سيء ولكنه ملازمني وهو : أنني أحب إذا تعبت في أي موضوع أن يستفاد منه ولا أدور على المدح والثناء ولكن أسعد اللحظات عندي يوم أضع موضوع وأجد أن أحد استفاد منه ولو لم يقلي عن ذلك0

لم أرى أحد شاركني في الشرح والإضافة وكنت أتمنا أن أسعد بالحوار والمشاركة في ذلك0

للجميع تحياتي

الاخ مصلح

توكل على الله ونتمنالك كل التوفيق وان شاء الله الكل يستفد........

اضافه

ياريت الموضوع اتثبت عشان الكل يستفيد

:D

(f)(gift)(f)

نعم يا استاذنا ...........مصلح الحريصي

فكرة ان يكون المثال من عمل الاعضاء افضل بكثير

وانت المعلم وما تراه ينفع للطلاب فهو الرأي السديد باذن الله تعالى

وأسأل الله ان يجزيك خير الجزاء وان ينفع بعلمك

....

.....

.......

.........

مع العلم انني لم انسى ما تعلمته منك وما ارشدتني الية سابقا عندما كان اسمي ( مرشد المبتدئين ) ولكن للأسف نسيت كلمة المرور فراح عليه اشتراكي ورجعت لكم باسم ( العلم نور )

بارك الله فيك اخي : مصلح الحريصي

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

الأن سوف نقوم بإنشاء قاعدة بيانات ونسميها DataBaseSQL هذا الأسم ليس شرط بل يمكن تسميتها بأي اسم أخر

ثم سننشيء جدول واحد وقد ننشيء الكثير من الجداول ولكن نبدأ بها تدريجياً0

اسم الجدول : customeTbl

اسم الحقل -------------نوع البيانات ---------------- توضيح

customerID ---------------- رقم ------------------- رقم العميل

customeName--------------- نص ------------------ اسم العميل

customeAddress------------ نص ------------------عنوان العميل

customeTel----------------- نص ------------------ هاتف الحميل

هذا يكفي لأن الهدف هو فهم الطريقة فقط

الأن ننشيء نموذج بدون مصدر ونضع عليه أربع مربعات نص بالأسماء التاليه:

customerID

customeName

customeAddress

customeTel

ونضيف اربعة أزرار على النموذج ونسميها بالتسميات التاليه:

الاسم البرمجي-------------------العنوان

cmdSave --------------------- حفظ سجل

cmdUpUpdate-----------------حفظ التعديل

cmdDelete---------------------حذف سجل

cmdClose-------------------- إغلاق النموذج

أهم شيء هو ضبط مرجع DAO من قائمة Tools أول خيار References ثم من الشاشة التي تظهر نختار المرجع Microsoft DAO 3.6 ObjectLibrary أي نضع على هذا الخيار علامة صح0

أكرر جميع التسميات ليست إلزامية ولكن غير التسميات عليه التغيير في الكود

الأن نعرض النموذج في وضع التصميم وننقر على زر حفظ سجل ثم ننقر زر الفأرة الأيمن ثم خصائص ثم حدث ونختار عند النقر وننقر على الزر ذي ثلاث نقاط فتظهر الوحدة النمطية وهناك نكتب الكود التالي:

    If MsgBox(" سوف يتم إضافة العميل (( " & [customeName] & "" _
    & "  ))  إلى العملاء في النظام هل توافق على ذلك  ", vbMsgBoxRight& _
    & vbExclamation + vbYesNo + vbDefaultButton2, "") = vbYes Then

   Dim db As Database, rsCust As Recordset, strSQL As String

   Set db = CurrentDb
   strSQL = "Select * from customeTbl "
   Set rsCust = db.OpenRecordset(strSQL, DB_OPEN_DYNASET)

    strSQL = "INSERT INTO customeTbl "
    strSQL = strSQL & "( customerID,"
    strSQL = strSQL & "customeName,"
    strSQL = strSQL & "customeAddress, "
    strSQL = strSQL & "customeTel )"

    strSQL = strSQL & " values ('"

    strSQL = strSQL & Me!customerID & "','"
    strSQL = strSQL & (Me!customeName) & "','"
    strSQL = strSQL & (Me!customeAddress) & "','"
    strSQL = strSQL & Me!customeTel & "');"
    db.Execute strSQL

       MsgBox "لقد تم حفظ السجل بنجاح", vbMsgBoxRight, ""
        Call ClearControls
        customerID = ""
        Exit Sub

        Else
       MsgBox "لقد تم إلغاء حفظ السجل ", vbMsgBoxRight, ""
       DoCmd.CancelEvent
       Me!customerID.SetFocus
        End If

نختار من القائمة اليسرى في صفحة الأكواد General

ونكتب الكود التالي :

Private Sub ClearControls()

        Me!customeName = ""
        Me!customeAddress = ""
        Me!customeTel = ""
End Sub

أنتبه تغش حاول كتابة الأكواد بدلاً من النسخ واللصق حتى يرسخ الكود في الذاكرة0

الأن وبعد أن أنهيت العمل جرب إدخل بيانات وأحفظ وأفتح الجدول هل تجد البيانات في الجدول0

لاحظ أننا استخدمنا : Select * from customeTbl لإختيار جميع الحقول في الجدول وكأننا ننبه الجدول لتهيئته لإستقبال البيانات ثم أستخدمنا العبارة

INSERT INTO customeTbl ومعناها إلحاق إلى الجدول المسمى customeTbl

ثم قمنا بتقسيم عبارات SQL إلى أجزاء ليسهل متابعتها وأيضاً تكون مرتبة0

الشرح المفصل سيأتي ولكن نحاول أولاً إنجاز هذا العمل 0

الكثير منا يرغب عند تسجيل رقم الموظف أن تظهر له رسالة إذا كان الموظف مسجل من قبل0

مع SQL أنا لا أريد ظهور رسالة بل أريد أن تظهر جميع بيانات العميل الذي سجلة رقمه بعد تسجيل الرقم والضغط على مفتاح أنتر أو تاب 0

وأريد أيضاً أن يصير زر حفظ بهات وأزرار حفظ التعديل وحذف ممكنين وإذا لم يكن العميل مسجل من قبل أريد أن يكونان زري حفظ التعديل وحذف سجل باهتين أي غير ممكنين ويكون زر الحفظ ممكن بدلاً من باهت0

لذلك سوف نعمل التالي:

نذهب إلى مربع النص المسمى والنموذج في وضع التصميم ونختار خصائص ثم حدث بعد التحديث وفي الوحدة النمطيه نكتب الكود التالي:

    On Error GoTo y
    Dim MyDatabase As Database
    Dim MyTable As Recordset
    Dim MySQL As String
    Set MyDatabase = CurrentDb

        MySQL = "Select * from customeTbl Where "
        MySQL = MySQL & "[customerID] = " & Me.customerID & ""

    Set MyTable = MyDatabase.OpenRecordset(MySQL, DB_OPEN_DYNASET)

        Me!customerID = MyTable("customerID")
        Me!customeName = MyTable("customeName")
        Me!customeAddress = MyTable("customeAddress")
        Me!customeTel = MyTable("customeTel")

        MyTable.Close
        Me.cmdDelete.Enabled = True
        Me.cmdUpUpdate.Enabled = True
        Me.cmdSave.Enabled = False
y:
If Err.Number = 2113 Then

        Me.cmdDelete.Enabled = False
        Me.cmdUpUpdate.Enabled = False
        Me.cmdSave.Enabled = True
        Call ClearControls


End If

الأن سجل موظف وأحفظ السجل ثم كرر رقم الموظف وأنقر أنتر أو تاب ولاحظ ظهور بيانات الموظف وشاهد حركات الأزرار

سجل رقم أخر 0

أكرر سوف يتم شرح الأكواد سطر سطر ولكن لا تستعجلون وجربوا ما أخذناه اليوم 0

سوف أرفق مثال على كل ما سبق ولكن أرجو أن أرى أمثلتكم أنتم أيضاً

إلى القاء في الدرس المقبل إن شاء الله

بارك الله فيك يا مصلح وأصلح أحوالك وأحوالنا معك .

وفى انتظار المزيد من الدروس المفيدة جدا .

أشرف خليل

اخى الكريم /مصلح

اصلح الله بالك ودنياك وآخرتك وجعل هذا فى ميزان حسناتك

شرح عظمة واسلوب سهل ذادك الله علما يا اخى ووفقك

أخي مصلح

توكل على الله فإن الله لا يضيع أجر عامل منكم ، سر ونحن من ورائك وسوف تكون الأستفادة مزدوجة بلا شك ، إفادة لنا وإفادة لك في كسب الأجر والثواب ، وهذا ليس مديحا أو ثناءا بل هو ما تظهره حقائقك في هذا المنتدى الطيب.

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

مبدع يا أستاذ مصلح

أصلح الله حالك وبارك الله في جهودك

======

ليت كل من تعلم شيئ يوصله لغيره لنتشر العلم بين الناس

=====

واصل استاذ مصلح ما بدأت ولك منا الدعاء عسى الله أن يقبل دعاؤنا

لك منا كل الدعاء تستاهل كل الخير

ونحن في انتظار المزيد

الله يبارك فيك يا استاذنا مصلح الحريصي

وانا الان احاول تطبيق المثال بالضبط ولكن اخرني كتابة الاكواد لكونك نصحتنا بعدم النسخ واللصق

وبصراحة ان كلامك واقعي لان ما ضيع معلوماتي الا النسخ والللصق

:):(:o:D;):eek: