VB.NET 更新ACCESS表后,第一时间查询记录数,返回总是零,但打开表有记录;

idoudoum 2020-05-04 07:32:25
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条记录;分步执行时可以显示正常记录数;感觉有个缓存更新时间,需要触发下更新;
...全文
3933 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
wy_zhou 2020-07-06
  • 打赏
  • 举报
回复
可以睡0.05秒,System.Threading.Thread.Sleep(50),就可以 了
qq_39080073 2020-06-22
  • 打赏
  • 举报
回复
每次执行完SQL后都要关闭connection,提交数据到硬盘。
一批黑码 2020-06-03
  • 打赏
  • 举报
回复
要等半秒左右。
GDSNet 2020-05-05
  • 打赏
  • 举报
回复
Access本身反应没那么快,写完接着查,肯定没数据,你在写入后,查询时可以do循环查一下,肯定会有

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧