Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 表  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702682
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

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

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

 

问题:

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

 


方法一:

很简单,先取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

 

本站文章旨在为该问题提供解决思路及关键性代码,并不能完成应该由网友自己完成的所有工作,请网友在仔细看文章并理解思路的基础上举一反三、灵活运用。

access911.net 原创文章,作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接

 

 
相关文章
     没有手动相关文章
     关于如何得到新增记录的自动编号字段数值方法三
     如何在表中新插入新记录后,获取该记录自动编号字段的值?
     如何用JET SQL DDL创建自动编号GUID字段
     如何在已有数据的情况下更改某列的数据类型为“自动编号 递增”
     如何更改数据类型为“自动编号”“同步复制ID”的值?
     自动编号如果递增到的最大数后会怎么样?什么是同步复制ID?
     自动编号的字段在删除记录后编号不连续
     误删除了某条含有自动编号字段的记录?怎么恢复?
     如何定义自动编号字段的初始值和步进值?
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利