请帮忙看一下这子程序错在哪里

su_xx

我现在遇到问题是单击删除产品这个按钮,不删除产品,代码如下.请大家帮忙看一下,问题出在哪里



Private Sub Cmd_删除产品_Click()
On Error GoTo Err_Cmd_删除产品
Dim i As Integer
Dim Stemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Stemp = "Select * From 物品资料表"
Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic

     If Rs.RecordCount < 1 Then
        Exit Sub
     End If
   
        Rs.MoveFirst
        For i = 1 To Rs.RecordCount
     
            If Rs("产品代码") = Me![Frm_物品资料输入子窗体]![产品代码] Then
         
               Rs.Delete adAffectCurrent         
               Exit For
            Else
              Rs.MoveNext
            End If
        Next i
        MsgBox "产品代码:" & Me![产品代码] & "的资料已经删除完成!", vbOKOnly, "删除完成"
        Me![Frm_物品资料输入子窗体].Requery


Set Rs = Nothing
Exit_Cmd_删除产品:
    Set Rs = Nothing
    Exit Sub
Err_Cmd_删除产品:
    MsgBox Err.Description
    Resume Exit_Cmd_删除产品
End Sub

rjacky

应该是漏了个Rs.update吧

而且在这个例子中，用一个删除查询不是更方便么？即使一定用记录集，也不需要遍历记录的啊，数据多的话，速度慢不少了

su_xx

版主rs.update放在哪里?用删除查询如何做?
我现在是主窗体放一子窗体,子窗体的数据来自物品表,主窗体有子窗体相对应的未绑定的文本框.
删除的时候就是鼠标移到子窗体一条记录上,点删除,然后删除这条记录

rjacky

放在Rs.Delete下面

例如要删除物品表中所有等于子窗体[产品代码]的记录，可以使用这样的删除查询代码：

CurrentDb.Execute ("delete from 物品表名字 where 产品代码='" & me!子窗体名字!产品代码 & "'")

su_xx

Stemp = "DELETE 物品资料表.产品代码 FROM 物品资料表 WHERE (((物品资料表.产品代码)='" & Me.产品代码 & "'))"
                DoCmd.RunSQL Stemp

Private Sub Cmd_删除产品_Click()
On Error GoTo Err_Cmd_删除产品
Dim i As Integer
Dim Stemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Stemp = "Select * From 物品资料表"
Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic

     If Rs.RecordCount < 1 Then
        Exit Sub
     End If
   
        Rs.MoveFirst
        For i = 1 To Rs.RecordCount
     
            If Rs("产品代码") = Me![Frm_物品资料输入子窗体]![产品代码] Then
         
               ' Rs.Delete adAffectCurrent
              Stemp = "DELETE 物品资料表.产品代码 FROM 物品资料表 WHERE (((物品资料表.产品代码)='" & Me.产品代码 & "'))"
                DoCmd.RunSQL Stemp
         
               Exit For
            Else
              Rs.MoveNext
            End If
        Next i
        MsgBox "产品代码:" & Me![产品代码] & "的资料已经删除完成!", vbOKOnly, "删除完成"
        Me![Frm_物品资料输入子窗体].Requery


Set Rs = Nothing
Exit_Cmd_删除产品:
    Set Rs = Nothing
    Exit Sub
Err_Cmd_删除产品:
    MsgBox Err.Description
    Resume Exit_Cmd_删除产品
End Sub

改成以上的,就可以执行,我就是想不通,为什么用rs.delete删除不了当前记录,而用 docmd.runsql 可以
就是加了rs.update也没有用,点击后还是没有任何反映

同样用版主的CurrentDb.Execute ("delete from 物品资料表 where 产品代码='" & Me![Frm_物品资料输入子窗体]![产品代码] & "'")也能执行


版主能否说明一下我前面的错误在哪里?

[ 本帖最后由 su_xx 于 2008-1-21 12:06 编辑 ]

rjacky

不需要将删除查询加到记录集里面的呀，上传你的例子

su_xx

版主例子就是我1楼发的啊,我的删除查询加到记录集里是因为图方便发贴,我正式这边已经改掉用你的CurrentDB.Excute.

现在问题是为什么用RS.delete,就是把你所说的RS.update加上,程序还是不响应,不执行.