全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1450
推到 Plurk!
推到 Facebook!

access 表格的 編號 設為 今日+編號 例20080908001

尚未結案
cod3339
一般會員


發表:27
回覆:15
積分:8
註冊:2004-12-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-09-08 18:52:43 IP:58.99.xxx.xxx 未訂閱
請問 access 的表格 中的 編號 如何設為  今天+自動編號
例如今天是2008/9/8 這個 自動編號 就是 20080908001

是怎麼設這種自動編號的呢!!
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-09-09 16:01:24 IP:122.116.xxx.xxx 訂閱
// 找到序號
adoquery1.sql.text := 'SELECT MsysObjects.[Name] tablename FROM MsysObjects'
'WHERE MsysObjects.[Type] IN (1, 4, 6)'
'AND MsysObjects.[Name] like ''' formatdatetime('yyyymmdd',now) '%'''
'ORDER BY MsysObjects.[Name] desc';
adoquery1.open;
if adoquery1.eof then
ii := '001'
else begin
ii := formatfloat('000', strtofloat('copy(adoquery1.fieldbyname('tablename').asstring,9,3)) 1);
end;
// create table
adoquery1.close;
adoquery1.sql.text :='create table ' formatdatetime('yyyymmdd', now) ii ' (fld1 varchar(2), ....)';
adoquery1.execsql;

我沒實測, 請自行測試.
又, 這個需求有點怪, 如果在單機, 可能還可以, 如果是 client-server, 會牽涉到碰撞, lock 問題, 那要考慮的情況可多者囉.

參考一下.


===================引 用 cod3339 文 章===================
請問 access 的表格 中的 編號 如何設為 今天 自動編號
例如今天是2008/9/8 這個 自動編號 就是 20080908001

是怎麼設這種自動編號的呢!!
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
系統時間:2017-10-23 17:52:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!