หากโปรแกรมได้รับการพัฒนาโดยใช้ฐานข้อมูลการเข้าถึง เมื่อฐานข้อมูล Access เสียหาย ข้อความต่อไปนี้จะปรากฏขึ้นทันทีที่เข้าสู่โปรแกรม:
ไม่สามารถเปิดฐานข้อมูล 'ชื่อ' ได้ มันอาจไม่เป็นฐานข้อมูลที่แอปพลิเคชันของคุณรู้จัก หรือไฟล์อาจเสียหาย (ข้อผิดพลาด 3049)
หากไม่ได้เพิ่มการตัดสินข้อผิดพลาดลงในโปรแกรม โปรแกรมจะขัดจังหวะและกระโดดออกไป ซึ่งจะทำให้ผู้ใช้รู้สึกแย่มาก เพื่อหลีกเลี่ยงสถานการณ์นี้และป้องกันไม่ให้ผู้ใช้ค้นพบว่าฐานข้อมูลเสียหาย ต้องใช้โค้ดโปรแกรมต่อไปนี้ จะถูกเพิ่มเพื่อตัดสิน:
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'โปรแกรมปกติเริ่มทำงาน
-
ทางออกย่อย
ข้อผิดพลาด 1:
IfErr=3049ฐานข้อมูลเสียหาย
DBEngine.RepairDatabase "C:/test.mdb"
ประวัติย่อ
อื่น
MsgBoxErr&ข้อผิดพลาด(ข้อผิดพลาด)
EndIf->