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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : [كود] المساعد في كود البحث عن سنة معينة (/showthread.php?tid=98)

الصفحات: 1 2

المساعد في كود البحث عن سنة معينة - allayl - 15-09-13

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

كيف الحال اعضاء المنتدى

هذا كود شغال تمام للبحث عن قبل تاريخ اليوم او تاريخ معين

انا ابي التعديل عليه إظهار جميع التواريخ في هذه السنة

كود :
Adodc1.RecordSource = "Select * From individuals Where maturitdate #" & Format(X, "mm/dd/yyyy") & "#"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

امل المساعده وشكرآ لكم

RE: المساعد في كود البحث عن سنة معينة - VB_Coder - 15-09-13

السلام عليكم

- هذا التعديل على الكود لكي يظهر السجلات التي تاريخها في سنة 1434 .

كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=1434"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

- تحياتي .

RE: المساعد في كود البحث عن سنة معينة - allayl - 15-09-13

شكرآ لك بارك الله فيك

امل المساعدة عند وضع متغير

وضع متغير في الكود

Text3.Text

RE: المساعد في كود البحث عن سنة معينة - VB_Coder - 15-09-13

السلام عليكم

- هل غيرت رقم السنه في الإستعلام أم لا ؟

RE: المساعد في كود البحث عن سنة معينة - allayl - 15-09-13

ابي يكون متغير

في Text3.Text

يدخل من المستخدم لبرنامج

RE: المساعد في كود البحث عن سنة معينة - VB_Coder - 15-09-13

السلام عليكم

- هذا الكود بعد تعديله :

كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=" & Trim(Text3.Text)
Adodc1.CommandType = adCmdText
Adodc1.Refresh

- تحياتي .

RE: المساعد في كود البحث عن سنة معينة - allayl - 16-09-13

شكرآ لك اخي بارك الله فيك


شغال الكود 100%100


بس عند إضافة كود الفرز


Order By rank2 ASC


يظهر لي خطآ


امل المساعده

RE: المساعد في كود البحث عن سنة معينة - VB_Coder - 16-09-13

السلام عليكم

- جرب تكتب الإستعلام بهذه الطريقة :

كود :
Adodc1.RecordSource = "Select * From individuals Where year(maturitdate)=" & Trim(Text3.Text) & " Order By rank2 ASC"
Adodc1.CommandType = adCmdText
Adodc1.Refresh


RE: المساعد في كود البحث عن سنة معينة - allayl - 16-09-13

شكرآ لك اخي بارك الله فيك

RE: المساعد في كود البحث عن سنة معينة - مهدي محمد - 27-03-14

السلام عليكم اخوان سؤالي هو كيف اربط بين جدولين داخل الفيجوال ارجو منكم الرد اخوان وباسرع وقت ممكن