مشروع زهره للصناعات الهندسية

الأستاذة الفاضلة / زهرة

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

حضرتك متواجدة الآن علي المنتدي

ممكن تشرحي طريقة عمل runsql وكيفية عمل بحث عن record موجود في table من عدمه

أو الرد علي الأستفسار بالأعلي

ولي جزيل الشكر

والله ولي التوفيق

أخيك

(محمد جلال)

اخي الفاضل

محمد جلال

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

نأسف على التأخير في الرد وكما تعلم وترى ان نشاط المنتدى زائد ولا نستطيع ان نغطي على جميع الردود في وقت واحد لهذا نرجو المعذره

اما بخصوص طلبك شرح الـ RunSQL فهذه الجمله تحتاج الى سنه كامله من الشرح ولن نوفيها حقها لانها ذات مواضيع متشعبه ومترابطه في نفس الوقت فما تنتهي من واحدة الا وتظهر لك جمله مرتبطه بها وهذا ما قامت عليه لغة الاستعلام البنيويه او ما تسمى SQL

سأعطيك رؤس اقلام فقط عن استخدام هذه العبارة

1.تستخدم هذه العبارة في محرر الفيجول بيسك VBA للاستغناء عن الاستعلامات وتبدأ جملة الاستعلام دائما بـ SELECT

لو تتبعنا هذه الجملة SELECT نجد انه يندرج تحتها الكثير من العبارات الوصفيه مثل

الالحاق INSERT INTO

الحذف DELETE

التحديث UPDATE

انشاء جدول CREATE TABLE

حذف جدول DROP TABLE

انشاء او حذف فهرس CREATE INDEX, or DROP INDEX

مثال على استخدامها في الكود ( محرر الفيجول بيسك ) VBA

DoCmd.RunSQL "UPDATE titles SET price = price * 1.10

هذه الجملة عبارة عن تحديث حقل السعر مضروب في القيمة 1.10

وهذا بصيغه اخرى ولكنها بنقس النتيجه

sSQL = "UPDATE titles SET price = price * 1.10
     DoCmd.RunSQL sSQL

وقد تأخذ هذه الصيغة ايضا

CurrentDb.Execute "UPDATE titles SET price = price * 1.10"

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

Public Sub DoSQL()

    Dim SQL As String
    
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"

    DoCmd.RunSQL SQL
    
End Sub

كما ان عبارة RunSQL قد يندرج معها معايير مثل

< > = <> LIKE IIF Dlookup وغيرها الكثير الكثير من المعايير

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

Private Sub Search_Click()
Dim MyStr As String
MyStr = Nz(Me.text1, "")
If MyStr = "" Then
  Form.RecordSource = "SELECT EMP.* FROM EMP;"
Else
    Form.RecordSource = "SELECT EMP.* FROM EMP" _
    & " WHERE (((EMP.NUM) Like '" & MyStr & "' & '*'));"
End If
End Sub

هذا الكود يوضع تحت زر امر

text1 هو مربع النص الغير منظم الذي يتم البحث فيه لتظهر النتائج في النموذج سواء الرئيسي الجدولي او الفرعي

اخي محمد جلال : هذه نقطه صغيرة جدا في بحر SQL آمل منك البحث والقراءة عن لغة الاستعلامات وستمر بك الايام وانت لم تنتهي من هذه اللغة ولكن حاول ان تتعلم بعض منها

اختكم

زهره

الأستاذة الفاضلة / زهرة

جزاك الله كل خير وكل صحة

وحضترك الآن أقوم بدراسة sql ولكن الخاص بلغة oracle وهي دورة مكثفة

وربنا يوفق الجميع

وشكراً علي الرد

والله ولي التوفيق

اخيك

محمد جلال

بسم الله الرحمن الرحيم

أظن أنني سأكون مجلدات ضخمة من مشاركات الاستاذة الفاضلة زهرة ادامها الله وحفظها من كل سوء

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

الشكر غير كاف لك ولكن هذا مانملكه الان ونسأل الله ان يمكننا لتقديم الافضل. وله الحق ان يفتخر منتدى الفريق العربي بوجود هذه الزهرة في بساتينه.

واخيرا.... أظن انني بحاجة الى 3400 سنة حتى أكون بمستوى استاذتنا الرائعة زهرة.

تحيايي

thanks alot

شكرا جزيلا على المجهود

بارك الله فيك أختى الكريمة, وزادك الله علما ونفعك به, وجعل عملك هذا فى ميزان حسناتك, وجعل مكانك فى الفردوس الأعلى.

السلام عليكم

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

والآن جاري العمل على الأصداره رقم 3 إن شاء الله تعالى

رابط التحميل

حمل من هنا كلك يمين وحفظ بأسم

والله الموفق

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

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

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

بسم الله ما شاء الله عليكى

حضرتك علطول مبدعه ومتميزه وانا فخوره بك وانت مثلى الأعلى فى البرمجه واتمنى ان اكون مثلك

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

كما انك لا تبخلى بعلمك على المبتدئين امثالى

بارك الله لك وفيك

وغفر لك ان شاء الله

الله يجزاك خيراً وينفع بك على حرصك على نشر العلم وتعميم الفائدة للجميع .

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

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

بارك الله فيك يا أختى الفاضلة وزادك علماً

الاخت زهرة جازاك الله خيرا لكل ماتقديمه لهذا القسم الرائع

اقترح زيادة Table وليكن الدورات التدريبية للفرد وتكون العلاقة بينه وبين Table الافراد ONE TO MANY

ويكون قابل للتكرار حيث ان الفرد يمكن ان يشترك باكثر من دورة واقترح المواصفات التالية :

D_ID

COUSE_NAME

START_DATE

END_DATE

RESULT

واي حقل اخر وصف للدورة

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

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

acoanas80 كتب:

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

الاخت زهرة .............................................

والله عجزت الكلمات عن شكرك وفقكي الله ...

وشكرا"

وفقك الله

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

بسم الله الرحمن الرحيم

الحمد لله رب العالمين

والصلاة والسلام على اشرف المرسلين سيدنا ونبينا محمد بن عبد الله وعلى اله وصحبه اجمعين

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

بارك الله فيكم وعليكم وكثر الله من امثالكم فاعلى الخير لوجه الله سبحانه وتعالى

اللهم زدنى وزدها علمـــــــــــــــــا واجعل عملى وعملها خالصا لوجهك الكريم

اللهم اغفر لى ولها ولوالدى ولوالديها ماتقدم من ذنبهم وما تأخر..

وقِهم عذاب القبر وعذاب النار وضمة القبر وثبتهم عند السؤال ..

و أدخلهم الفردوس الأعلى مع الأنبياء والصالحين والشهداء والصدقين

تسلم الايادي يازهرة العلم

أشكرك أختي زهرة على هذا الدرس المفيد و المدعوم بالشرح المفصل بالصورة مع إدراج المثال

الف الف مليون شكر

على هذا الشرح المتميز

حعله الله فى ميزان حسناتك

وياريت لو مشروع تجارى

مع تحياتى

للرفع اعترفا بفضل الاخت زهرة على المنتدى لحين معرفة اخبارها