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

Cat.Tables.Refresh

err:

MsgBox "Таблица создана", 0, "результат"

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

Set cat.ActiveConnection = Nothing

'освобождаем переменную

Set cat = Nothing

End Sub

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

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

 

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

Private Sub Удаленеи_DAO()

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

Dim db As Database

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

Set db = CurrentDb

db.TableDefs.Delete "Таблица DAO"

Db.TableDefs.Refresh

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

Set db = Nothing

End Sub

Удаление таблиц в объектных моделях 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


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

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



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