请问表如何同时多列清零

leejiner

如题

todaynew

docmd.runsql "update 表1 set 品种1=0,品种2=0,品种3=0,品种4=0"

leejiner

谢谢！我的意思没有表达清楚：
我是需要将所有为‘0’的数据全部清除。

Henry D. Sy

是不是这个意思

1. Private Sub Command0_Click()
   
2.   Dim rs As New ADODB.Recordset
   
3.   Dim i As Integer
   
4.   rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
5.   Do While Not rs.EOF
   
6.     For i = 0 To rs.Fields.Count - 1
   
7.         If rs.Fields(i) = 0 Then
   
8.            rs.Fields(i) = Null
   
9.            rs.Update
   
10.         End If
    
11.     Next
    
12.     rs.MoveNext
    
13.   Loop
    
14.   DoCmd.OpenTable "表1", acViewNormal
    
15.   rs.Close
    
16.   Set rs = Nothing
    
17. End Sub

复制代码

leejiner

出现了‘无效的SQL语句；期待。。。’
我是菜鸟，请问如何加这句SQL?谢谢！

layaman_999

docmd.runsql "delete * from 表1 where 品种1=0 or 品种2=0 or 品种3=0 or 品种4=0"
以上语句只要其中一列为0，则删除那条记录

Henry D. Sy

leejiner 发表于 2012-6-21 22:07
出现了‘无效的SQL语句；期待。。。’
我是菜鸟，请问如何加这句SQL?谢谢！

runsql只能是操作查询！

leejiner

我指的是这段代码：

Private Sub Command0_Click()
  Dim rs As New ADODB.Recordset
  Dim i As Integer
  rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Do While Not rs.EOF
    For i = 0 To rs.Fields.Count - 1
        If rs.Fields(i) = 0 Then
           rs.Fields(i) = Null
           rs.Update
        End If
    Next
    rs.MoveNext
  Loop
  DoCmd.OpenTable "表1", acViewNormal
  rs.Close
  Set rs = Nothing
End Sub

leejiner

结果要求如图

Henry D. Sy

leejiner 发表于 2012-6-22 10:19
结果要求如图

4楼的代码就是这个结果的呀