请教ADO批更新

accesscx

库拆分为前后端,前端采用ADO+临表的方式,现已把需修改的2条记录下载并显示在子窗体_排期表内,


想实现:将pqid为186和131的备注修改为1,然后保存,

问题:只保存了其中一条记录的修改,应该怎么做才能全部保存?


现在的代码:
tcnndb的赋值:
Option Compare Database
Public tcnndb As ADODB.Connection
Function MJAutoExec_SysStartRun() '起动时，打开服务数据库Data的connection连接
On Error GoTo err_1
Set tcnndb = New ADODB.Connection
tcnndb.CursorLocation = adUseClient
tcnndb.Provider = "Microsoft.Jet.OLEDB.4.0"
tcnndb.Open "Data Source=" & "\\srv-lj-01\tooling_Data.mdb;Jet OLEDbataBase Password=123456"
err_2:
  Exit Function
err_1:
MsgBox err.Number & err.Description
Resume err_2
End Function

保存的代码:
Dim rst As Object
    If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
        Set rst = CreateObject("ADODB.Recordset")
        rst.CursorLocation = adUseClient
        rst.Open "排期表", tcnndb, adOpenKeyset, adLockBatchOptimistic, adCmdTable
        With Me.子窗体_排期表.Form.Recordset
            If .RecordCount > 0 Then .MoveFirst
            Do Until .EOF
                 rst.Filter = "pqid=" & !pqid & ""
                 If rst.RecordCount > 0 Then
                    rst!备注 = !备注
                    rst.Update
                End If
                .MoveNext
            Loop
            rst.UpdateBatch
        End With
        rst.Close
        MsgBox "保存成功!"
    Else
         GoTo err01
    End If

todaynew

我始终没有明白你为什么不将两表联接起来处理？

红尘如烟

用事务试一下：

1. Dim rst As Object
   
2. Dim strSQL As String
   
3. Dim lngAffected As Long
   
4. 
   
5. If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
   
6.     With Me.子窗体_排期表.Form.Recordset
   
7.         If .RecordCount > 0 Then
   
8.             tcnndb.BeginTrans
   
9.             .MoveFirst
   
10.             Do Until .EOF
    
11.                 strSQL = "UPDATE 排期表 SET 预计加工日期=#" & !预计加工日期 & "#,预计完成日期=#" & !预计完成日期 & "#," & _
    
12.                          "模号='" & !模号 & "',注塑机='" & !注塑机 & "',备注='" & !备注 & "' WHERE pqid=" & pqid
    
13.                 tcnndb.Execute strSQL, lngAffected
    
14.                 If lngAffected = 0 Then
    
15.                     strSQL = "INSERT INTO 排期表(预计加工日期,预计完成日期,模号,注塑机,备注) " & _
    
16.                              "VALUES(#" & !预计加工日期 & "#,#" & !预计完成日期 & "#,'" & !模号 & "','" & !注塑机 & "','" & !备注 & "')"
    
17.                     tcnndb.Execute strSQL
    
18.                 End If
    
19.                 .MoveNext
    
20.             Loop
    
21.             tcnndb.CommitTrans
    
22.             MsgBox "保存成功!"
    
23.         End If
    
24.     End With
    
25. Else
    
26.     GoSub err01
    
27. End If

复制代码

accesscx

我始终没有明白你为什么不将两表联接起来处理？
todaynew 发表于 2010-8-4 10:19

将后台的排期表连接到前台?

我想不要连接表

accesscx

红尘老师,

事务处理更新成功,不过日期不能为空,如果5条记录里,只需要修改3条的日期就麻烦了

todaynew

用事务试一下：
红尘如烟 发表于 2010-8-4 10:24

不明白为何记录集与更新查询交替使用，直接用更新查询两三句不就完事了吗？