直接修改datagrid的内容，如何使它在按一个一个按钮后数据库自动更新？

Question

我在datagrid中设置允许更新，可以直接改datagrid中的数据，但是数据库不发生变化，只有当退出程序后，数据库才更改，如何写个按钮“提交”，使它按下后，数据库马上进行更新。

Answer 1

Set DataGrid1.DataSource = Rs------------------------
Rs.update  就可以实现更新

Answer 2

还是不行，一个按钮的内容是
 Set wa = New ADODB.Connection
  wa.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & App.Path & "\tcjh.mdb"
  wa.OpenSet wb = New ADODB.Recordset
  wb.CursorLocation = adUseClient
  wb.Open "Select * from main where errorflag='1'", wa, adOpenDynamic, adLockOptimistic
  
Set datagrid1.DataSource = wb
     wb.Update
     
 datagrid1.Refresh但是修改datagrid1内容，再单击这个按钮还是变回原来的内容

Answer 3

最笨的方法，拉个DATA1控件
Private Sub Command1_Click()
Data1.Recordset.Edit
Data1.Recordset.Update
End Sub

Answer 4

刷新后再绑定
Set DataGrid1.DataSource = nothing Rs.Requery  
Set DataGrid1.DataSource = Rs