Курсовая работа: Разработка элементов информационной системы средствами СУБД MS Access и языка программирования VBA

Результат, выполнения программы представлен на рисунке 3.2.2.

Рисунок 3.2.2-таблица “TovaryADO”

3) Удаление таблиц в объектных моделях DAO.

Sub Del_table ()

' Удаление таблицы средствами DAO

Dim db As Database

'Устанавливаем ссылку на текущую базу данных

Set db = CurrentDb

db. TableDefs. Delete "TovaryDAO"

db. TableDefs. Refresh

'Освобождаем объектную переменную

Set db = Nothing

End Sub

В результате выполнения данного программного кода таблица "TovaryDAO" будет удалена.

4) Удаление таблиц в объектных моделях ADO.

Public Sub delete_ADO ()

'Удаление таблицы средствами ADO

'Объявляем объектные переменные Connection и Catalog для связи данных

Dim cnn As New ADODB. Connection

Dim cat As New ADOX. Catalog

'Устанавливаем ссылку на текущую базу данных, используя объект connection ADODB

Set cnn = CurrentProject. Connection

'присваиваем объекту cat наше соединение

cat. ActiveConnection = cnn

'удаляем таблицу TovaryADO

cat. Tables. Delete ("TovaryADO")

'закрываем соединение

Set cat. ActiveConnection = Nothing