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

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-1-8 浏览人次：5451

专题地址：http://www.access911.net/index.asp?u1=a&u2=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.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=71FABF1E17DC

上一篇：报表中如何屏蔽零值?

下一篇：把ACCESS表导入到SQL SERVER后无法修改/添加/删除记录了？

2010年7月2日生成静态资料