فعلا درس ممتاز
جعله الله في ميزان حسناتك
وانا ايضا مع سر العرب في رايه
اتمني ان يتم تثبيت الموضوع
شكرا على الشرح المميز هذا
فعلا درس ممتاز
جعله الله في ميزان حسناتك
وانا ايضا مع سر العرب في رايه
اتمني ان يتم تثبيت الموضوع
شكرا على الشرح المميز هذا
المشاركة الأصلية كتبت بواسطة حبيبة الشيخ
بارك الله فيك على هذا الكلام
اتمني ان تحافظي على نشاطك
ونتتابعى بقية الدروس
انشاء الله
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
في الدروس السابقة تعلمنا كيفية فتح قاعدة البيانات والتعامل معها ، العرض في الجدول MSFlexGrid ، والآن سوف نقوم بالبحث من خلال احدى جمل الاستعلام ،
من المفضل مراجعة دروس TSQL في الموسوعة إذا لم تكن قد تعرفت على جملة Select
من جمل الاستعلام قبل البدء بقراءة هذا الدرس .
تذكير سريع بجملة Select .
من أشهر جمل الاستعلامات هي الجملة التي تستخدم الكلمة المفتاحية Select . وصيغتها القياسية هي :
كود:select field(s) form table(s) where conditon
حيث أن Fields تعني الحقول التي تظهر نتيجتها في البحث ،
وقد تكون اسماء حقول مثل name,tele أو قد تكون * لعرض الكل ،
وقد تكون نواتج عملية حسابية مثل( Maxnumber) أو Count(*) .
أما Tables فهي اسماء الجداول ، والشروط فهي مثل name='ahmed' و age>5 ، مع استخدام معاملات اخرى مثل between و Like ، وبارميترات Parmeters مختلفة مثل ? و - وغيرها .
وأخيراً اذكرك بأنه عند التعامل مع النصوص فإنه لا بد من وضع ''
حول الاسم ، ومع التواريخ يتم وضع ## حول التاريخ وهما النوعان
الأكثر استخداماً ، أما الارقام فلا تحتاج إلى اي شيء .
والآن إلى بداية الدرس .
سوف نضيف أولاً الجزء الخاص بشاشة البحث ، سوف يكون بالشكل التالي :كود:البحث عن الأشخاص الذين لديهم ( ComboBox1 ) ( ComboBox2 ) ( searchText )إذا لم تظهر الجملة السابقة مرتبة فهذا راجع إلى اتجاه الكتابة .
حيث سيحتوي ComboBox1 على ( الرقم - الاسم - الهاتف ) أما الثاني فيحتوي على ( = - > - < ) ، وتوضع كلمة البحث في ال searchText .
ومن ثم يوضع زر أمر بعرض نتائج البحث في الجدول .
في حدث Form_Load سوف نضيف العناصر المطلوبة للقائمتين :كود:Combo1.AddItem "الرقم"Combo1.AddItem "الاسم" Combo1.AddItem "الهاتف"Combo1.ListIndex = 0 Combo2.AddItem "=" Combo2.AddItem ">" Combo2.AddItem "<" Combo2.ListIndex = 0
ولا بد من التحكم في القائمة الثانية ، حيث لا يمكن التحكم بها إلا عند اختيار الرقم ، أما الاسم والهاتف فلا يمكن البحث ب < أو > في مثالنا هذا - يمكن استخدامها ولكن ليس في مثل هذا المثال - . ويتم ذلك من خلال الحدث Click للاداة Combo1 :
كود:Private Sub Combo1_Click() If Combo1.ListIndex <> 0 Then Combo2.Enabled = False Else Combo2.Enabled = True End If End Subفي بداية زر الامر سوف نتأكد من أنه ادخل كلمة للبحث عنها :
كود:If searchText.Text = "" Then MsgBox "نص البحث فارغ" Exit Sub End Ifلاحقاً سوف نشكل جملة الاستعلام ، وذلك بالشكل التالي :
كود:Dim fldname As String Dim op As String Dim lst As String If Combo1.ListIndex = 0 Then fldname = "nu" op = Combo2.Text lst = "" ElseIf Combo1.ListIndex = 1 Then fldname = "fn" op = "='" lst = "'" Else fldname = "te" op = "=" lst = "" End If Dim sql As String sql = "select * from tb where " & fldname & op & searchText.Text & lstحيث نخزن في fldname الحقل الذي نبحث عنه ، op معامل البحث ، واخيراً lst تحدد إذا ما كنا سوف نضيف ' من أجل النصوص .
والآن جاء دور تنفيذ جملة الاستعلام على قاعدة البيانات D1 ومن خلال الجدول الاضافي T2 :
كود:Set T2 = D1.OpenRecordset(sql, dbOpenDynaset) وأخيراً سوف نقوم بملء الجدول من خلال استدعاء Fill_Table . fill_Table
خاتمة :
بنهاية هذا الدرس نكون قد تعلمنا إحدى جمل الاستعلام وهي جملة Select ،
لا زلت افضل ان تتم مراجعة دروس الاستعلام في الموسوعة .
وبقي أن اذكرك بإن جمل الاستعلام لا تعمل جميعها على هذه الطريقة من الاتصال بقاعدة البيانات
بنفس الطريقة ، جرب مثلاً استخدام جمل مثل جمل Delete وستظهر لك رسالة خطأ .
Invalid Operation
في هذا السلسلة البسيطة من الدروس تعرفنا على اساسيات التعامل مع Dao
من خلال فيجوال بيسك Visual Basic مع قواعد بيانات Access .
وهذا هو ملف العمل ، الحجم التقريبي = 7 kb على هذا الرابط
أسأل الله أن أكون قد وفقت في هذا الشرح البسيط ، فما كان فيه من صواب فمن الله ،
وما كان من خطأ فمن نفسي والشيطان ، والله الهادي إلى سواء السبيل .
والسلام عليكم ورحمة الله وبركاته .
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكم
بارك الله فيك اخوي الحبيب لمين
على هذا الدرس
وجاري تحميل الملفات
شكرا جزيلا
اخوكم في الله جمال محمد الامين الناصري
لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى
وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى
شكرا اخي سر العرب
بس انا ابي اسئلة
ليش ما تسالوني؟؟؟؟؟؟؟
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكم
شكرا الحبيب لمين
على هذا المجهودك الرائع
المشاركة الأصلية كتبت بواسطة حبيبة الشيخ
السلام عليكم
شكرا على ردك الجميل والمشجع
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكم
اخي الحبيب لمين
اين الدرس ؟؟؟؟؟؟؟؟
اتمني ان السلسلة ما تكون انتهت
اتمني ان تجيبني في اسرع وقت
اخوك سر العرب
اخوكم في الله جمال محمد الامين الناصري
لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى
وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى
السلام عليكم
مرحبا اخي
فعلا اسف لتأخري
ولكن شغلت بعض الوقت وظروف الدنيا كما تعرف
الآن اخي
اود ان اعبر لك عن مدى امتناني الشديد لك
فعلا دروس رائعة في قواعد البيانات لم اكن حتى احلم باني ساحصل عليها
لكن اعذرني اود سؤالك بما هو خارج عن هذا
انا الآن بدأت ببرنامج او فكرته على الأقل تعتمد على قواعد البيانات بشكل كبير
لكن ما يهمني وما يعيقني هو انني اود ان احصل على جميع الملفات الموجودة في مسار معين
ولنفرض ان هذا المسار هو
C:\Program Files
المهم انا اود معرفة الكود الذي يقوم باستخلاص الملفات الموجودة في هذا المسار ووضعها في جدول في قاعدة البيانات او وضعها في list
2- اريد طريقة استخلاص ملفات الورد على فرض ان المسار هو نفسه وطرقة وضع اسماء هذه الملفات في قاعدة بيانات او list
اعتذر جدا لانني خرجت عن الدرس
لكن قلت أسألك يمكن تعرف
ومستعد اكلم احد المراقبين يحذف الرد في حال شعرت انه خرب الموضوع
بالتوفيق
واسفين على الازعاج والتأخير
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
المشاركة الأصلية كتبت بواسطة سر العرب
السلام عليكم
اخي العزيز سر العرب
اشكرك على حرصك على الدروس
وانا بجد اسف اسف اسف اسف على درس امس
اقد اسفي لك والي كل الاعضاء المتابعين للدروس
لكن ضروف عملي لم تسمح لى بدخول المنتدي
سوف اعوض الدرس اليوم انشاء الله
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكمالمشاركة الأصلية كتبت بواسطة amawi
اخي الكريم amawi
انا اشكرك على سوالك
لا اتمني ان ردك ما ينحذف من الوضوع
مادام في الفيجوال بيزك لا مشكلة
لكن سوالك يحتاج لشرح طويل
يوف احاول ان اختصره في اقل ما يمكن
وارد عليك انشاء الله اليوم
وانا بجد احب اني اقول لك ان كل حرف تكتبهلى يكون
وسام شرف لى
انتضر الرد اليوم انشاء الله بعد الدرس
شكرا على هذا السؤال الي عن جد فرحني
انا كنت منتظره
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكم
انا اسف على التاخر
لكن انا مشغول هذه الايام بسبب عملي
واليكم درس اليوم
كيفية إدراج نص في Microsoft Word عن طريق الفيجوال بيسكسنقوم في هذا الدرس شرح بإدراج نص في الورد واحداث بعض التعديلات عليه من خلال برنامج فيجوال بيسك , الطريقة سهلة للغاية ما عليك سوى اتباع الخطوات التالية :
1- فتح برنامج فيجوال بيسك واختيار Standard Exe .
2- احضار المكتبة الخاصة بتطبيق مايكروسوفت ورد : من قائمة projectß نختار referenceß ونبحث عن Microsoft word 10.0 object libraryß ثم نضغط OK.
3- سنضيف Command لشاشة البرنامج وقمت بتسميته Cmdok ستتم هنا عمليات البرمجة الرئيسية وبداية لا تحتاج الى أكثر من ذلك اذا كان برنامجك بسيط ويعمل على عملية ادراج النصوص فقط.
4- في القسم العام للبرنامج سنعرف المتغير wrdapp من نوع Word.Application عن طريق الأمر التالي :
Dim wrdapp As Word.Applicationوذلك للاعلان عن استخدام تطبيق مايكروسوفت ورد.
5- سنقوم بإضافة الكود التالي عن الحدث Clikc للزر الذي قمنا بإنشائه سابقا ً :
Private Sub Cmdok_Click()كود:1- Set wrdapp = New Word.Application 2- With wrdapp 3- Documents.Add 4.ActiveDocument.Content.Font.Bold = True 5. ActiveDocument.Paragraphs.Alignment = wdAlignParagraphLeft 6. ActiveDocument.Content.Font.Color = wdColorRose 7. ActiveDocument.Content.Font.Italic = True 8. ActiveDocument.Content.Font.Name = "Monotype Corsiva" 9. ActiveDocument.Content.Font.Size = 22 10. ActiveDocument.Content.Text = "Hi This How Insert Text In Microsoft Word" & Chr(13) 11. ActiveDocument.Content.InsertAfter Text:="GOOD BYE" 12 .Visible = True End With End Subشرح الكود
·الجملة رقم (1) وهي مهمة في عملية اسناد مرجع مايكروسوفت ورد للمتغير wrdapp وتم استخدام new ليقوم بفتح برنامج مايكروسوفت ورد.
·الجملة رقم (2) وهي جملة With الشائعة الإستخدام لتسهيل عمليات البرمجة وعدم تكرار كتابة wrdapp.
·الجملة رقم (3) لإضافة مستند جديد لبرنامج مايكروسوفت ورد .
·الجمل من (4) وحتى (5) وهي خصائص النص المراد ادراجة, وتستخدم ActiveDocument لاحداث التغيرات المطلوبة على المستند الفعال حالياً.
·جملة (4) لإعطاء النمط العريض للنص المدرج .
·جملة (5) لجعل محاذاة النص جهة اليسار.
·جملة (6) تغير لون الخط للون الوردي.
·جملة (7) النمط المائل.
·جملة (8) اسناد نوع الخط .
·جملة (9) حجم الخط . م
·ملاحظة : للإحتفاظ بنفس الاعدادت (نوع الخط , حجمه , لونه , نمطه ) الأصلية للنص يتم الإستغناء عن واحد او كل الخصائص السابقة .
·الجملة رقم (10) وهي الجملة التي يتم من خلالها إدراج النص المطلوب عن طريق الخاصية text التابعة لمحتوى المستند. وتسند للخاصية text متغير أو قيمة من نوع string.
·الجملة رقم (11) ادراج نص جديد ويلاحظ هنا استخدام الخاصية InsertAfter عوضا عن text وتم ذلك لإعلام البرنامج بالإحتفاظ بالجملة السابقة وادراج الجملة الجديدة بعدها .
·الجملة (12) لاظهار مايكروسوفت ورد ولن تتم رؤية عملية الادراج من غير هذة الجملة .
· الجملة (13) اغلاق الجملة with.
أتمنى أن يكون الدرس مفيد وسهل وواضح للجميع
التعديل الأخير تم بواسطة الحبيب لمين ; 12-08-2006 الساعة 11:28 AM
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان
السلام عليكم
شكرا الحبيب لمين
على هذا الدرس
اتمني ان تكمل السلسلة معانا
ولا تقطع الدروس اذا كان فيه عندك وقت
شكرا مرة اخري على هذا المجهوود
اخوكم في الله جمال محمد الامين الناصري
لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى
وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى
مشكور اخوي درس جميل جدا
الله يوفقك
وننتظر المزيد من دروسك الرائعة حقا حين يتوفر لك بعض الوقت
بالتوفيق
شبكة قانوني الاردن
نسعى معا للرقي بالمهنة القانونية في الاردن
www.lawjo.net
-----------------------------------------
e_amawi (at) yahoo.com
المشاركة الأصلية كتبت بواسطة سر العرب
شكرا اخي سر العرب على هذا الرد الجميل
انشاء الله راح استمر
وما راح اوقف الدروس
وانا اسف على تاخر الدروس
وذلك لأسباب خارجة عن ارادتي
جازاك الله الف خير
لكل شيئ إذا ماتم نقصان فلا يغتر بطيب العيش إنسان