表设计
Access获取表下个自动增加的ID值【两种方法】
2013-11-01 17:10:42
在数据库里我们使用了自动增加的 ID， 能取得下个自动产生的 ID
With Data1.Recordset
.AddNew
MsgBox !ID '下个自动生成的 ID
.CancelUpdate
End With
但是这种方法有个缺陷就是取了之后，虽然你取消了它，但ID值还是会增加
我们可以使用ADOX的TABLES和COLUMNS
lngSeedValue= col.Properties("Seed")
lngIncrementValue= col.Properties("Increment")
lngMaximumValue= Nz(rstMax!MaxValue.Value, 0) '取此表已有最大ID
然后用最大ID+lngIncrementValue即为下一个ID