我用vb的adodc控件添加,修改,删除,mdb数据库中一张表,卡号设为主键,自动编号
为什么删除后再添加,编号就乱了,怎么回事,连接就是直接在设计窗口里连接的,哪位高手帮忙改改,还有那个update,和refresh到底什么区别怎么用?删除部分代码:IfA...
为什么删除后再添加,编号就乱了,怎么回事,连接就是直接在设计窗口里连接的,哪位高手帮忙改改,还有那个update,和refresh到底什么区别怎么用?
删除部分代码:
If Adodc2.Recordset.BOF = True And Adodc2.Recordset.EOF = True Then
MsgBox "您的会员账户中没有信息可以删除!", vbOKOnly + vbExclamation, "出错!"
Else
i = MsgBox("卡号:" & T21(0).Text & Chr(13) & Chr(10) & _
"车牌号:" & T21(1).Text & Chr(13) & Chr(10) & _
"司机:" & T21(2).Text & Chr(13) & Chr(10) & _
"注销后,此账户有关数据将清空,确定注销吗?", vbOKCancel + vbExclamation, "警告!")
If i = vbOK Then
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
MsgBox "注销成功!", vbOKOnly, "提示:"
Adodc2.Refresh
End If
End If
添加部分代码:
Adodc2.Recordset.AddNew
……
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
发现没有分了,还是帮帮我吧,有了分会加上的 展开
删除部分代码:
If Adodc2.Recordset.BOF = True And Adodc2.Recordset.EOF = True Then
MsgBox "您的会员账户中没有信息可以删除!", vbOKOnly + vbExclamation, "出错!"
Else
i = MsgBox("卡号:" & T21(0).Text & Chr(13) & Chr(10) & _
"车牌号:" & T21(1).Text & Chr(13) & Chr(10) & _
"司机:" & T21(2).Text & Chr(13) & Chr(10) & _
"注销后,此账户有关数据将清空,确定注销吗?", vbOKCancel + vbExclamation, "警告!")
If i = vbOK Then
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
MsgBox "注销成功!", vbOKOnly, "提示:"
Adodc2.Refresh
End If
End If
添加部分代码:
Adodc2.Recordset.AddNew
……
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
发现没有分了,还是帮帮我吧,有了分会加上的 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询