Access 2000 - курс лекций




2b. Закрытие базы данных


 

     Если мы открыли базу данных, то ее необходимо закрыть. Это хороший способ программирования, хотя при закрытии окна Access (appAccess.Quit) база данных закрывается автоматически.

     В этом примере база данных «Новый калькулятор.mdb» (переменная strMDB) будет закрыта, все ее объекты сохранены, а потом произойдет сжатие данных.

 

Public Function funCloseDatabase(strMDB As String) As Boolean

    On Error GoTo 999  'Назначаем переход по ошибке

    funCloseDatabase = False 'Возвращаем результат при ошибке

   

    appAccess.CloseCurrentDatabase 'Закрываем базу данных

    appAccess.Quit acQuitSaveAll 'Выходим c сохранением

    funCompactDatabase strMDB '<2> Сжимаем базу данных

   

    funCloseDatabase = True 'Возвращаем результат

    Exit Function 'Выходим из программы

999:

MsgBox Err.Description 'Сообщаем об ошибке

Err.Clear 'Очищаем поток от ошибок

End Function

 









Начало    Назад    Вперед






Книжный магазин