سلام!
من تو برنامه اي كه دارم مي خوام يه تاريخ رو از كارير بگيرم مثلا تو تكس بعد جدول طوري
فيلتر بشه كه ركوردهايي رو نشون بده كه فيلد تاريخ اونها مثلا قبل از اين تاريخي هستش
كه كاربر وارد كرده! قسمت اصلي كار يعني كد دستور فيلتر رو اگه ميشه برام بزاريد!
و اگه زحمتي نيست هردو روش رو يعني:
data1.recordset.fliter و
data1.recordsource="SELECT * FROM table1 WHERE
بعد از WHERE چي بنويسم؟
ممنونم!
مي توني از اين استفاده كني
کد:
"where tbl.date<" & text1.text &"";"
اين امتحان كردم قبلا درست بوده
موفق باشي
سلام!
اولا ممنونم ازت كه جوابمو دادي. بعدشم اينكه من اين كد رو امتحان كردم جواب نداد.
دوست عزيز من تو ويبي ميخوام اين كارو بكنم با يه كدي شبيه اين. اگه ميشه شما صحيح و كاملش رو برام بذار:
Data1.RecordSource = "SELECT * FROM table1 WHERE date<" & Text1.Text
ممنونم!
ببين تو توي تكست داري يه استرينگ ميدي بايد اونو تبديلش كني به تاريخ با دستور cdate ميتوني اينكارو بكني مثل اين متن كه از msdn كپي شده.
کد:
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' Define date.
MyShortDate = CDate(MyDate) ' Convert to Date data type.
يعني اينطوري
کد:
<" & cdate(Text1.Text)
سلام!
آقا اشكان همين كه شما گفتيد انجام دادم ولي جواب نداد.
اين پيام رو ميده:
Run-time error '3061'
Too few parameters.Expected 1.
ميگيد چيكار كنم؟ خيلي وقته دارم باهاش كلنجار ميرم ولي نميشه!
خوب ببين شايد يه اشكالي تو اطلاعاتت هست كه داره ايراد ميگيره . تو بجاي text1.text بيا و يه استرينگ تاريخي بهش بده اگه ايراد نگرفت يعني اينكه text1.text درست مقدار دهي نميشه.
سلام به همه عزيزان
ببين عزيز دلم بهترين جواب را جناب ardavan دادن يعني بايد كوريت اينطوري باشه
کد:
"select * from Mytbl Where Date <='" & Text1.Text & "'"
البته اين به شرطي كار ميكنه كه نوع فيلدت تكست باشه نه تاريخ
در ضمن من در تمام برنامه هام كه 99٪ اونا هم كار بانكيه از همين روش استفاده ميكنم پس ممكن نيست جواب نده
قربون همه ايران ويجي ها
سلام!
آخه علي آقا اين يه فيلد از نوع تاريخه. جدولش رو با اكسس ساختم و اين روشي كه شما گفتيد براي فيلدهاي متني به كار بردم و جواب هم داده.
ممنونم!
سلام!
بالاخره مشكلم حل شد. من اين كد رو استفاده كردم:
کد:
Data1.RecordSource = "SELECT * FROM table1 WHERE bdate<" & "#" & Text1.Text & "#"
دارم مهندس ميشم نه؟! 8)