SCOPE_IDENTITY() 与 rs.Fields

Question

这些工作方式有什么区别：

Sql = "INSERT INTO mytable (datapath, analysistime,reporttime, lastcalib,analystname,reportname,batchstate,instrument) " & _
      "VALUES (dpath, atime, rtime,lcalib,aname,rname,bstate,instrument) SELECT SCOPE_IDENTITY()"

Set rs = cn.Execute
Set rs = rs.NextRecordset

这个：

With rs
    .AddNew ' create a new record
    ' add values to each field in the record
    .Fields("datapath") = dpath
    .Fields("analysistime") = atime
    .Fields("reporttime") = rtime
    .Fields("lastcalib") = lcalib
    .Fields("analystname") = aname
    .Fields("reportname") = rname
    .Fields("batchstate") = bstate
    .Fields("instrument") = instrument

    .Update ' stores the new record
      id=fields.Fields("rowid")  ' ** Answer to Question ***     
End With

我的问题具体是这样的：

我处于多用户环境中。用户添加记录后，我需要立即捕获添加的记录的 ROWID。我该怎么做？

这就是我打开记录集的方式：

rs.Open "batchinfo", cn, adOpenKeyset, adLockOptimistic, adCmdTable

Answer 1

不同之处在于添加记录并获取结果的方式。

在第一种情况下，您将发出 INSERT 语句，然后调用 SCOPE_IDENTITY。

在第二种情况下，您打开一个可更新游标，向其中添加一条记录并读回新添加的记录。

打开游标可能是一项相当消耗资源的操作（这取决于您如何执行）。它还会降低并发性。

Answer 2

您的第一个代码示例在 SQL Server 中不合法。 VALUES 子句后面的名称应该是什么？我想它们应该是参数，但你不能像这样传递参数。是否有某种原因导致您不使用参数化存储过程和参数对象来传递参数？

Answer 3

大多数时候我使用打开记录集、添加数据、更新、获取 ID 方法，但是正如 Quassnoi 所说，这可能会占用大量资源。对于应用程序中被频繁调用或需要尽可能快运行的部分，我倾向于使用以新行 ID 作为返回参数的存储过程。

这是一个代码示例

Set cmd = New ADODB.Command

With cmd

    .CommandText = "sptblTest_questions_UPSERT"
    .CommandType = adCmdStoredProc
    .ActiveConnection = dbCon

    .Parameters.Append .CreateParameter("@Question_ID", adInteger, adParamInput, 0, Me.txtQuestion_ID)

    .Parameters.Append .CreateParameter("@Section_ID", adInteger, adParamInput, 0, Me.txtSection_ID)

    .Parameters.Append .CreateParameter("@Question_number", adTinyInt, adParamInput, 0, Me.txtQuestion_number)

    .Parameters.Append .CreateParameter("@Question_text", adVarChar, adParamInput, 1000, Me.txtQuestion_text)

    .Parameters.Append .CreateParameter("@Max_score", adSmallInt, adParamInput, 0, Me.txtMax_score)

    .Parameters.Append .CreateParameter("@User", adVarChar, adParamInput, 50, fOSUserName)

    .Parameters.Append .CreateParameter("@Inserted_ID", adInteger, adParamOutput, 0)

    .Execute

    Me.txtQuestion_ID = .Parameters("@Inserted_ID")

End With