ado的问题，请帮忙看一下，问题在哪里？

su_xx

点击删除产品按钮死活删除不了当前选中的产品，没有任何出错提示，请高手帮忙一下

roych

应该是主窗体引用了子窗体的数据吧？当你删除时，其实主窗体的数据已经为空，条件不成立，所以无法删除。
建议另外加变量处理。
http://www.office-cn.net/thread-119118-1-1.html

Henry D. Sy

1. Private Sub Cmd_删除产品_Click()
   
2. 
   
3.     Dim i As Integer
   
4.     Dim Stemp As String
   
5.     Dim rs As ADODB.Recordset
   
6.     Dim Rsql As String
   
7.     Set rs = New ADODB.Recordset
   
8. 
   
9.     Stemp = "Select * From 物品资料表"
   
10. 
    
11.     rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
12. 
    
13.     If rs.RecordCount < 1 Then
    
14.         Exit Sub
    
15.     End If
    
16. 
    
17.     rs.MoveFirst
    
18.     For i = 1 To rs.RecordCount
    
19. 
    
20. 
    
21.         If rs("产品代码") = Me![Frm_物品资料输入子窗体]![产品代码] Then
    
22.             MsgBox rs("产品代码")
    
23.             rs.Delete 1
    
24.             MsgBox "产品代码:" & Me![产品代码] & "的资料已经删除完成!", vbOKOnly, "删除完成"
    
25.             Exit For
    
26.         Else
    
27.             rs.MoveNext
    
28.         End If
    
29.     Next i
    
30. 
    
31. 
    
32.     Me![Frm_物品资料输入子窗体].Requery
    
33. 
    
34.     Set rs = Nothing
    
35. Exit_删除产品:
    
36.     Set rs = Nothing
    
37.     Exit Sub
    
38. 
    
39. Err_删除产品:
    
40.     MsgBox Err.Description
    
41.     Resume Exit_删除产品
    
42. 
    
43. End Sub

复制代码

建议直接用SQL动作查询,快又准,
就算你用ado也没有必要循环,直接在stemp上设定条件

Henry D. Sy

还是你的代码,只是将adLockBatchOptimistic 更改为
adLockOptimistic

su_xx

roych 发表于 2016-12-15 15:35
应该是主窗体引用了子窗体的数据吧？当你删除时，其实主窗体的数据已经为空，条件不成立，所以无法删除。
...

不是，我试了一下 主窗体不引用子窗体也一样，你的例子我在学习，谢谢了

su_xx

Henry D. Sy 发表于 2016-12-15 15:53
建议直接用SQL动作查询,快又准,
就算你用ado也没有必要循环,直接在stemp上设定条件

谢谢你，问题解决。直接用sql动作查询我做过没问题。只是用这种方法上遇到了问题，所以发贴求助，呵呵！

Henry D. Sy

su_xx 发表于 2016-12-15 16:06
谢谢你，问题解决。直接用sql动作查询我做过没问题。只是用这种方法上遇到了问题，所以发贴求助，呵呵！

MsgBox "产品代码:" & Me![产品代码] & "的资料已经删除完成!", vbOKOnly, "删除完成"
要把这句放在rs.Delete 后面,否则不管3721都提示删除完成