Office中国论坛/Access中国论坛

标题: 数据库自动排序，死机之后少了一条记录。 [打印本页]

作者: 阿来 时间: 2006-2-14 22:40
标题: 数据库自动排序，死机之后少了一条记录。
数据库使用了自动排序。死机以后最后一条记录丢失了。但是现在也不能再加上这个序列号的记录了。

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

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

作者: 一点通 时间: 2006-2-14 22:57
用数据库默认的自动编号是不能再追加掉失的编号,解决方法只能自定义编号,可在论坛上搜索一下

作者: fan0217 时间: 2006-2-15 02:04
可以用ADO写入缺少的自动编号

作者: fan0217 时间: 2006-2-15 03:40
[attach]15835[/attach]
本例子采用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编辑过]

作者: 阿来 时间: 2006-2-15 19:17
看了版主的例子。仔细研究了一下，已经解决了。

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

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

作者: ytf822 时间: 2006-4-16 04:57
ddddddddddd

作者: ytf822 时间: 2006-4-16 04:58
ddddddddddddddd

作者: ytf822 时间: 2006-4-16 04:58
ddddddddddddddddddd

作者: qlm 时间: 2006-4-16 05:25
ddddddddddddddddddddddddddddddddd

作者: linghaiszw 时间: 2006-4-16 08:28
很好！！！

作者: ifly 时间: 2006-4-16 16:12
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)