請問各位前輩為何 Sql 查詢會漏掉第一筆資料 |
|
答題得分者是：wangyunyong
|
|
K1086
初階會員   發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
procedure TParser_DateFm1.Button1Click(Sender: TObject);
Var SQL_A,SQL_B,STDT,ENDT:string; done:Boolean; begin STDT:=COPY(DATETOSTR(DTP_STDT.DATE),6,5) '/' COPY(DATETOSTR(DTP_STDT.DATE),1,4); ENDT:=COPY(DATETOSTR(DTP_ENDT.DATE),6,5) '/' COPY(DATETOSTR (DTP_ENDT.DATE),1,4); SQL_A:='SELECT * FROM Twn_Day'; SQL_A:=SQL_A ' WHERE 開市日期>=''' STDT ''' AND '; SQL_A:=SQL_A ' 開市日期<=''' ENDT ''' '; Parser_DateFm1.Date_SQL.CLOSE; Parser_DateFm1.Date_SQL.SQL.Clear; Parser_DateFm1.Date_SQL.SQL.ADD(SQL_A); Parser_DateFm1.Date_SQL.OPEN; WHILE NOT Parser_DateFm1.Date_SQL.EOF DO BEGIN Parser_DateFm1.Date_SQL.NexT; if Date_SQL.FIELDBYNAME('星期').Text = '日' Then else if Date_SQL.FIELDBYNAME('星期').Text <> '六' Then begin Parser_DateFm1.ListBox1.Items.Add(Date_SQL.FIELDBYNAME('星期').Value); Parser_DateFm1.ListBox2.Items.Add(Date_SQL.FIELDBYNAME('名稱').Value); end; =====>>問題是要篩選星期一到星期五的資料 六,日除外，現在是可以完全篩選，但是會漏掉第一筆，請問各位大師，小弟程式那段要修正？或是錯誤，謝謝！ |
|
wangyunyong
一般會員  發表：1 回覆：9 積分：12 註冊：2007-02-16 發送簡訊給我 |
procedure TParser_DateFm1.Button1Click(Sender: TObject);
Var SQL_A,SQL_B,STDT,ENDT:string; done:Boolean; begin STDT:=COPY(DATETOSTR(DTP_STDT.DATE),6,5) '/' COPY(DATETOSTR(DTP_STDT.DATE),1,4); ENDT:=COPY(DATETOSTR(DTP_ENDT.DATE),6,5) '/' COPY(DATETOSTR (DTP_ENDT.DATE),1,4); SQL_A:='SELECT * FROM Twn_Day'; SQL_A:=SQL_A ' WHERE 開市日期>=''' STDT ''' AND '; SQL_A:=SQL_A ' 開市日期<=''' ENDT ''' '; Parser_DateFm1.Date_SQL.CLOSE; Parser_DateFm1.Date_SQL.SQL.Clear; Parser_DateFm1.Date_SQL.SQL.ADD(SQL_A); Parser_DateFm1.Date_SQL.OPEN; WHILE NOT Parser_DateFm1.Date_SQL.EOF DO BEGIN Parser_DateFm1.Date_SQL.NexT;//这句去除 if Date_SQL.FIELDBYNAME('星期').Text = '日' Then else if Date_SQL.FIELDBYNAME('星期').Text <> '六' Then begin Parser_DateFm1.ListBox1.Items.Add(Date_SQL.FIELDBYNAME('星期').Value); Parser_DateFm1.ListBox2.Items.Add(Date_SQL.FIELDBYNAME('名稱').Value); end; 新增部分 Parser_DateFm1.Date_SQL.NexT; End =====>>問題是要篩選星期一到星期五的資料 六,日除外，現在是可以完全篩選，但是會漏掉第一筆，請問各位大師，小弟程式那段要修正？或是錯誤，謝謝！ |
|
K1086
初階會員 發表：63 回覆：148 積分：42 註冊：2007-04-09 發送簡訊給我 |
發表時間：2007-11-27 21:32:26
IP:220.131.xxx.xxx 訂閱
系統時間：2024-04-26 2:52:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |