求助VB+Access删除一条记录后需要等一段时间才能看到修改结果，怎么回事啊？

2006-07-27 09:54:54 410 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VS开发流重构：从搜索到滚动条的生产力操作系统 Visual Studio开发效率本质上是人机协作效率的体现。理解IDE底层交互原理（如编辑器API调用、Roslyn语法树解析、Direct2D渲染机制），能将零散功能升维为系统性生产力方案。其技术价值在于降低认知负荷、实现意图驱动操作、提供确定性反馈，广泛应用于ASP.NET Web Forms/MVC维护、大型遗留系统重构、多文件协同调试等高复杂度工程场景。本文基于Alex Song提出的VS2010生产力体系，结合VS2022原生能力与官方扩展，详解搜索增强、增强滚动条、中键滚动、引用决策树四大核心阅读详情

我用msflexgrid显示数据，然后界面上有单独的按钮来控制显示，删除记录的代码如下：

Dim db As Database
Dim rs As Recordset
strMysql = "DELETE 某个记录 FROM 某个表 WHERE 条件"
Set db = DBEngine.OpenDatabase(x.mdb)
db.Execute strMysql
db.Close
Set db = Nothing
上边的删除完成后，就点击按钮用“SELECT * FROM 某个表”来显示剩下的记录，
Dim db As Database
Dim rs As Recordset
strMysql = "SELECT * FROM 某个表"
Set db = DBEngine.OpenDatabase(x.mdb)
Set rs = db.OpenRecordset(strMysql)
msflexgrid.textmatrix(1,1)=rs.fileds(0).value
.....
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
可是会发现，刚才删除的那条记录有时候会还在，需要再点击一次或者几次这个按钮才能刷新过来，可有的时候一次就刷新过来了，不知道这是怎么回事？是我在删除以后哪里没有刷新么？
删除是这种情况，如果用语句修改某个记录以后也会有这种情况，需要点按钮刷新几次才能看到更改后的结果，可有的时候只刷新一次就看到了，不清楚怎么回事？
希望有高手可以指教一下啊，我在北京，方便的话我可以去找您当面请教，不胜感谢。

...全文

Shopee滑块验证码太刁钻？手把手教你用Python+Playwright绕过弧形验证（附影刀RPA接入代码）本文详细介绍了如何使用Python和Playwright结合SadCaptcha第三方服务高效破解Shopee平台的弧形滑块验证码，并集成到影刀RPA工作流中。该方案开发周期短、准确率高（>90%），特别适合跨境电商自动化操作，已在实际项目中验证成功。阅读详情

VBvsVC

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

VBvsVC 2007-01-16

打赏
举报

ado好像可以，抱歉这么久才结贴

VBvsVC 2006-07-28

打赏
举报

好像不是这个的问题，我试试用ADO做吧，看怎么样

VBvsVC 2006-07-28

打赏
举报

楼上的你是说db在整个运行过程中不要频繁建立和关闭是么？

of123 2006-07-28

打赏
举报

不要总是从磁盘中读取文件数据，磁盘缓存会有延迟。

Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(x.mdb)
End Sub

Private Sub Form_Unload()
db.Close
Set db = Nothing
End Sub

Private Sub cmdDel_Cllick()
strMysql = "DELETE 某个记录 FROM 某个表 WHERE 条件"
db.Execute strMysql
End If

Private Sub cmdSelect_Click()
strMysql = "SELECT * FROM 某个表"
Set rs = db.OpenRecordset(strMysql)
msflexgrid.textmatrix(1,1)=rs.fileds(0).value
.....
rs.Close
Set rs = Nothing
End Sub

这样就会从内存缓冲区直接读数据了。

VBvsVC 2006-07-28

打赏
举报

谢谢楼上的，我试试看吧先。这问题真是有点莫名其妙

tripman 2006-07-28

打赏
举报

'换ADO方式试试
'引用Micrsoft Active Data Object 2.6 Library

'删除记录
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & "Data Source = E:\db1.mdb;" & _
"mode=ReadWrite"
cnn.Open
strMysql = "DELETE 某个记录 FROM 某个表 WHERE 条件"
cnn.Execute strMysql
cnn.Close

'刷新记录
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & "Data Source = E:\db1.mdb;" & _
"mode=ReadWrite"
cnn.Open
strMysql = "SELECT * FROM 某个表"
rs.Open strMysql, cnn, adOpenKeyset, adLockOptimistic
MSFlexGrid1.TextMatrix(1, 1) = rs(0)

VBvsVC 2006-07-28

打赏
举报

楼上的这样当然不成啊

mustudent 2006-07-28

打赏
举报

不行就Unload了Form然后再载入

VBvsVC 2006-07-28

打赏
举报

救命呐，很急啊这个问题

VBvsVC 2006-07-27

打赏
举报

还有，表中的记录量不算大，100行左右的量

VBvsVC 2006-07-27

打赏
举报

楼上的楼上，在哪里refresh阿？我删除完了后使用db.Recordsets.Refresh也还是不行啊

yangao 2006-07-27

打赏
举报

偶以前碰到国进行大批量删除再插入时有时间差

迈克揉索芙特 2006-07-27

打赏
举报

refresh

VBvsVC 2006-07-27

打赏
举报

楼上的，我试了还是不行啊。你怀疑是msflexgrid的显示问题么？我觉得好像不是这个问题，我感觉像是我向access发出修改指令后，access执行完毕需要一段时间，可又觉得这样解释不通。

mustudent 2006-07-27

打赏
举报

Dim db As Database
Dim rs As Recordset
strMysql = "DELETE 某个记录 FROM 某个表 WHERE 条件"
Set db = DBEngine.OpenDatabase(x.mdb)
db.Execute strMysql
db.Close
Set db = Nothing

msflexgrid.Clear

上边的删除完成后，就点击按钮用“SELECT * FROM 某个表”来显示剩下的记录，
Dim db As Database
Dim rs As Recordset
strMysql = "SELECT * FROM 某个表"
Set db = DBEngine.OpenDatabase(x.mdb)
Set rs = db.OpenRecordset(strMysql)
msflexgrid.textmatrix(1,1)=rs.fileds(0).value
.....
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

添加msflexgrid.Clear
先清空msflexgrid

求助VB+Access删除一条记录后需要等一段时间才能看到修改结果，怎么回事啊？

相关推荐