vb中如何实现自动递增的字段.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 5 行

由 于 VB和 FoxPro 2.5都 不 象 Access那 样 支 持 自 动 递 增 的 字 段 ， 所 以 要 做 到 这 一 点 稍 微 有 点 麻 烦 。 借 助 SQL的 Update语 句 比 较 方 便 。 比 如 ， 在 数 据 库 中 增 加 了 第 200号 记 录 ， 所 有 200号 以 后 的 记 录 递 增 ， 可 以 用 下 面 的 语 句 ： 
    dbs.Execute "UPDATE Employees " _ 
     & "SET a = a + 1 " _ 
     & "WHERE a >= 200" 
<END>