ImportCsvToAccess(Application.StartupPath & "\資料\配置查詢結果.CSV", "01站點", Application.StartupPath & "\dataZZ.mdb")
str表=“01站點”
strSQL = "SELECT * FROM [" & str表 & "]"
Rst1 = ExeSQLAccess(strSQL, ConnectStrAFOS)
If Rst1.Tables(0).Rows.Count > 0 Then
strSQL = "INSERT INTO [00匯入記錄]"
strSQL = strSQL & "(表名,記錄資料,匯入時間)"
strSQL = strSQL & " VALUES ( "
strSQL = strSQL & " '" & str表 & "'" '錯誤
strSQL = strSQL & ",'" & Rst1.Tables(0).Rows.Count & "'" '編號
strSQL = strSQL & ",'" & strdate & "')" '名稱
ExeSQLAccess(strSQL, ConnectStrAFOS)
End If
打開表看到記錄已經匯入，但是查詢表時顯示0條記錄；分步執行時可以顯示正常記錄數；感覺有個快取更新時間，需要觸發下更新；
uj5u.com熱心網友回復：
Access本身反應沒那么快，寫完接著查，肯定沒資料，你在寫入后，查詢時可以do回圈查一下，肯定會有uj5u.com熱心網友回復：
要等半秒左右。uj5u.com熱心網友回復：
每次執行完SQL后都要關閉connection，提交資料到硬碟。uj5u.com熱心網友回復：
可以睡0.05秒，System.Threading.Thread.Sleep(50)，就可以 了轉載請註明出處，本文鏈接：https://www.uj5u.com/net/26261.html
標籤：VB.NET
上一篇：串口資料決議