批量循环更新-凝听
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


批量循环更新

发表时间:2017/11/27 7:55:04 评论(0) 浏览(7644)  评论 | 加入收藏 | 复制
   
摘 要:有时候用excel批量导入的数据,需要根据条件更新部分字段。记住要引用dao3.6和任意版本的ADO文件(如ADO2.1或ADO2.8等)
正 文:

Access代码批量循环更新字段代码如下:

Private Sub Command1_Click()

    Dim rst As Object
    Dim strSQL As String
    Dim xgth As String
    Dim sqlXGzj As String
    Dim aa
    
    strSQL = "select * from [芯杆图纸]"
    Set rst = CreateObject("ADODB.Recordset")
    rst.Open strSQL, CurrentProject.Connection, 2, 3
    Do Until rst.EOF      '如果没有到结尾就一直循环
        xgth = rst!芯杆图号

        rst.MoveNext

        aa = Me.最近采购日期   '这里是可变的,比如根据上一步获取的芯杆图号来统计次数来赋值给aa

        sqlXGzj = "Update 芯杆图纸 SET 芯杆图纸.最近采购日期='" & aa & "' Where ((芯杆图纸.芯杆图号='" & xgth & "'))"
        CurrentDb.Execute sqlXGzj
    Loop
    rst.Close
    Set rst = Nothing
    MsgBox "已下单成功", vbInformation, "提示"

End Sub


以下是用平台来批量更新的代码:

Private Sub 下单_Click()
    Dim xgth As String
    Dim strsqlxg As String
    Dim cnnxg As Object
    Dim rsttmpxg As Object
    Dim sqlXGzj As String
    Set cnnxg = CurrentProject.Connection
    strsqlxg = "Select * FROM [芯杆图纸]"
    Set rsttmpxg = OpenADORecordset(strsqlxg, , cnnxg)
    Do Until rsttmpxg.EOF
        xgth = rsttmpxg!芯杆图号
        rsttmpxg.MoveNext
        sqlXGzj = "Update 芯杆图纸 SET 芯杆图纸.最近采购日期='" & Date & "' Where ((芯杆图纸.芯杆图号='" & xgth & "'))"
        CurrentDb.Execute sqlXGzj
    Loop
    rsttmpxg.Close
    Set cnnxg = Nothing
    Set rsttmpxg = Nothing
    MsgBox "已下单成功", vbInformation, "提示"
End Sub


演   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
根据条件表批量更新目标表某字段的值的函数   【竹笛  2006/3/5】
根据所选记录批量更新数据  【victorduane  2007/11/18】
批量更新删除重复示例  【智狼  2013/9/15】
【Access更新查询】比赛提前或延迟两小时,日期时间加2小时,更...  【麥田  2013/12/31】
Access开发平台--更新查询应用/批量更新字段  【杜超  2015/8/24】
【Access更新查询】数字加百分之10,更新查询实现数字批量更新...  【麥田  2017/6/15】
常见问答
技术分类
相关资源
文章搜索
关于作者

凝听

文章分类

文章存档

友情链接