| 本月文章推荐 |
VisualBasic程序启动时，自动判断Access资料库是否损毁并自动修复发表日期：2006-2-27
|
|
若程序使用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-> |
| 上一篇：在抓取资料库之资料前先计算资料总笔数
人气:4207 下一篇：让VisualBasic程序在Windows启动时自动执行 人气:5005 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
