vb中用addnew方法,对Access数据库增加记录,但是增加记录是会把第一条记录给替换了,该如何解决呢
展开全部
这是我回答另一个修改密码时的答案,可以参考一下,我用的是dbgrid,粘贴答案如下:
设置两个按钮,一个是添加,一个是确定,然后添加按钮代码为:
Data1.DatabaseName = "数据所在路径db1.mdb"
Data1.RecordSource = "表1"
Data1.Refresh'刷新表格
Data1.Recordset.MoveLast'移动指针到表格最后一个数据
Text1.SetFocus'聚焦到text1
Text1.Text = ""'这里的text是你要更换密码的空白文本
确定按钮代码如下:
Data1.Recordset.AddNew
Data1.Recordset("密码") = Val(Text1.Text)
Data1.Recordset.Update
值得一提的是,首先应该把确定按钮设置为不可用,然后text1代码填写为:
private sub text1_change()'当文本发生变化时
command1.enabled=true‘将确定按钮设置为可用
end sub
这样的设置就不会出现错误提示,也能保证原有密码不会被改写。
设置两个按钮,一个是添加,一个是确定,然后添加按钮代码为:
Data1.DatabaseName = "数据所在路径db1.mdb"
Data1.RecordSource = "表1"
Data1.Refresh'刷新表格
Data1.Recordset.MoveLast'移动指针到表格最后一个数据
Text1.SetFocus'聚焦到text1
Text1.Text = ""'这里的text是你要更换密码的空白文本
确定按钮代码如下:
Data1.Recordset.AddNew
Data1.Recordset("密码") = Val(Text1.Text)
Data1.Recordset.Update
值得一提的是,首先应该把确定按钮设置为不可用,然后text1代码填写为:
private sub text1_change()'当文本发生变化时
command1.enabled=true‘将确定按钮设置为可用
end sub
这样的设置就不会出现错误提示,也能保证原有密码不会被改写。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询