ورود

View Full Version : سوال: جستجو در بانك اطلاعاتي اكسس


saeedharati
پنج شنبه 09 شهریور 1391, 10:35 صبح
با سلام ، يك برنامه دارم طراحي ميكنم كه اطلاعات مشتركين رو ذخيره ميكنه و تاريخ عضويت داره و اتمام عضويت حال برنامه موقع اجرا افرادي را كه 10 روز ماننده به تاريخ اتمام عضويت رو ليست كنه برام ممنون ميشم كمكم كنيد

برنامه به زبان ويژال بيسيك و بانك اكسس
saeedharati
شنبه 11 شهریور 1391, 11:38 صبح
كسي نيست جواب بده لطفا استايد گيرم
mohammadriano
شنبه 11 شهریور 1391, 17:58 عصر
Data1.Recordset.Filter = "date <= '1391/02/01'"
Data1.RecordSource = "Select * From TableName where date ='" + text1.text + "'"
saeedharati
یک شنبه 12 شهریور 1391, 07:43 صبح
مرسي ، اما ميخوام افرادي كه 10 روز به تاريخي كه براشون ثبت شده رو ليست كنه برام
بطور مثال تو فيلد اتمام سفارش تاريخ : 1391/05/11 تايپ شده باشه بعد برنامه طوري جستجو كنه افرادي كه 10 روز به تاريخ مورد نظر رو ليست كنه

لطفا كمك كنيد
saeedharati
یک شنبه 12 شهریور 1391, 11:51 صبح
سلام مشكلو خودم حلش كردم اول اومدم به تاريخ امروز 10 روز اضافه نمودم (البته با منفي ميتونيم از تاريخ نيز كم كنيم ) بعد تاريخ بدست اومده رو تو بانك جستجو كردم هركي به اين تاريخ رسيد رو ليست كردم
كد زير

Adodc1.Refresh
m = To_Hejri(Date, 0)
dat = DateAdd("d", 10, m)


با كد زير هم جستجو كردم

Adodc1.Recordset.Filter = "DatEnd='" & dat & "'"
If Adodc1.Recordset.BOF = False Then