VB.NET 更新ACCESS表后,第一时间查询记录数,返回总是零,但打开表有记录;
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条记录;分步执行时可以显示正常记录数;感觉有个缓存更新时间,需要触发下更新;