Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Au_Tit.Fields.Append TempField

Db.Relations..Append Au_Tit

Связывание таблиц внешних баз данных

Кроме определения новых таблиц можно присоединять таблицы из любой поддерживаемой внешней базы данных или из другой базы данных Jet. При связывании таблицы информация соединения сохраняется во внутренней базе данных Jet, и соединение будет устанавливаться автоматически всякий раз при открытии этой базы данных. Сами же данные остаются во внешней базе данных.

Процедура связывания таблицы внешней базы данных подобна определению и созданию новой внутренней таблицы, за исключением того, что при создании объекта TableDef необходимо определить свойства SourceTableName и Connect.
Кроме того, для этой таблицы нельзя связывания создавать или добавлять новые объекты Field и Index.

Для связывания внешней таблицы с базой данных необходимо:
Создать для связываемой таблицы новый объект TableDef, используя метод
CreateTableDef объекта Database. Назначить таблице новое имя (свойство
Name). Например, чтобы присоединить таблицу Сustomers из базы данных
Stocks.mdb к базе данных Biblio.mdb,можно записать:

Set NewTd=DB.CreateTableDef(“Customers”) ‘ Предполагается , что база данных Biblio.mdb открыта методом OpenDatabase и ей назначена переменная
DB.

2. Установить свойства SourceTableName и Connect объекта TableDef:

NewTd. SourceTableName=“Customers”

NewTd. Connect=“;DATABASE=C:AccessStocks.mdb;”

3.Добавить новый объект TableDef к базе данных:

DB.TableDefs.Append NewTd

Модификация базы данных

Процедуры изменения базы данных подобны ее созданию. Используются те же методы Create и Append.

1. Для добавления таблицы к базе данных необходимо добавить новый объект TableDef к существующей коллекции TableDefs. Например:

Dim DB As DataBase

Dim NewTd As TableDef ‘ Создать новый объект TableDef

Dim NewFld As Field ‘Создать новый объект Field

Set Db=DBEngine. Workspace(0).OpenDatabase(“Biblio.mdb”)

Set NewTd=DB.CreateTableDef(“NewTable”)

Set NewFld= NewTd.CreateField(“NewField”,dbInteger)

NewTd.Fields.Append NewFld ‘добавить поле к таблице

DB.TableDefs.Append NewTd ‘добавить таблицу к базе данных

Db.Close ‘Закрыть базу данных

1. Для добавления поля к таблице необходимо добавить новый объект
Field к существующей коллекции Fields

Рекомендуем скачать другие рефераты по теме: бесплатные рефераты без регистрации, доклад по истории на тему.





Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата