我想要把自動編號內加入日期例如: 2003年10月3號而自動編號為0001 則變成200310030001那麼這種程式怎麼寫

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;

------
======================
昏睡~
不昏睡~
不由昏睡~

Sorry. 重复﹗ 發表人 - cashxin2002 於 2003/10/03 15:27:14

------
忻晟

引言: 您好! 因為您的問題涉及到日期欄位和字串欄位的轉換, 還需取出日期欄位中的年,月,日, 如果使用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(欄位名稱, 起始位置, 字串長度), 回傳值為字串. 參考看看! ===================== 努力,相信會獲得美麗! 忻晟

===================== 努力,相信會獲得美麗! 忻晟

引言: 我想要把自動編號內加入日期例如: 2003年10月3號而自動編號為0001 則變成200310030001那麼這種程式怎麼寫

可以先說明你的資料庫種類嗎?