Dim rs As New ADODB.Recordset Private Sub Command10_Click() rs.Fields(0) = DataGrid1.Text'把光标所指当前字段保存到数据集中(rs 你所操作的表)的第一字段 rs.Update End Sub 你也可以直接rs.Update
你可以在DataGrid控件的BeforeUpdata事件里,输入你要确定的代码:如dim x as interger x=msgbox("确定要更新数据吗?",vbquestion+vbyesok,"询问") if x=6 then {更新} else Cancel=1 end if
Private Sub Command10_Click()
rs.Fields(0) = DataGrid1.Text'把光标所指当前字段保存到数据集中(rs 你所操作的表)的第一字段
rs.Update
End Sub
你也可以直接rs.Update
x=msgbox("确定要更新数据吗?",vbquestion+vbyesok,"询问")
if x=6 then
{更新}
else
Cancel=1
end if