XML導(dǎo)入ACCESS導(dǎo)入錯誤彈窗

jiutianxingchen

問題1，XML文件導(dǎo)入access數(shù)據(jù)庫代碼如下，我想如何實現(xiàn)導(dǎo)入失敗時彈出“導(dǎo)入失敗！”這幾個字呢？也就是如何判斷是否導(dǎo)入成功呢？請各位高手茫茫指點一二，在下感激不盡！謝謝~（現(xiàn)在錯誤彈窗是VBA代碼錯誤彈窗）
問題2，，access批量同時導(dǎo)入多個相同格式的xml文件？

Private Sub Command33_Click()
    Application.ImportXML "D:\Data.xml", acAppendData        '把數(shù)據(jù)添加到原有的表
    MsgBox "完成！"
End Sub

jiutianxingchen

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    Application.ImportXML "D:\Data.xml", acAppendData        '把數(shù)據(jù)添加到原有的表
        MsgBox "完成！"
Exit_Command0_Click:
    Exit Sub
   
Err_Command0_Click:
        MsgBox "導(dǎo)入失��！"
End Sub

修改代碼如上，但是彈窗不彈出了，還是會寫入“導(dǎo)入錯誤”一個表中，如何不讓他保存導(dǎo)入錯誤這個表啊？

roych

你設(shè)置了主鍵，所以第二次以后導(dǎo)入時將顯示為失�。ㄒ驗椴荒苤貜�(fù)導(dǎo)入）。
批量導(dǎo)入需要使用FSO或者FD庫。我這里就不寫了，具體可以參考拙作：
http://ctxi.cn/thread-96551-1-1.html
雖然之前是用Excel寫的，但大同小異，稍稍改下即可使用（記得引用Office庫）。
這個寫法也可以參考：
http://www.accessoft.com/article-show.asp?id=16534

ganlinlao

其實導(dǎo)入xml數(shù)據(jù)，還有另外的辦法。只不過因為技術(shù)比較古老，在這里就不再推薦。
具體：
       引用 msxml2.dsocontrol30  (它在 msxml3.0里，這是系統(tǒng)自帶的。如果 有安裝 msxml4.0，也可以引用msxml2.dsocontrol40).
然后就可以 象查詢  txt、csv一樣查詢 xml文件。詳見ado2.7幫助文檔

sxgaobo

請教！導(dǎo)入.xml文件時必須有.xsd文件嗎?