Keskustelu: Ohjelmointikysymykset: VB6: DBEngine repair

Private Sub NA_korjaa_database_Click()
   Dim errLoop As Error

   If MsgBox("Huolletaanko tietokanta?", _
         vbYesNo) = vbYes Then
      On Error GoTo Err_Repair
      DBEngine.RepairDatabase "C:\Erkki\Grafi_uusi.mdb"
      On Error GoTo 0
      MsgBox "Huolto suoritettu!"
    Else
        Exit Sub
   End If

Err_Repair:

   For Each errLoop In DBEngine.Errors
      MsgBox "Huolto epäonnistui!" & vbCr & _
         "Error number: " & errLoop.Number & _
         vbCr & errLoop.Description
   Next errLoop

end sub