DataGrid 问题 ，麻烦各位了！

Question

怎样使VB6.0中的DataGrid处于可编辑状态（更新和新增），但不自动更新数据库中的数据，
如果直接设置成更新和新增的话，焦点离开单元格后就自动更新数据库里面的数据了，我想当我点击保存按钮时才在数据库中保存DataGrid中的数据。
怎样做才可以这样？拜托各位了

Answer 1

To  dqhuaying(不再留恋) : 我连的是Sqlserver2000数据库 用ADO连接huangjianyou(小健) 这么麻烦啊，有没有简便一些的方法啊。我以为可能是只要设置一下DataGrid的一些属性就可以搞定了。
麻烦各位了，给想想办法把！

Answer 2

To  huangjianyou(小健):
用存储过程的话 我的DataGrid原数据怎么来，过程表里面没有数据啊？

Answer 3

照你这么说，好像没什么办法了，要不换MSFlexGrid或MSHFlexGrid

Answer 4

那有那么复杂，搞什么存储过程嘛，用批次打开就是了adOpenStatic, adLockBatchOptimistic

Answer 5

Option ExplicitPublic Rs As New ADODb.Recordset
Public Conn As New ADODb.ConnectionPrivate Sub cmdAdd_Click()
  On Error Resume Next
  Rs.AddNew
End SubPrivate Sub cmdCancel_Click()
  Unload Me
End SubPrivate Sub cmdDel_Click()
  On Error Resume Next
  Rs.Delete
End SubPrivate Sub cmdOk_Click()
  Rs.UpdateBatch
  Unload Me
End SubPrivate Sub Form_Load()
   Call Make_connection
   
   If Rs.State <> adStateClosed Then Rs.Close
   Rs.Open "select * from Man", Conn, adOpenStatic, adLockBatchOptimistic
   Set Me.DataGrid1.DataSource = Rs
   
End SubPublic Sub Make_connection()
  Dim strConn As String
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\People.mdb;Persist Security Info=False"
  Conn.CursorLocation = adUseClient
  Conn.Open strConn
End SubPrivate Sub Form_Unload(Cancel As Integer)
  If Rs.State <> adStateClosed Then Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing
End Sub
给你做个简单的例子，我记得还放进faq过...