Access培訓
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access開發平臺

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 "


Access快速開發平臺QQ群 (群號:239158550)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助