求救！ADO方法编辑修改一条记录不知如何写？

Question

如果你使用的是ADODC控件
ADOObjectName.Recordset.Fields(Index Or FieldsName).Value=<Value>
ADOObjectName.Recordset.Update()

Answer 1

注：第二句应为ADOObjectName.Recordset.Update,不用(),

Answer 2

Update 方法 (ADO)
         保存对 Recordset 对象的当前记录所做的所有更改。语法recordset.Update Fields, Values参数Fields   可选。变体型，代表单个名称；或变体型数组，代表需要修改的字段（单个或多个）名称或序号位置。Values   可选。变体型，代表单个值；或变体型数组，代表新记录中字段（单个或多个）值。说明使用 Update 方法保存自从调用 AddNew 方法，或自从现有记录的任何字段值发生更改之后，对 Recordset 对象的当前记录所作的所有更改。Recordset 对象必须支持更新。要设置字段值，请进行下列某项操作： 给 Field 对象的 Value 属性赋值并调用 Update 方法。
传送字段名和值作为 Update 调用的参数。
将字段名数组和值数组传送给 Update 调用。 
在使用字段和值数组时，两个数组中必须有相等数量的元素，同时字段名的次序必须与字段值的次序相匹配。字段和值的数量及次序不匹配将产生错误。如果 Recordset 对象支持批更新，那么可以在调用 UpdateBatch 方法之前将一个或多个记录的多个更改缓存在本地。如果在调用 UpdateBatch 方法时正在编辑当前记录或者添加新记录，那么 ADO 将自动调用 Update 方法，以便在批更改传送到提供者之前将所有挂起的更改保存到当前记录。如果在调用 Update 方法之前移动出正在添加或编辑的记录，那么 ADO 将自动调用 Update 以便保存更改。如果希望取消对当前记录所做的所有更改或者放弃新添加的记录，则必须调用 CancelUpdate 方法。调用 Update 方法后当前记录仍为当前状态。

Answer 3

这是我写的程序，相信你能看懂。看过给我加分哟。Private Sub DeleteData()
On Error GoTo ErrTrap
    StrTemp = "Select SerRecordKind_ID from ServerRecord where SerRecordKind_ID='" & Trim(adoRsMain.Fields("SerRecordKind_ID")) & "'"
    If ExistRecord(StrTemp) = True Then
        MsgBox "有此类别有记录存在，不能删除。请删除记录后，再删除类别", vbOKOnly + vbInformation, "提示"
    Else
        
        If MsgBox("您确定要删除吗?", vbYesNo + vbInformation + vbDefaultButton2, "警告") = vbYes Then
            adoRsMain.Delete adAffectCurrent
            adoRsMain.Update
            adoRsMain.Requery
            tdbMain.Refresh
            Call tbrEnable
        Else
            MsgBox "记录没有删除", vbInformation + vbOKOnly, "提示"
        End If
    End If
Exit Sub
ErrTrap:
        MsgBox "出现错误!哈哈! " & Err.Number & Err.Description, vbOKOnly + vbInformation, "提示"
End Sub****************************************************************
Dim adoRsMain As New ADODB.Recordset
    adoRsMain.Fields("SerRecordKind_Detail") = Trim(txtDetail.Text)
    adoRsMain.Fields("SerRecordKind_Index") = Int(Trim(txtNumber.Text))
    adoRsMain.Update

Answer 4

这是我写的程序，相信你能看懂。看过给我加分哟。Private Sub DeleteData()
On Error GoTo ErrTrap
    StrTemp = "Select SerRecordKind_ID from ServerRecord where SerRecordKind_ID='" & Trim(adoRsMain.Fields("SerRecordKind_ID")) & "'"
    If ExistRecord(StrTemp) = True Then
        MsgBox "有此类别有记录存在，不能删除。请删除记录后，再删除类别", vbOKOnly + vbInformation, "提示"
    Else
        
        If MsgBox("您确定要删除吗?", vbYesNo + vbInformation + vbDefaultButton2, "警告") = vbYes Then
            adoRsMain.Delete adAffectCurrent
            adoRsMain.Update
            adoRsMain.Requery
            tdbMain.Refresh
            Call tbrEnable
        Else
            MsgBox "记录没有删除", vbInformation + vbOKOnly, "提示"
        End If
    End If
Exit Sub
ErrTrap:
        MsgBox "出现错误!哈哈! " & Err.Number & Err.Description, vbOKOnly + vbInformation, "提示"
End Sub****************************************************************
Dim adoRsMain As New ADODB.Recordset
    adoRsMain.Fields("SerRecordKind_Detail") = Trim(txtDetail.Text)
    adoRsMain.Fields("SerRecordKind_Index") = Int(Trim(txtNumber.Text))
    adoRsMain.Update