用vb向数据库添加数据的问题,高手请指导!
用vb向数据库添加数据,编码是自动编码,添加后在数据库把数据删除了,可是再继续添加数据,编码是按删除前的编码往后计数的,请问怎样解决这个问题?
部分代码:
Private Sub Command1_Click()
'On Error Resume Next
'MsgBox Form1.Data1.Recordset.RecordCount
Form1.Data1.Recordset.AddNew
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
Form1.Data1.Recordset.Update
If Err.Number <> 0 Then
Beep
MsgBox "输入数据错误,请重新输入", vbCritical + vbOKOnly, "错误信息"
Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If
Form1.Enabled = True
Unload Form2
End Sub
[解决办法]
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text 是不是自动编号的字段,如果是,就不用写这个了。
[解决办法]
如果字段是自动递增的标识列,则确实是这样的,即使在数据库中删除记录再增行也是不连续的
[解决办法]
删除当前记录时将后面记录的自动编号用代码修改。
[解决办法]
是不是可以再数据增加之前先刷新一下数据库?
Form1.Data1.Recordset.Update
Form1.Data1.Recordset.AddNew
。。。。。。
[解决办法]
就是这样的,无法改,但是这个没什么关系吧,这样的字段一般是用作记录的唯一标识.不影响读取内容