datagrid 如何update

Question

再datagrid中修改完后，如何让其更新，在数据库中保存

Answer 1

recordset.update 或 recordset.updatebatch

Answer 2

将你的数据集update就可以了。即：rs.Update
也可在后面加上参数。

Answer 3

Private Sub cmd_Click(Index As Integer)
Dim sTemp As String
Select Case Index
 Case 0
    sTemp = IIf(Trim(txt(0).Text) = "", " 1=1 ", " 编号='" & Trim(txt(0).Text) & "'")
    sTemp = sTemp & IIf(sTemp = "", "", " and ") & IIf(Trim(txt(1).Text) = "", " 1=1 ", " 姓名='" & Trim(txt(1).Text) & "'")
    sTemp = sTemp & IIf(sTemp = "", "", " and ") & IIf(Trim(txt(2).Text) = "", " 1=1 ", " 公司='" & Trim(txt(2).Text) & "'")
    If Rs.State = 1 Then Rs.Close
    Rs.Open "select * from Cinformation where " & sTemp
    If Rs.RecordCount <= 0 Then
     MsgBox "没有找到", vbInformation + vbOKOnly, "查找"
     'If Rs.State = 1 Then Rs.Close
     'Rs.Open "select * from Cinformation"
    End If
    DGrid.ReBind
 Case 1
     DGrid.AllowUpdate = True
 Case 2
     Rs.UpdateBatch
     DGrid.AllowUpdate = False
 Case 3
     Rs.Delete adAffectCurrent
     Rs.MoveNext
     If Rs.EOF Then Rs.MoveLast
End Select
End Sub以上是一个按钮的单击事件（删除不好使，抱歉）

Answer 4

如果rs.LockType = adLockBatchOptimistic那么
rs.updatebatch如果别的方式的话,数据库就已经更新了,不用再写代码了