[请教]ADO修改多条记录后,全部保存的写法?

sunny　发表于：2010-07-29 11:55:20 　

比如修改了下图三条记录,(记录需要PMC单号,预计订单号和零件编号才能确定是唯一)

这样写,修改的内容没有保存:

If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
x(2) = "select * from 排期表1 "
rs(2).Open x(2), tcnndb, 1, 3, 512
Me.子窗体_排期表.Form.Recordset.MoveFirst
Do While Me.子窗体_排期表.Form.Recordset.EOF
With Forms("窗体_模具排期表")!子窗体_排期表
rs(2).Find "[PMC单号] = !PMC单号"
rs(2).Find "[预计订单号] = !预计订单号"
rs(2).Find "[零件编号] = !零件编号"
rs(2)!下单日期 = !下单日期
rs(2)!预计订单号 = !预计订单号
rs(2)!零件编号 = !零件编号
rs(2)!PMC单号 = !PMC单号
rs(2)!加工序号 = !加工序号
rs(2)!加工方式 = !加工方式
rs(2)!零件名称 = !零件名称
rs(2)!状态 = !状态
rs(2)!单位 = !单位
rs(2)!订单数量 = !订单数量
rs(2)!交货日期 = !交货日期
rs(2)!预计加工日期 = !预计加工日期
rs(2)!预计完成日期 = !预计完成日期
rs(2)!实际完成日期 = !实际完成日期
rs(2)!备注 = !备注
rs(2)!模号 = !模号
rs(2)!注塑机 = !注塑机
rs(2)!类型 = !类型
rs(2).Update
End With
Me.子窗体_排期表.Form.Recordset.MoveNext
Loop
rs(2).Close
MsgBox "保存成功!"
Else
GoTo err01
End If

Top

sunny 发表于：2010-07-29 23:54:05

Top

红尘如烟发表于：2010-07-30 14:47:35

既然是批量更新自然就应该是调用批更新模式才对，而不是用即时更新模式

Dim strSQL As String
Dim rst As ADODB.Recordset

If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
    strSQL = "select * from 排期表1 "
    Set rst = New ADODB.Recordset
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
    With Me.子窗体_排期表.Form.Recordset
        If .RecordCount > 0 Then .MoveFirst
        Do Until .EOF
            rst.MoveFirst
            rst.Find "[PMC单号] = " & !PMC单号
            rst.Find "[预计订单号] =" & !预计订单号
            rst.Find "[零件编号] =" & !零件编号

            rst!下单日期 = !下单日期
            rst!预计订单号 = !预计订单号
            rst!零件编号 = !零件编号
            rst!PMC单号 = !PMC单号
            rst!加工序号 = !加工序号
            rst!加工方式 = !加工方式
            rst!零件名称 = !零件名称
            rst!状态 = !状态
            rst!单位 = !单位
            rst!订单数量 = !订单数量
            rst!交货日期 = !交货日期
            rst!预计加工日期 = !预计加工日期
            rst!预计完成日期 = !预计完成日期
            rst!实际完成日期 = !实际完成日期
            rst!备注 = !备注
            rst!模号 = !模号
            rst!注塑机 = !注塑机
            rst!类型 = !类型
            rst.Update
            .MoveNext
        Loop
        rst.UpdateBatch
    End With
End If
Me.子窗体_排期表.Form.Recordset.MoveNext
rst.Close
MsgBox "保存成功!"

Top

sunny 发表于：2010-07-30 15:38:36

Top

sunny 发表于：2010-07-30 15:43:00

PMC单号,预计订单号,零件编号都是文本格式的,但是出现上一楼的错误提示

Top

sunny 发表于：2010-07-30 15:58:27

点击下载此附件

传个附件,请打开窗体1,按保存按钮,

Top

红尘如烟发表于：2010-07-30 20:37:34

既然是文本，你就应该把Find方法后面的字符串改过，文本型字段是要加单引号的：
Private Sub 保存_Click()
Dim rst As Object

    If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
        Set rst = CreateObject("ADODB.Recordset")
        rst.CursorLocation = adUseClient
        rst.Open "表2", CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic, adCmdTable
        With Me.表1.Form.Recordset
            If .RecordCount > 0 Then .MoveFirst
            Do Until .EOF
                rst.Find "[PMC单号] = '" & !PMC单号 & "'"
                rst.Find "[预计订单号] ='" & !预计订单号 & "'"
                rst.Find "[零件编号] ='" & !零件编号 & "'"
                If rst.RecordCount > 0 Then
                    rst!开始加工日期 = !开始加工日期
                    rst!预计完成日期 = !预计完成日期
                    rst!备注 = !备注
                    rst.Update
                End If
                .MoveNext
            Loop
            rst.UpdateBatch
        End With
        rst.Close
        MsgBox "保存成功!"
    Else
         Me.表1.Form.RecordSource = "select * from 表1查询"
    End If
End Sub

Top

sunny 发表于：2010-07-30 23:54:14

OK了,多谢!

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

[请教]ADO修改多条记录后,全部保存的写法?