[转帖]也来转个技巧

make

取得下个自动生成的 ID
在数据库里我们使用了自动增加的 ID， 能取得下个自动产生的 ID

With Data1.Recordset
    .AddNew
    MsgBox !ID  '下个自动生成的 ID
    .CancelUpdate
End With

大熊

不错,不错,极有创意!

竹笛

怎么用啊？没看明白。有空的朋友具体说一下。

大熊

我也不会用,想来这个技巧是用来看的吧!

tmtony

这个技巧有个缺陷就是取了之后，虽然你取消了它，但ID值还是会增加
试试使用ADOX的TABLES和COLUMNS
lngSeedValue= col.Properties("Seed")
lngIncrementValue= col.Properties("Increment")
lngMaximumValue= Nz(rstMax!MaxValue.Value, 0) '取此表已有最大ID
然后用最大ID+lngIncrementValue即为下一个ID

大熊

TONY版主讲的很详细!

zhuyiwen

    这只是预计的下一个ID值！
   
    呵呵~~~~  

    [em27]