日期的自動編號 |
尚未結案
|
sun_chih_yen
一般會員 ![]() ![]() 發表:40 回覆:33 積分:13 註冊:2003-10-03 發送簡訊給我 |
|
ko
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
sun_chih_yen 你好: with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select id from m where id like' QuotedStr('%' FormatDateTime('yyyymmdd',now) '%') ' order by id desc');
open;
if not IsEmpty then
Label1.Caption:= ADOQuery1.FieldByName('id').AsVariant 1
else
Label2.Caption:= FormatDateTime('yyyymmdd',now) '0001';
end;
end;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
引言: 您好! 因為您的問題涉及到日期欄位和字串欄位的轉換, 還需取出日期欄位中的年,月,日, 如果使用Year(), Month(), Day()函數來做的話, 就再變成數值欄位和字串欄位之間的轉換, 會比較麻煩一些, 所以相比之下用Mid函數從日期欄位中直接抓取指定長度的字串比較簡便一些, 程式碼如下:===================== 努力,相信會獲得美麗! 忻晟begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Update Table Set 自動編號=Mid(日期,1,2) Mid(日期,4,2) Mid(日期,7,4) 自動編號'); ADOQuery1.ExecSQL; end;以上範例假設日期格式為: mm/dd/yyyy, 如果不同此, 請在使用Mid函數時自動做以調整. 此處的Mid函數是以Access資料庫為例, 如果您是使用MSSQL, 請將Mid函數改為Substring即可, 其使用方法為: Mid(欄位名稱, 起始位置, 字串長度), 回傳值為字串. 參考看看! ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟 |
timhuang
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |