مشکل این برنامه چیست ؟

[delphi5]

کسی میتونه بهم بگه که مشکل این query چیه ؟
ممنون میشم


Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select bcode,onvan,tdate,ddate from bet.db where ocode='+QuotedStr(trim(edit1.text))+' ');
Query1.SQL.Add('and d1>'+QuotedStr(trim(copy(MaskEdit1.Text,5,2)))+'and d2<'+QuotedStr(trim(copy(MaskEdit2.Text,5,2)))+' ');
Query1.SQL.Add('and m1>'+QuotedStr(trim(copy(MaskEdit1.Text,3,2)))+'and m2<'+QuotedStr(trim(copy(MaskEdit2.Text,3,2)))+' ');
Query1.open;

[حمیدرضاصادقیان]

دوست عزیز ظاهر امر مشکلی نیست .
نکته :لطف کنید کد خود رو در [code ] , [ /code] قرار بدید تا درست نمایش داده بشه.
بعد لطف کنید پیغام خطارو هم بنویسید. البته یک لطفی کنید قبل از and یک فاصله قرار بدید. چون در نهایت رشته مورد نظرتون رو نگاه کنید متوجه خطا میشوید.

[delphi5]

با تشکر


Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select bcode,onvan,tdate,ddate from bet.db where ocode='+QuotedStr(trim(edit1.text))+' ');
Query1.SQL.Add('and d1>'+QuotedStr(trim(copy(MaskEdit1.Text,5,2)))+'and d2<'+QuotedStr(trim(copy(MaskEdit2.Text,5,2)))+' ');
Query1.SQL.Add('and m1>'+QuotedStr(trim(copy(MaskEdit1.Text,3,2)))+'and m2<'+QuotedStr(trim(copy(MaskEdit2.Text,3,2)))+' ');
Query1.open;

راستش مشکل اینجاست که هیچی بهم بر نمیگردونه
و maskedit2, maskedit1 یه بازه تاریخ رو ازم میگره - حالا من دو تا تاریخ رو توی بانکم با 6 تا متغیر تعریف کردم . حالا باید توی یه بازه دنبال یه سری اطلاعات بگردم .d1 توی بانک روز اول است و m1 توی بانک ماه اول است و d2 روز دوم و به همین ترتیب
حالا میتونید کمکم کنید؟

[delphi5]

یکی نیست که جوابمو بده . خیلی گیرم

[حمیدرضاصادقیان]

کد زیر رو امتحان کن فکر کنم جوابتو بده.


Query1.SQL.Clear;
Query1.SQL.Add('select bcode,onvan,tdate,ddate from bet.db where ocode='+QuotedStr(trim(edit1.text))+' ');
Query1.SQL.Add(' and d1>'+QuotedStr(trim(copy(MaskEdit1.Text,5,2)))+' and d2<'+QuotedStr(trim(copy(MaskEdit2.Text,5,2)))+' ');
Query1.SQL.Add(' and m1>'+QuotedStr(trim(copy(MaskEdit1.Text,3,2)))+' and m2<'+QuotedStr(trim(copy(MaskEdit2.Text,3,2)))+' ');
Query1.open;

[delphi5]

پیغام خطا میده
لطفا کمکم کنید

[zerobit-ltd]

من خودم delphi کار نیستم، ولی یه کوچولو از sql سر در می آرم.
اول اینکه مطمئن هستید که تو table شما رکوردی که شرایط فوق رو داشته باشه، موجود هست؟
دومین پیشنهاد من اینه که مقدار نهایی که در Query1 قرار می گیره رو اینجا قرار بدید تا طبق query تولید شده بتونیم اشکال رو پیدا کنیم. در ضمن نوع فیلدهایtable رو هم قید کنید تا راحت تر بتونیم کار کنیم.

[delphi5]

بله چنین رکوردی وجود داره
همه فیلدها کاراکتری هستند
بانک من هم ضمیمه شده است
خروجی هم ضمیمه است

[حمیدرضاصادقیان]

کدی رو که در بالا نوشتم رو دوباره امتحان کن شاید درست بشه اگر نشد یک کاری کن.
قبل از اینکه جدول رو open کنی دستور زیر رو بنویس و اونو اینجا تایپ کن



showmessage(query1.sql.text);

[delphi5]

مشکل توی Apace بود ؟

[حمیدرضاصادقیان]

بله در فاصله ها دقت نمایید. اگر هم شک کردی دستوری که برای نمایش text نوشتم رو خودت یک بار قبل از باز کردن جدول اجرا کن دقیقاً متوجه ایرادت خواهی شد.