数据库自动排序，死机之后少了一条记录。

阿来

数据库使用了自动排序。死机以后最后一条记录丢失了。但是现在也不能再加上这个序列号的记录了。

例如。6、7、8    输到8了。这时候死机。再开机 只有 6、7、 了 。这时候再添加记录只能添加 9了。成了 6、7、9。

请问有什么办法能把序列号 8 加上去呢？ 谢谢！

一点通

用数据库默认的自动编号是不能再追加掉失的编号,解决方法只能自定义编号,可在论坛上搜索一下

fan0217

可以用ADO写入缺少的自动编号

fan0217

本例子采用ADO，将指定的值写入自动编号，但在下次添加记录时自动编号会在用ADO写入值的基础上加1。

Private Sub Command10_Click()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim strSQL As String

Set con = CurrentProject.Connection
strSQL = "SELECT * FROM 日记 "

rec.Open strSQL, con, adOpenKeyset, adLockPessimistic

With rec
    .AddNew
    If Not IsNull(Me.Text1) Then
    .Fields("ID") = Me.Text1       '在Text1文本框中写入值后，该值将被写入指定自动编号ID当中。
    End If
    .Fields("日期") = Me.Text7
    .Fields("内容") = Me.Text3
    .Update
End With

   rec.Close

    Set con = Nothing
    Set rec = Nothing
        
    Me.Text1 = Null
    Me.Text7 = Date
    Me.Text3 = Null
    Me.Child2.Requery
    MsgBox "添加成功！"

End Sub

[此贴子已经被作者于2006-2-14 21:20:17编辑过]

阿来

看了版主的例子。仔细研究了一下，已经解决了。

看来是学无止境，以后还的多多的努力。

非常非常感谢帮助我的两位版主。真的非常感谢！

ytf822

ddddddddddd

ytf822

ddddddddddddddd

ytf822

ddddddddddddddddddd

qlm

ddddddddddddddddddddddddddddddddd

linghaiszw

很好！！！