首页 > 学院 > 开发设计 > 正文

VisualBasic程序启动时，自动判断Access资料库是否损毁并自动修复

2019-11-18 17:33:32

字体：大中小

来源：转载

供稿：网友

若程序使用 access资料库开发，当Access资料库损毁时，一进入程序，便会出现以下讯息：

Can'topendatabase'name'.Itmaynotbeadatabasethatyourapplicationrecognizes,orthefilemaybecorrupt.(Error3049)

若是程序中未加入错误判断，程序便会中断跳出，这会给予使用者极不好的印象，要避免这种情形，甚至不让使用者发现资料库损毁，便要加入以下之程序码加以判断：

PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'正常程序开始
:
ExitSub

error1:
IfErr=3049Then'资料库损毁
DBEngine.RepairDatabase"C:/test.mdb"
Resume
Else
MsgBoxErr&Error(Err)
EndIf->

上一篇：让VisualBasic程序在Windows启动时自动执行

下一篇：在抓取资料库之资料前先计算资料总笔数

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

荣耀总裁赵明乌镇演讲：荣耀首款5G手机V30下月发布

2019-10-23 09:17:05

搜狐张朝阳：回归媒体是搜狐重新崛起的关键

2019-10-21 09:20:02

华为轮值董事长郭平：虚拟技术创造现实价值

2019-10-21 09:00:12

滴滴英文服务上线两周年用户已超200万

2019-09-26 08:57:12

华为推出全球至快AI训练集群Atlas900

2019-09-25 08:46:36

马斯克：特斯拉正组建中国技术团队

2019-09-25 08:15:43

疑难解答

图片精选

网友关注