'Queryfday:Field 'not found' |
|
尚未結案
|
|
jiannrong
一般會員   發表：58 回覆：36 積分：18 註冊：2002-05-09 發送簡訊給我 |
請教一下
Datex Datex2 Datex3 這三個變數都是日期型態的
我現在要判斷的 我有一個儲存休假日期的資料表 叫做freeday
資料欄位叫做fday
我現在有兩個時間的值 比較小的 是Datex 比較大的是Datex2
那我把Datex的值給Datex3 當Datex3小於Datex2的時候
去判斷是否等於儲存休假日期的資料表 若不是 則datenum加一
我的程式在執行到
if DM.Queryfday.FieldByName('fday').AsDatetime =NULL then datenum:=datenum 1 ;
就有問題出現如下
Project Taipei_show.exe raised exception class EDatabaseError with message
'Queryfday:Field 'not found'. Process stopped.Use Step or Run to continue. 請教一下
1.我的程式是哪裡出問題呢
2. DM.Queryfday.FieldByName('fday').AsDatetime 這樣的敘述有問題嗎
謝謝
附上該段落的程式碼如下 Datex:=StrToDate(todate);
Datex2:=StrToDate(todate2);
Datex3:=Datex;
datenum:=0;
while Datex3<=Datex2 do
begin
DM.Queryfday.close;
DM.Queryfday.SQL.Clear;
try
DM.Queryfday.SQL.ADD('select fday from Freeday where fday= ''' datetostr(Datex3) '''');
showmessage(DM.Queryfday.SQL.Text );
DM.Queryfday.Prepare;
DM.Queryfday.ExecSQL;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
//end;
//if DM.Queryfday.FieldByName('fday').AsDatetime <> NULL then showmessage ('value=' datetostr(DM.Queryfday.FieldByName('fday').AsDatetime));
if DM.Queryfday.FieldByName('fday').AsDatetime =NULL then datenum:=datenum 1 ;
Datex3:=Datex3 1;
end;
//end;
DM.Query1.close;
DM.Query1.SQL.Clear;
try
DM.Query1.SQL.ADD('update difffday set diffday=''' inttostr(datenum) ''' where title =''' Title1 '''');
DM.Query1.Prepare;
DM.Query1.ExecSQL;
except
on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
|
|
andersonhsieh
版主  發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2002-09-16 01:43:28
IP:61.70.xxx.xxx 未訂閱
系統時間：2024-05-03 17:59:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |