使用SQL語法,一次更新整個TABLE的欄位值 |
答題得分者是:ccchen
|
cocodi
一般會員 發表:21 回覆:65 積分:17 註冊:2002-06-27 發送簡訊給我 |
謝謝,讓大家幫忙了,我想我將DATA 與錯誤訊息POST上去,並將問題整理一下,請大家再幫忙一下:
Q1:TABLE中有AANOW的數值欄位,我想 2 後轉成文字型態存並且存到 BBNOW欄位中
Q2:INDAY為文字欄位(原先是用來存放民國年月日),我需要年加上1911後轉成日期型態並存到 INSTDAY_ 中
Q3:若某些RECORD 的 INDAY中的日期就不合法,我想給它一個DEFAUL值 EX: 90.01.01我該如何預防
THAT'S ALL . THANK'S
附加檔案:24210_AA.zip
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); var s:string; yr,mn,d:integer; dt:TDateTime; I:INTEGER; begin with Query1,sql do begin close; clear; add('select * from SS'); open; i:=0; while not eof do begin inc(i); edit1.text:=inttostr(i); edit1.refresh; s:=fieldbyname('INDAY').asstring; if (Trim(s)='') or (pos(s[1],'123456789')=0) then dt:=StrToDate('2001/1/1') else begin yr:=strtoint(copy(s,1,2)) 1911; mn:=StrToint(copy(s,4,2)); d:=StrToint(copy(s,7,2)); try dt:=EnCodeDate(yr,mn,d); except dt:=StrToDate('2001/1/1') end; end; edit; fieldbyname('INDAY_').asdateTime:=dt; try fieldbyname('BBNOW').asinteger:=StrTOint(fieldbyname('AANOW').asstring) 2; except fieldbyname('BBNOW').asinteger:=0; end; post; next; END; end; end; |
cocodi
一般會員 發表:21 回覆:65 積分:17 註冊:2002-06-27 發送簡訊給我 |
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
|
cocodi
一般會員 發表:21 回覆:65 積分:17 註冊:2002-06-27 發送簡訊給我 |
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |