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

Dim cat As New ADOX. Catalog

'Используется объект модели объектов ACCESS

Set cnn = CurrentProject. Connection

cat. ActiveConnection = cnn

Debug. Print cat. Tables (0). Type

Dim Table

'Создаем таблицу в ADO

Set Table = CreateObject ("ADOX. Table")

'Название таблицы

Table. Name = "TovaryADO"

'Создаем столбец с именем "Код товара"

Table. Columns. Append "Код товара"

'Создаем столбец с именем "Товар"

Table. Columns. Append "Товар"

'Создаем столбец с именем "Категория"

Table. Columns. Append "Категория"

'Создаем столбец с именем "Марка"

Table. Columns. Append "Марка"

'Создаем столбец с именем "Модель"

Table. Columns. Append "Модель"

'Создаем столбец с именем "Цвет"

Table. Columns. Append "Цвет"

'Создаем столбец с именем "Кол-во на складе"

Table. Columns. Append "Кол-во на складе"

'Создаем столбец с именем "Цена,$"

Table. Columns. Append "Цена,$"

'Добавляем таблицу к семейству Tables

cat. Tables. Append Table

Set cat = Nothing