فعلا درس ممتاز
جعله الله في ميزان حسناتك
وانا ايضا مع سر العرب في رايه
اتمني ان يتم تثبيت الموضوع
شكرا على الشرح المميز هذا
عرض للطباعة
فعلا درس ممتاز
جعله الله في ميزان حسناتك
وانا ايضا مع سر العرب في رايه
اتمني ان يتم تثبيت الموضوع
شكرا على الشرح المميز هذا
اقتباس:
المشاركة الأصلية كتبت بواسطة حبيبة الشيخ
بارك الله فيك على هذا الكلام
اتمني ان تحافظي على نشاطك
ونتتابعى بقية الدروس
انشاء الله
في الدروس السابقة تعلمنا كيفية فتح قاعدة البيانات والتعامل معها ، العرض في الجدول 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
اعتذر جدا لانني خرجت عن الدرس
لكن قلت أسألك يمكن تعرف
ومستعد اكلم احد المراقبين يحذف الرد في حال شعرت انه خرب الموضوع
بالتوفيق
واسفين على الازعاج والتأخير :)
اقتباس:
المشاركة الأصلية كتبت بواسطة سر العرب
السلام عليكم
اخي العزيز سر العرب
اشكرك على حرصك على الدروس
وانا بجد اسف اسف اسف اسف على درس امس
اقد اسفي لك والي كل الاعضاء المتابعين للدروس
لكن ضروف عملي لم تسمح لى بدخول المنتدي
سوف اعوض الدرس اليوم انشاء الله
السلام عليكماقتباس:
المشاركة الأصلية كتبت بواسطة amawi
اخي الكريم amawi
انا اشكرك على سوالك
لا اتمني ان ردك ما ينحذف من الوضوع
مادام في الفيجوال بيزك لا مشكلة
لكن سوالك يحتاج لشرح طويل
يوف احاول ان اختصره في اقل ما يمكن
وارد عليك انشاء الله اليوم
وانا بجد احب اني اقول لك ان كل حرف تكتبهلى يكون
وسام شرف لى
انتضر الرد اليوم انشاء الله بعد الدرس
شكرا على هذا السؤال الي عن جد فرحني
انا كنت منتظره :D
السلام عليكم
انا اسف على التاخر
لكن انا مشغول هذه الايام بسبب عملي
واليكم درس اليوم
كيفية إدراج نص في 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.
أتمنى أن يكون الدرس مفيد وسهل وواضح للجميع
السلام عليكم
شكرا الحبيب لمين
على هذا الدرس
اتمني ان تكمل السلسلة معانا
ولا تقطع الدروس اذا كان فيه عندك وقت
شكرا مرة اخري على هذا المجهوود
مشكور اخوي درس جميل جدا
الله يوفقك
وننتظر المزيد من دروسك الرائعة حقا حين يتوفر لك بعض الوقت
بالتوفيق
اقتباس:
المشاركة الأصلية كتبت بواسطة سر العرب
شكرا اخي سر العرب على هذا الرد الجميل
انشاء الله راح استمر
وما راح اوقف الدروس
وانا اسف على تاخر الدروس
وذلك لأسباب خارجة عن ارادتي
جازاك الله الف خير