لطفا راهنمایی کنید

[RZ_HAFEZ]

با سلام
من میخوام یه گزارش براساس کد و فاصله بین دوتاریخ تهیه کنم
کد من
Private Sub Command1_Click()
Dim x As String
x = "select * from math where code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"

DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
یا
Private Sub Command1_Click()
" code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"
DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
و پیغام خطا میدهد
failed getting rowset(s) from current data source

با تشکر از همه شما
http://barnamenevis.org/forum/images/statusicon/user_online.gif http://barnamenevis.org/forum/images/buttons/report.gif (http://barnamenevis.org/forum/report.php?p=393857) http://barnamenevis.org/forum/images/buttons/post_thanks.gif (http://barnamenevis.org/forum/showthread.php?do=post_thanks_add&p=393857)

[kavehYn]

سلام
اولن من توصیه میکنم از data environment استفاده نکنی و خودت مستقیما کد نویسی کنی ، De در ظاهر ساده است ولی واقعا در بعضی جاها دردسر ایجاد میکند

لااقل در اینجا شما در تایپ کد اشتباه کرده ای و بعد از فیلد Code یک کوتیشن گذاشته ای ، شخصا فکر میکنم که فیلد Code شما باید عددی باشد و اگر این فیلد از نوع String است هم باز مشکل بسته نشدن کوتیشن را در ادامه فیلدهای tarick داری

علی ایهال اول کوتیشن ها را کنترل کنید اگر خواستید نوع فیلدها را برای من بنویسید انشاالله رفع خواهد شد

[RZ_HAFEZ]

سلام
اولن من توصیه میکنم از data environment استفاده نکنی و خودت مستقیما کد نویسی کنی ، De در ظاهر ساده است ولی واقعا در بعضی جاها دردسر ایجاد میکند

لااقل در اینجا شما در تایپ کد اشتباه کرده ای و بعد از فیلد Code یک کوتیشن گذاشته ای ، شخصا فکر میکنم که فیلد Code شما باید عددی باشد و اگر این فیلد از نوع String است هم باز مشکل بسته نشدن کوتیشن را در ادامه فیلدهای tarick داری

علی ایهال اول کوتیشن ها را کنترل کنید اگر خواستید نوع فیلدها را برای من بنویسید انشاالله رفع خواهد شد


من فیلد code را بصورت number از نوع byte تنظیم کرده ام
چون محدوده اعداد کد از یک است تا پانزده
اگر شما راه یا کدی به نظرتون میاد برای من بنویسید
با تشکر از شما

[kavehYn]

With DataEnvironment1.rsCommand1
If .State = 1 Then .Close
.Source = " Select * From math where code= "+str(combo1.listindex)+" and tarick between '"+text3.text+"' and '"+text5.text+"'"
.Open


End With


توجه :من نمیدانستم که عددهای مربوط به فیلد Code در داخل متن کمبو قراردارد و یا در Listindex .در این مورد دقت کنید

من چند روزی درگیر هستم اگر کارداشتی پیغام بفرست تا کمکت کنم

[RZ_HAFEZ]

With DataEnvironment1.rsCommand1
If .State = 1 Then .Close
.Source = " Select * From math where code= "+str(combo1.listindex)+" and tarick between '"+text3.text+"' and '"+text5.text+"'"
.Open


End With


توجه :من نمیدانستم که عددهای مربوط به فیلد Code در داخل متن کمبو قراردارد و یا در Listindex .در این مورد دقت کنید

من چند روزی درگیر هستم اگر کارداشتی پیغام بفرست تا کمکت کنم
میتونم بجای کد شما کد خودم رو تغییر بدم و از اون استفاده کنم

[kavehYn]

ok
اگر مشکل دیگه ای داشتی و دوست داشتی بپرس
اگر بلد بودم کمک میکنم