批量循环更新

时　间:2017-11-27 07:55:04
作　者:凝听   ID：44716  城市：奉贤
摘　要:有时候用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群 (群号:54525238) 　　　　　　Access源码网店