求如何保存
Private Sub cmdUpdate_Click()'条件判断保证输入的合理性
'如果名称文本框为空,则显示提示信息并返回
If Trim(Text6.Text) = "" Then
MsgBox "名称不能为空", vbExclamation + vbOKOnly, "警告"
'设置鼠标焦点
Text6.SetFocus
Exit Sub
End If
'判断价格文本框输入不能为空
If Trim(Text7.Text) = "" Then
MsgBox "价格不能为空", vbExclamation + vbOKOnly, "警告"
'设置鼠标焦点
Text7.SetFocus
Exit Sub
End If
'判断价格文本框输入必须为数字
If Not IsNumeric(Trim(Text8.Text)) Then
MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
'设置鼠标焦点
Text8.SetFocus
'使文本变为选中状态
'设置选择的起始位置和选择的长度
Text8.SelStart = 0
Text8.SelLength = Len(Text8.Text)
Exit Sub
End If
'判断入库数量文本框输入必须为数字
If Not IsNumeric(Trim(Text9.Text)) Then
MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
'设置鼠标焦点
Text9.SetFocus
'使文本变为选中状态
'设置选择的起始位置和选择的长度
Text9.SelStart = 0
Text9.SelLength = Len(Text9.Text)
Exit Sub
End If
之前这些是各种判断,接下来我想讲输入的信息保存到数据库Data1中,应该如何保存
我的书中是需要UpdataBatch adAffectAll,我的vb里面没有啊 不知道怎么回事
还有书中是利用ADo的 而我要用access2000
谢谢了 我自己写的
'保存Data1的记录集的修改
Data1.Recordset.AddNew
Data1.Recordset.Update
'保存后,设置按钮状态
SetButtons True
有问题