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


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

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
Thanks for your registration, follow us on our social networks to keep up-to-date