الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

(( عمل بحث عن شخص معين ضمن نتيجة بحث ! ))

بدأه مـايـا في 23 مارس 2009 · 6 رد · 6,209 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

احبتي اعضاء ومشرفي هذا المنتدى الرائع

لدي مشروع قد قاربت على انهاءه لكني توقفت عند مشكلة لم استطع التغلب عليها

اتمنى من اصحاب الخبرة مساعدتي في ذلك :) ,,, وجزيتم الف خير

,,

المشكلة :

انني لدي datagrid اظهر بها نتائج البحث

وعملت زر للبحث عن فواتير لشخص معين واظهار نتائج بحثي في الداتا قريد

ما اريده

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

وضمن نتيجة البحث المعثور عليها ابحث عن فواتير هذا الشخص

هل وصل ما اريد شرحه ؟

الخلاصة : انني اريد ان ابحث ضمن نتيجة بحث علما انني استخدم في البحث جمل الاستعلام

افيدوني رجاااااااااءاً

علما بأنني استخدم الاداة adodc

اختكم / مـايـا

تم تعديل هذه المشاركة بواسطة مـايـا في 23 مارس 2009 في 08:40

#2

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

الخت مايا من الافضل ان ترفعي مثال مصغر بما تريدين للتعديل علية

ولكن جربي هذا الكود فهو للاستعلام عن اي شئ بين تاريخين

 
Set rs = db.Execute("select * from [tabl1] where tabl1.costom_name= " & text1& " and tebol1.date between " & Date1 & " AND " & DATE2 & " order by date ")

حيث ان

tebol1 اسم الجدول

costom_name اسم الزبون المراد البحث عنه

text1 مكان كتابة الاسم

date حقل التاريخ بالجدول

date1 & date2 اسماء ادوات التي يتم من خلالها تحديد الفترة المراد البحث فيها

ارجو ان يفيدك

#3

اشكرك كثيراً اخي ذاكر على اهتمامك

هذا هو كود البحث الذي استخدمته

X = Combo1.Text
Adodc1.RecordSource = "select * from client where name like ' " & X & " % ' "

لو فرضت انني وضعت اداتين للتاريخ كيف سيكون تعديل الكود ؟

تم تعديل هذه المشاركة بواسطة مـايـا في 23 مارس 2009 في 09:50

#4

معقول ماحد عنده حل لمشكلتي ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#5

اسف علي التاخير كنت مشغولا قليلا

ضعي اداتي تاريخ واعدي تغير تسميتهم الي data1 & data2

وستخدمي الكود التالي

 Dim txtFromDate1

Dim txtTODATE1



txtFromDate1 = Format(data1, "YYYY/MM/DD")

txtTODATE1 = Format(Data2, "YYYY/MM/DD")

txtFromDate1 = "#" & Format(data1, "YYYY/MM/DD") & "#"

txtTODATE1 = "#" & Format(Data2, "YYYY/MM/DD") & "#"



dim x
x= combo1.text


adodc1.recordsource = "SELECT * from [client] WHERE client.name like '" & x & "%' and client.date  between " & txtFromDate1 & "  and " & txtTODATE1 & " order by num "

علي ان يكون اسم حقل التاريخ في جدولك هو date

#6

الحمدالله

مرررررررره شاكرة لك يا خوي انحلت المشكلة معي واخيراااا

صحيح ماضبط معي الكود مية بالمية بس مع التعديلات من هنا وهنا لحد ما ضبط والحمدالله

الله يوفقك ويحقق لك ما تتمنى

مره مشكور

بس شي استغربته الاداة اللي انت استعملتها بالكود ( اداة التاريخ ! ) اي اداة بالضبط تقصد ؟

انا حاليا استعمل للتواريخ اداة MaskEdBox

لاني جربت اعتمد اداة DTPicker بس ماحبيتها يطلع قدامك هجري بس لما تجي تحدد التاريخ من القائمة يصير ميلادي !

اذا فيه آداة افضل ياليت تقولون لي ..

#7
مـايـا كتب:
صحيح ماضبط معي الكود مية بالمية بس مع التعديلات من هنا وهنا لحد ما ضبط والحمدالله

اكيد لازم تراجع بعض الاشياء فيمكن ان يكون صيغة التاريخ في جهازك مخالفه لما في الكود المهم اشتغل والحمد لله

اقتباس
بس شي استغربته الاداة اللي انت استعملتها بالكود ( اداة التاريخ ! ) اي اداة بالضبط تقصد ؟

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

اقتباس

انا حاليا استعمل للتواريخ اداة MaskEdBox

اقتباس

100% تمام وممتازه ميزاتها كثيرة تقبل اكواد keypress .......الخ

مواضيع مشابهة