1.SQL Server
对于SQL Server 2000来说，它提供了两个全新的函数(IDENT_CURRENT,SCOPE_IDENTITY),并且改进了@@IDENTITY的不足.当你插入新记录后，可以调用函数:
PRINT IDENT_CURRENT(@#table@#) @#这将获得新的IDENTITY值，不管数据库中是不是有记录添加(这就避免了@@IDENTITY的连接限制)
或者：PRINT SCOPE_IDENTITY() @#这将获得在当前存储过程，触发器等其他程序创建的最新记录的IDENTITY值.
而全局变量@@IDENTITY有一个问题，当对一张表执行insert时，如果该表有触发器程序在执行插入操作，然后，接着在另一张表中插入记录，这样返回@@IDENTITY值就是第二张表的IDENTITY值。
如果你用的不是SQL Server 2000，你最好一个简单的存储过程来解决这个问题。
CREATE PROCEDURE myProc
@param1 INT
AS
BEGIN
SET NOCOUNT ON
INSERT INTO someTable
(
intField
)
VALUES
(
@param1
)
SET NOCOUNT OFF
SELECT NEWID = @@IDENTITY
END
在ASP中你可以这样做:
<%
fakeValue = 5
set conn = Server.CreateObject("ADODB.Connection")
conn.open "<conn string>"
set rs = conn.execute("exec myProc @param1=" & fakeValue)
response.write "New ID was " & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>
2.Access
对于Access,你可以用下面这样的方法：
<%
fakeValue = 5
set conn = Server.CreateObject("ADODB.Connection")
conn.open "<conn string>"
conn.execute "Insert into someTable(intField) values(" & fakeValue & ")"
set rs = conn.execute("select MAX(ID) from someTable")
response.write "New ID was " & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>
然而对于多人同时向数据库中添加数据，我们就要利用记录集的adOpenKeyset游标来防止出错。例如下面的例子:
<%
fakeValue = 5
set conn = Server.CreateObject("ADODB.Connection")
conn.open "<conn string>"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select [intField] from someTable where 1=0", conn, 1, 3
rs.AddNew
rs("intField") = fakeValue
rs.update
response.write "New ID was " & rs("id")
rs.close: set rs = nothing
conn.close: set conn = nothing
%>
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
