Создадим программу, которая во время работы создает базу данных Access, т. е. файл new_BD.mdb. Эта база данных будет пустой, т. е. она не будет со-
держать ни одной таблицы. Наполнять базу данных таблицами можно будет впоследствии как из программного кода VB2010, так и используя MS Access. В этом примере технология ADO.NET не использована.
Запускаем VB2010 (загрузочный модуль devenv.exe), щелкаем пункт меню New Project и выбираем шаблон Console Application. В результате на вкладке программного кода Modulel.vb получаем строчки sub Main о и End Sub. Между ними пишем программный код, приведенный в листинге 9.2.
Для добавления в наш проект DLL-библиотеки ADOX выполним следующее. В пункте меню Project выберем команду Add Reference, затем на вкладке СОМ дважды щелкнем на ссылке Microsoft ADO Ext. 2.8 for DDL and Security, тем самым мы добавляем эту библиотеку в текущий проект. Убедиться в том, что теперь существует ссылка на эту библиотеку, можно, выбрав в меню Project пункт Console Application 1 Properties и на вкладке References среди ссылок References обнаружив ссылку Interop.ADOX.dll. Теперь мы можем ссылаться на это имя в программном коде.
Далее, чтобы во время выполнения программы не появлялось черное окно DOS, в пунктах меню Project | Console Application 1 Properties на вкладке Application в раскрывающемся списке Application type выберем Windows Forms Application. Чтобы был доступен объект MessageBox для вывода сообщений (хотя для вывода сообщений пользователю можно воспользоваться функцией MsgBox из VB6), добавим в проект еще одну DLL-библиотеку. Для этого, как и в предыдущем случае, укажем пункты меню Project | Add Reference и на вкладке.NET дважды щелкнем ссылку System.Windows.Forms.dll, а в тексте программы выше строки Module Moduiei напишем:
Imports System.Windows.Forms
Теперь эту библиотеку можно увидеть на вкладке Project | ConsoleAppli-cationlProperties | References. Ключевое слово imports используется для импортирования пространства имен, которое содержит класс MessageBox»
Программа работает следующим образом: создаем экземпляр класса
adox.catalog, одна из его функций Create способна создавать базу данных, если на ее вход подать строку подключения. Заметим, что в строку подключения входит также и полный путь к создаваемой БД. Функция Create заключена в блоки Try...Catch, которые обрабатывают исключительные ситуации. После запуска этого приложения получим сообщение о создании базы данных (рис. 9.11).
Если тут же запустим наше приложение еще раз, то получим сообщение о том, что такая база данных уже существует (рис. 9.12), поскольку БД new_BD.mdb только что создана.
Рис. 9.11. Сообщение о создании базы данных
Рис. 9.12. База существует
Данное сообщение генерировалось обработчиком исключительной ситуации.
Программный код этой программы можно посмотреть, открыв решение Sozd_BD2.sln в папке Sozd_BD2.
Пример 62. Запись