急：表中ID删除，如何恢复？

luodream

急：表中ID删除，如何恢复？

andymark

重新设置自动编号初始值 FAN0217的例子
http://www.office-cn.net/forum.p ... ighlight=%2Bfan0217

andymark

把表的ID字段删除保存后 再重新建立一个ID
这种方法只适合重新按顺序排序 并不能在原来的编码指定初始值

luodream

自己顶一下.......

luodream

原帖由 andymark 于 2007-12-25 22:09 发表
把表的ID字段删除再重新建立亦可 , 操作前备份原表

我试过，但不知道怎么重建，请指点。

luodream

原帖由 tmtony 于 2007-12-25 17:46 发表
使用下面代码可以修改自动ID (引用ADOX), 不过, 最好先备份数据
Public Function ChangeIdentity(ByVal strTable As String, ByVal strColumn As String, _
                               ByVal lngSeed As Lo ...

谢谢，
但是怎么作用于表呢？

andymark

把表的ID字段删除再重新建立亦可 , 操作前备份原表

AlanMeng

学习了，关注中

tmtony

使用下面代码可以修改自动ID (引用ADOX), 不过, 最好先备份数据
Public Function ChangeIdentity(ByVal strTable As String, ByVal strColumn As String, _
                               ByVal lngSeed As Long, ByVal lngIncrement As Long) As Boolean
On Error GoTo ErrHandler
    Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = CurrentProject.Connection
    cat.Tables(strTable).Columns(strColumn).Properties("Seed").Value = lngSeed
    cat.Tables(strTable).Columns(strColumn).Properties("Increment").Value = lngIncrement
    ChangeIdentity = True
ExitProcedure:
    Set cat = Nothing
    Exit Function
ErrHandler:
    MsgBox Err.Description, vbCritical
    Resume ExitProcedure
End Function

lwchy7882

我认为一般自动编号字段都设计为不可见字段为好,让用户看到的字段尽量不是自动编号字段

luodream

或能否新建个表，重新导入 数据，让ID重新生成？这个ID变到10个亿了 1073745536