Access快速开发平台--通用导入功能，根据导入的列智能更新表

时　间:2020-01-09 22:59:39
作　者:易勋   ID：35404  城市：上海
摘　要:使用Access快速开发平台的通用导入功能，将数据导入到临时表TEMP_PartInfo后，需要对tblPartInfo进行更新，但是如果把所有字段都在SET语句中写上，这样会导致没有导入的字段会被更新为空，这样的情况可以通过以下方案处理。
正　文:

    GetADOConnection().Execute "Delete FROM Temp_PartInfo"
    ImportFromExcel "Temp_PartInfo", , , , , True
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * FROM TMP_ImportSpecs Where TableName='Temp_PartInfo' AND Import=True AND ToField<>'PartNo'")
    Dim strSET As String
    Do Until rst.EOF
        strSET = strSET & "tblPartInfo.[" & rst![ToField] & "]=Y.[" & rst![ToField] & "],"
        rst.MoveNext
    Loop
    rst.Close
    strSET=LEFT(strSET,LEN(strSET)-1)
    GetADOConnection().Execute "Update tblPartInfo " _
				& "SET " & strSET & " " _
				& "FROM tblPartInfo AS X INNER JOIN Temp_PartInfo AS Y ON X.PartNo=Y.PartNo "