On Mon, 22 Jul 2002 15:53:19 +0900
Sugiyama <sugiyama@xxxxxxxxxx> wrote:

> 　今の処理は、東さんが示したような処理をしているんですよ。
> 　やっぱり、一発じゃ無理そうですね。
> 　もう少し考えてみます。最悪は、テーブル構造を見直す必要が
> 　ありそうです。

　では，データの挿入の前に bbsno の最大値に１を足した数字を
用意しておくというのはだめでしょうか？これなら，データ挿入に
関しては，１回で終了しますが。（SQLは２回実行していますが。）

　タイムラグがシビアなのか，SQLを簡潔に納めたいのか，良くわ
からないので，僕レベルではこれが限界。


<%
	sql = "select bbsno from BBS order by bbsno desc limit 1"
	set rs = server.createobject("adodb.recordset")
	rs.open sql, conn


Dim Next_bbsno

Next_bbsno	= CInt(rs.fields("bbsno")) + 1

	sql = "insert into BBS (######,refno) values(####,'"& Next_bbsno &"')"
	set rs = server.createobject("adodb.recordset")
	rs.open sql, conn

%>
 

-- 
神戸市教育委員会庶務課　情報企画係
　東　大樹　tel:078-322-5761 fax:078-322-6145
　Daiju Azuma <daiju_azuma@xxxxxxxxxx>
＞電子メールを使って電話代を節約しましょう。