如何获取主表id,在线等

[myjce]

一个主表，一个从表，主表id为自动增长，两表有ＩＤ关联，因为在插入从表记录是要用到主表id，那么在插入主表记录后，如何获取刚插入的记录id呢，需考虑并发性，谢谢

[changechange]

关于此主题请参考：
《表》关于如何得到新增记录的自动编号字段数值方法二
http://access911.net/index.asp?u1=a&u2=71FABF1E17DC

[changechange]

关于如何得到新增记录的自动编号字段数值方法二


作者：cg1 摘自：access911.net 编辑：cg1 更新日期：2003-1-8 浏览人次：1077

专题地址：
http://access911.net/?kbid;71FABF1E17DC



简述：
本文简述自动编号字段添加数据后的数值如何编程得到


阅读前需掌握：


难度等级：
等级未评定




问题：



关于如何得到新增记录的自动编号字段数值方法二




方法一：


很简单，先取id后update

dim rcd as long
Dim rs As New ADODB.Recordset
rs.Open "表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rcd=rs("id")
rs.update
rs.Close

docmd.runsql "update … where id="&str(rcd)









方法二：




必须 jet oledb 4 支持
Private Sub AutoIncTest()
Dim cnn As ADODB.Connection
'Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
'Set cmd = New ADODB.Command
'Set cmd.ActiveConnection = cnn
'cmd.CommandType = adCmdText
'cmd.CommandText = "INSERT INTO tblNewOrder2 " & _
"(ItemId, Quantity) VALUES (1, 20)"
'cmd.Execute
'Set cmd = Nothing
cnn.execute "insert into tblneworder2 (item) values ('dd')"
Set rst = New ADODB.Recordset
rst.Open "SELECT @@IDENTITY AS LastOrderId", _
cnn,
Options:=adCmdText
Debug.Print "OrderId for new record = " & _
rst("LastOrderId")
rst.Close
Set rst = Nothing
End Sub









适用环境：
Access 2000 以上


关键字：
自动编号,新增 >>>




相关文章
没有手动相关文章
自动编号如果递增到的最大数后会怎么样？什么是同步复制ID？
自动编号的字段在删除记录后编号不连续
误删除了某条含有自动编号字段的记录？怎么恢复？
如何定义自动编号字段的初始值和步进值？

评论
没有相关评论
查看或发表更多的评论，请单击这里。