|
修改数据和添加数据没有什么大的区别
修改就是重新添加
步骤
一:首先修改数据
二:
定义三个变量
结果集
字符串
字符串
Dim txtSQL As String
Dim MsgText As String
Dim mrcc As ADODB.Recordset
三:判断数据有效性
四:删除要修改的数据,
记得一定要先判定后删除,要不删除了在判断,导致新数据没有,修数据也被删除了
五:
重新添加数据
操作记录集
mrc.AddNew
mrc.Fields(0) = Trim(txtSID.Text)
mrc.Fields(1) = Trim(txtName.Text)
mrc.Fields(2) = Trim(cboSex.Text)
mrc.Fields(3) = Trim(txtBirthday.Text)
mrc.Fields(4) = Trim(cboClass.Text)
mrc.Fields(5) = Trim(txtTel.Text)
mrc.Fields(6) = Trim(txtComSchool.Text)
mrc.Fields(7) = Trim(txtHomeAddress.Text)
mrc.Fields(8) = Trim(txtComment.Text)
mrc.Update
MsgBox "修改学籍信息成功", vbOKOnly + vbExclamation, "提示"
六 设置相关按钮的有效性 | 
转播
