【求助】同时更新两个数据，一个是批量更新，一个是单更新，怎么操作

问题1：【我下面的写法提示错误】要将companyZD批量修改成空或其它值，而companyBZ和companySJ改成有内容的
问题2：数据库操作批处理是用 for next 还是用 do while
----------------------------------------------------------------
rs.open sql,conn,1,3
        do while not rs.eof
                rs("companyZD")=“”
                rs.update
                rs.movenext
        loop
        rs("companyBZ")=“要改成内容1”
        rs("companySJ")=“要改成内容2”
        rs.update       
rs.close
set rs=nothing
----------------------------------------------------------------
应该怎么写

数据库是怎么设计的？方便的话打包下发上来

数据库内容

我的意思是把companyZD字段里的所有 “制定” 改成 "OK"，然后把companySJ和companyBZ，仅第一条改动，其它空内容不动

恭喜发财 发表于 2022-6-5 17:47
我的意思是把companyZD字段里的所有 “制定” 改成 "OK"，然后把companySJ和companyBZ，仅第一条改动，其它 ...

方法1：

1. '//修改第一条
   
2. rs.open sql,conn,1,3        
   
3.         rs("companyBZ")=“要改成内容1”
   
4.         rs("companySJ")=“要改成内容2”
   
5.         rs.update      
   
6. rs.close
   
7. set rs=nothing
   
8. 
   
9. '//全表搜索并执行
   
10. sql="update [表名称] set companyZD='' where companyZD='制定'"
    
11. conn.execute(sql)

复制代码

方法2：

1. 
   
2. Dim iCount
   
3. iCount=1
   
4. <%
   
5. rs.open sql,conn,1,3
   
6.       do while not rs.eof
   
7.         if iCount=1 then  ''//修改第一条记录
   
8.         rs("companyBZ")=“要改成内容1”
   
9.         rs("companySJ")=“要改成内容2”
   
10.         rs.update      
    
11.        end if
    
12.           
    
13.            '//
    
14.                 if rs("companyZD")="制定" then
    
15.                 rs("companyZD")=""
    
16.                 rs.update
    
17.                 end if
    
18.                               
    
19.            iCount=iCount+1
    
20.         rs.movenext
    
21.         loop
    
22. 
    
23. rs.close
    
24. set rs=nothing
    
25. %>
    

复制代码