掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
自動で連番でコードを取得させるには (ID：34649)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi7で開発しています。 コードを５桁で連番に自動取得させたいのですが、下のコードだと、最初は00001になりますが、あとは2とか3とかになってしまします。 どうすれば５桁で取得できますか？？ procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery2.SQL.Text := 'SELECT(CONVERT(INT,MAX(ISNULL(コード,0)) + 1))AS コード FROM TBL_アドレス帳'; ADOQuery2.Open; Edit7.Text := ADOQuery2.FieldByName('コード').AsString; if Edit7.Text = '' then Edit7.Text := '00001'; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.