create procedure spAAA( @pField1 varchar(10), @pField2 varchar(200), @pID int output ) as insert into AAA(Field1, Field2) values (@pField1, @pField2)select @pID=@@identitygo/* 在DELPHI中的调用代码:(每次保存数据都用这一个存储过程去写入数据库中!) Query1.SQL.Clear; Query1.SQL.Add('declare @pID int Query1.SQL.Add('exec spAAA :@pField1, :@pField2, @pID output'); Query1.SQL.Add('select @pID'); Query1.Active:=True; // ShowMessage(Query1.Fields[0].AsString);//刚才插入的ID值 */
用@@identity,与插入一起放在事务里面,不存在并发。
我倒是这样觉得,因为你要得到刚刚插入行的ID,没有必要在数据库中做,你用Delphi重新选择一下你插入行的ID就行了。 例如: Insert Into YourTable(Name,...) values('aaa',,,)那么在Delphi中你重新选择: Select ID From YourTable Where Name='aaa'总之,我觉得各种工具是方便我们使用的,我们选择使用最简单的方法。
现在是要insert之后,马上获得这个ID,因为存在并发操作的可能,不知怎样才能准确地得到这个刚刚insert行的ID
2.写入数据后,读取@@indetity的值就得到刚插入的id了.
返回最后插入的标识值。语法
@@IDENTITY返回类型
numeric注释
在一条 INSERT、SELECT INTO 或大容量复制语句完成后,@@IDENTITY 中包含此语句产生的最后的标识值。若此语句没有影响任何有标识列的表,则 @@IDENTITY 返回 NULL。若插入了多个行,则会产生多个标识值,@@IDENTITY 返回最后产生的标识值。如果此语句激发一个或多个执行产生标识值的插入操作的触发器,则语句执行后立即调用 @@IDENTITY 将返回由触发器产生的最后的标识值。若 INSERT 或 SELECT INTO 语句失败或大容量复制失败,或事务被回滚,则 @@IDENTITY 值不会还原为以前的设置。在返回插入到表的 @@IDENTITY 列的最后一个值方面,@@IDENTITY、SCOPE_IDENTITY 和 IDENT_CURRENT 函数类似。 @@IDENTITY 和 SCOPE_IDENTITY 将返回在当前会话的所有表中生成的最后一个标识值。但是,SCOPE_IDENTITY 只在当前作用域内返回值,而 @@IDENTITY 不限于特定的作用域。IDENT_CURRENT 不受作用域和会话的限制,而受限于指定的表。IDENT_CURRENT 返回任何会话和任何作用域中为特定表生成的标识值。有关更多信息,请参见 IDENT_CURRENT。示例
下面的示例向带有标识列的表中插入一行,并用 @@IDENTITY 显示在新行中使用的标识值。INSERT INTO jobs (job_desc,min_lvl,max_lvl)
VALUES ('Accountant',12,125)
SELECT @@IDENTITY AS 'Identity'
请参见CREATE TABLEIDENT_CURRENTINSERTSCOPE_IDENTITYSELECT系统函数©1988-2000 Microsoft Corporation。保留所有权利。
@@indetity返回最后插入的标识值。
定义一个output参数
insert后
再读取@@identity的值
付给output参数就可以了
ado还是bde??
@pField1 varchar(10),
@pField2 varchar(200),
@pID int output
)
as
insert into AAA(Field1, Field2)
values (@pField1, @pField2)select @pID=@@identitygo/*
在DELPHI中的调用代码:(每次保存数据都用这一个存储过程去写入数据库中!)
Query1.SQL.Clear;
Query1.SQL.Add('declare @pID int
Query1.SQL.Add('exec spAAA :@pField1, :@pField2, @pID output');
Query1.SQL.Add('select @pID');
Query1.Active:=True;
//
ShowMessage(Query1.Fields[0].AsString);//刚才插入的ID值
*/
例如:
Insert Into YourTable(Name,...) values('aaa',,,)那么在Delphi中你重新选择:
Select ID From YourTable Where Name='aaa'总之,我觉得各种工具是方便我们使用的,我们选择使用最简单的方法。