为什么我使用ado控件与MDB数据库连接时新增或修改一条记录后用ADO的刷新命令不能及时的刷新记录? 需要先recordset.update然后在data1.refresh网格中就会刷新了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '添加到数据库 RtProduct.AddNew RtProduct.Fields(0) = sNo '测试结果 RtProduct.Fields(1) = Bresult '产品质量 RtProduct.Fields(2) = Format(lQuality, "###0.00") '左路测试数据 RtProduct.Fields(3) = Format(Lmin, "###0.00") RtProduct.Fields(4) = Format(Lave, "###0.00") RtProduct.Fields(5) = Format(Lmax, "###0.00") '中路测试数据 RtProduct.Fields(6) = Format(Mmin, "###0.00") RtProduct.Fields(7) = Format(Mave, "###0.00") RtProduct.Fields(8) = Format(Mmax, "###0.00") '右路测试数据 RtProduct.Fields(9) = Format(Rmin, "###0.00") RtProduct.Fields(10) = Format(Rave, "###0.00") RtProduct.Fields(11) = Format(Rmax, "###0.00") '坯重 RtProduct.Fields(12) = Format(Pizhong, "###0.00") RtProduct.Update 如果是想刷新控件里的数据就用refresh,如果是数据库那么就updata. 对不起呀,各位兄弟,我说的是连接MDB数据库会出现:Refresh方法刷新Adodo控件,不能在网格是立即刷新数据。使用了以上各位朋友的方法后还是不行。请帮忙了。 感谢您使用微软产品。您所描述的现象是由于出于性能的考虑,读写MDB的Jet Engine对每个Connection都维护了一个Cache。所以一个Connection上写入的数据不一定能立刻从另一个Connection上读出。关于该现象的具体描述和可能的解决方法,您可以参考以下文档:PRB: Single-User Concurrency Problems With ADO and Jet (Q216925)http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q216925 - 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。 VB串口通信如何对接收到的一组数据进行处理? 已知颜色数值如何获取对应的颜色字符串? 怎么让程序的窗体随机器的屏幕区域的改变而改变??? 关于函数调用问题? 急!! 关于text文本框的小问题!!!!! ★★★有QQ号码赠送!!你想要吗?(限量赠送!) 想知道有多少人用EVTOOLS,当然包括EVB???发表见解即有分 大虾们!请进! 一个数据库的问题 急需控件!!有知道的请看帖!!!送300分 True DBGrid7.0的问题
RtProduct.AddNew
RtProduct.Fields(0) = sNo
'测试结果
RtProduct.Fields(1) = Bresult
'产品质量
RtProduct.Fields(2) = Format(lQuality, "###0.00")
'左路测试数据
RtProduct.Fields(3) = Format(Lmin, "###0.00")
RtProduct.Fields(4) = Format(Lave, "###0.00")
RtProduct.Fields(5) = Format(Lmax, "###0.00")
'中路测试数据
RtProduct.Fields(6) = Format(Mmin, "###0.00")
RtProduct.Fields(7) = Format(Mave, "###0.00")
RtProduct.Fields(8) = Format(Mmax, "###0.00")
'右路测试数据
RtProduct.Fields(9) = Format(Rmin, "###0.00")
RtProduct.Fields(10) = Format(Rave, "###0.00")
RtProduct.Fields(11) = Format(Rmax, "###0.00")
'坯重
RtProduct.Fields(12) = Format(Pizhong, "###0.00")
RtProduct.Update
PRB: Single-User Concurrency Problems With ADO and Jet (Q216925)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q216925 - 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。