我当前插入我的新记录然后运行一个选择查询使用(我希望)足够的字段,以保证只返回新插入的记录.我的数据库很少被一个人一次访问(在查询之间发生另一次插入的风险可以忽略不计),并且由于表的结构,识别新记录通常很容易.
我现在正在尝试更新一个没有太多唯一性范围的表,而不是人工主键.这意味着存在新记录可能不是唯一的风险,并且我不愿意添加字段以强制唯一性.
在这种情况下,将记录插入Access表然后从Excel查询新主键的最佳方法是什么？
谢谢你的回复.我试图让@@ IDENTITY工作,但这总是使用下面的代码返回0.
Private Sub getIdentityTest()
Dim myRecordset As New ADODB.Recordset
Dim sql As String,sql2 As String
sql = "INSERT INTO tblTasks (discipline,task,owner,unit,minutes) VALUES (""testDisc3-3"",""testTask"",""testOwner"",""testUnit"",1);"
sql2 = "SELECT @@identity AS NewID FROM tblTasks;"
If databaseConnection Is Nothing Then
createDBConnection
End If
With databaseConnection
.Open dbConnectionString
.Execute (sql)
.Close
End With
myRecordset.Open sql2,dbConnectionString,adOpenStatic,adLockReadOnly
Debug.Print myRecordset.Fields("NewID")
myRecordset.Close
Set myRecordset = Nothing
End Sub
有什么突出的责任吗？
但是,考虑到Renaud帮助提供的警告(下图),使用@@ IDENTITY与使用任何其他方法的风险几乎相同,所以我现在使用SELECT MAX.为了将来参考,虽然我有兴趣看看我上面的尝试有什么问题.
解决方法
I’m now trying to update a table that
does not have much scope for
uniqueness,other than in the
artificial primary key. This means
there is a risk that the new record
may not be unique,and I’m loathe to
add a field just to force uniqueness.
如果您使用AutoIncrement作为主键,那么您具有唯一性,您可以使用SELECT @@ Identity;获取最后一个自动生成ID的值(请参阅下面的警告).
如果您没有使用自动增量,并且您要从Access插入记录但是想从Excel中检索最后一个：
>确保您的主键是可排序的,因此您可以使用以下任一查询获取最后一个：
SELECT MAX(MyPrimaryField) FROM MyTable; SELECT TOP 1 MyPrimaryField FROM MyTable ORDER BY MyPrimaryField DESC;
>或者,如果排序你的主要字段不会给你最后一个,你需要添加一个DateTime字段(比如InsertedDate)并在每次在该表中创建一个新记录时保存当前日期和时间,这样你就可以得到最后一个像这样：
SELECT TOP 1 MyPrimaryField FROM MyTable ORDER BY InsertedDate DESC;
在任何一种情况下,我认为您会发现添加AutoIncrement主键更容易处理：
>这不会让你付出太多代价
>这将保证您的记录的独特性,而无需考虑它
>这将使您更容易选择最新的记录,使用@@ Identity或通过主键排序或获取Max().
来自Excel
要将数据导入Excel,您有以下几种选择：
>使用查询创建数据链接,以便直接在Cell或范围中使用结果.
>来自VBA的查询：
Sub GetLastPrimaryKey(PrimaryField as string,Table as string) as variant
Dim con As String
Dim rs As ADODB.Recordset
Dim sql As String
con = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source= ; C:\myDatabase.accdb"
sql = "SELECT MAX([" & PrimaryField & "]) FROM [" & MyTable & "];"
Set rs = New ADODB.Recordset
rs.Open sql,con,adLockReadOnly
GetLastPrimaryKey = rs.Fields(0).Value
rs.Close
Set rs = Nothing
End Sub
关于@@ Identity的注意事项
在标准Access数据库(*)中使用@@ Identity时,您必须是careful of the caveats：
>它仅适用于AutoIncrement Identity字段.
>它仅在您使用ADO并运行SELECT @@ IDENTITY时才可用;
>它返回最新使用的计数器,but that’s for all tables.你不能用它来返回MS Access中特定表的计数器(据我所知,如果你使用FROM mytable指定一个表,它就会被忽略).
简而言之,返回的值可能与您期望的值完全不同.
>您必须在INSERT之后直接查询它,以最大程度地降低获得错误答案的风险.
这意味着,如果您一次插入数据并需要在另一个时间(或其他地方)获取最后一个ID,则无法使用.
>最后但并非最不重要的是,仅当通过编程代码插入记录时才设置变量.
这意味着通过用户界面添加了记录,将不会设置@@ IDENTITY.
(*)：为了清楚起见,@@ IDENTITY表现不同,并且以更具预测性的方式,如果您对数据库使用ANSI-92 sql模式.但问题是ANSI 92的语法略有不同Access支持的ANSI 89风格,旨在当Access用作前端时增加与sql Server的兼容性.
