a. Создание базы данных

 

     И так после подготовительных действий, Вы можете приступить к созданию базы данных в файловой системе. Саму базу данных «Новый калькулятор.mdb» (переменная strMDB) создим программным методом, используя встроенный язык программирования Visual Basic Access, аналогично способу, указанному слева с помощью мастера Access.

 

Public Function funCreateDatabase(strMDB As String) As Boolean

Dim sFullPath As String

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

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

   

    sFullPath = appFolder & "\" & strMDB 'Полное имя файла

    If Dir(sFullPath) <> "" Then Kill sFullPath 'Уничтожаем старую базу данных

    DBEngine.CreateDatabase sFullPath, dbLangCyrillic 'Создаем базу данных

    appAccess.OpenCurrentDatabase sFullPath 'Открываем базу данных

    funInitReferences '<2> Настраиваем ссылки базы данных

    funInitStartupProperties '<2> Настраиваем стартовые свойства

   

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

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

999:

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

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

End Function