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

luodream

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

luodream

删除的原因是：ID变得很大

luodream

ID不知道什么原因变得很大，被我删除了。能新增个ID吗？或者能按正常增加ID，而不变得如此之大。

luodream

急啊。

luodream

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

lwchy7882

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

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

AlanMeng

学习了，关注中

andymark

把表的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 ...

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