请教ADO批更新

红尘如烟

用事务试一下：

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

复制代码