АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

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

Рисунок 39 - Временная таблица

Создание временной таблицы в объектной модели ADO.

Private Sub Таблица_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

'создаем таблицу

Dim Tabl As New Table

Tabl.Name = "Таблица ADO"

'Добавляем несколько полей в семейство Columns

With Tabl

.Columns.Append "Фамилия", adVarWChar

.Columns.Append "Имя", adVarWChar

.Columns.Append "Отчество", adVarWChar

.Columns.Append "Редакция", adVarWChar

End With

On Error GoTo err

'добавлем таблицу в семейство Tables

Cat.Tables.Append Tabl

'Обновляем количество объектов семейства Tables


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)