منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اجراء عملية بحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اجراء عملية بحث (/showthread.php?tid=11426)



اجراء عملية بحث - زيد - 14-02-15

السلام عليكم ورحمة الله وبركاته
صممت قاعدة بيانات اكسس وقمت بربطها بالفجول دوت نت , علما ان قاعدة البيانات تحتوي على الحقول التاليهSad رقم الموظف _اسم الموظف_تاريخ اخر علاوة )  
فكيف اكتب جملة  استعلام ( اجراء عملية بحث) تعمل على استخراج جميع الموظفين الذين يستحقون علاوة عند ادخال التاريخ الحالي  , علمأ ان العلاوة تاتي عندما يكمل الموظف سنة كاملة , اي ان الفرق بين تاريخ اخر علاوة والتاريخ الحالي 12 شهر .

ارجو المساعدة 


RE: اجراء عملية بحث - الكاتب - 15-02-15

وعليكم السلام والرحمة
رقم الموظف id
اسم الموظف nameN
تاريخ اخر علاوة datex

إذا كان تاريخ اخر علاوة مثلا 01/01/1436 فمن المفترض يكون العلاوة المستحقه بعد 12 شهر هي 01/01/1437  
{ 354 } من الايام

مثال بالمرفقات



اما استلام sql استخرج تاريخ اخر علاوة وقارن بين التاريخ الحالي من خلال datagried
ملاحظة المثال يستخدم تاريخ الجهاز الهجري لذا إذا اردة الميلادي حول تاريخ الجهاز إلى الميلادي او استخدم دوال التحويل


RE: اجراء عملية بحث - زيد - 15-02-15

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

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

كود :
Dim x As String
       Dim d As Date = CDate(TextBox6.Text)
       x = Format(d, "dd/MM/yyyy")
       SQLstr = "SELECT * FROM T WHERE  DateDiff # " &  ("M" , x , [dateL])  >= 12 &  " # "



RE: اجراء عملية بحث - سعود - 16-02-15

اخي الكريم الامر بسيط .. قم  باضافة عمود من نوع تاريخ وقت واجعل التنسيق shortdate ثم اضف واجهة فيجوال بيسك واضف عدد 2 datetimepicker
واكتب الاستعلام هكذا

كود :
"select * from tb where dt between#" & dtp1.value.toshortdatestring & "# and  #" & dtp2.value.shortdatestring & "#"

لابد ان يكون تاريخ الجهاز ميلادي لينجح الاستعلام


RE: اجراء عملية بحث - زيد - 16-02-15

(16-02-15, 01:30 AM)سعود كتب : اخي الكريم الامر بسيط .. قم  باضافة عمود من نوع تاريخ وقت واجعل التنسيق shortdate ثم اضف واجهة فيجوال بيسك واضف عدد 2 datetimepicker
واكتب الاستعلام هكذا


كود :
"select * from tb where dt between#" & dtp1.value.toshortdatestring & "# and  #" & dtp2.value.shortdatestring & "#"

لابد ان يكون تاريخ الجهاز ميلادي لينجح الاستعلام
اخي الفاضل شكرا على الرد لكن مشكلتي ان احد التواريخ مكتوب داخل TEXTBOX  او datetimepicker  والتاريخ الثاني موجود داخل حقل باسم dateL مخزون في جدول في قاعدة البيانات وانا اريد ان اعمل مقارنة او ايجاد الفرق بين القيمة الموجودة داخل datetimepicker  مع dateL  ارجو المساعدة في كيفية كتابة جملة الاستعلام وفقكم الله لكل خير



RE: اجراء عملية بحث - سعود - 16-02-15

هل تقصد بالفرق عدد الايام؟
مثل مانحسب عمر اي واحد 2015-1978 هل هذا ماتعنيه؟


RE: اجراء عملية بحث - سعود - 16-02-15

انظر هذا المثال قد يكون هو المطلوب


RE: اجراء عملية بحث - زيد - 16-02-15

(16-02-15, 03:29 AM)سعود كتب : انظر هذا المثال قد يكون هو المطلوب

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


RE: اجراء عملية بحث - الكاتب - 17-02-15

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


RE: اجراء عملية بحث - زيد - 18-02-15

لا يســـــع حــــــروفـــــي إلا أن تمـــــتزج لتكـــــون كـــــلمـــــــات شكــــــــــر وعــــــــرفـــــــــان

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

من إدارة ومراقبين ومشرفين وأعضاء الجميع وبالخصوص شكري وتقديري لك يااخ سعود واخي alktab