dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 19, 1997

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Automatically Repairing Corrupt Databases

When you're using VB's built-in database functionality, you're likely to get a corrupted database sooner or later. Use this code to open your databases and automatically repair any corrupt ones:
 On Local Error Resume Next 

DidRetry% = False 
Db$="My-Db.MDB" 

DoOpenDatabase: 
Err = 0 
Set SomeDb = OpenDatabase(Db$) 

If Err = 3043 Then 
'The dreaded "Disk or Network Error" ... 
MsgBox "Database Engine error. Please restart _ 
Windows and this application", 16 
End 
ElseIf Err = 3049 Then 
'Database corrupted 
If Not DidRetry% Then 
'Try to repair database ... 
RepairDatabase Db$ 
DidRetry% = True 
GoTo DoOpenDatabase 
Else 
MsgBox "Database repair failed. Please _ 
contact Tech Support", 16 
End 
End If 
End If 
Michiel de
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date