Пример 11

Пример 10.

Dim IntTblCount As Integer IntTblCount = DBLEngine (0) (0).TableDefs.Count

Семейство TablDefs имее следующие методы:

1.Append. При создании объекта TableDef необходимо добавить его в семейство TableDefs, чтобы к нему можно было обращаться.

2.Delete. Этот метод удаляет объект TableDef из семейства TableDefs. Если объект TableDef является присоединенной таблицей, то удалена будет только связь с внешней таблицей, т.е. данные в источнике удалены не будут.

3.Refresh. Этот метод используется для того, чтобы убедиться, что семейство TableDefs корректно представляет объекты. Рекомендуется вызывать метод Refresh после каждого добавления, удаления или изменения объекта TableDef.

В следующем примере демонстрируется использование этих методов.

Function blnLinkTable (strLinkTableName As String) As Boolean Dim dbMyDB As Database, tblMyTableDef As TableDef Set dbMyDB = DBEngine (0) (0) Set tblMyTableDef = dbMyDB.CreateTableDef (strLinkTableName) ‘Присоединит таблицу Fox.TBL в каталоге БД C:Files tblMyTableDef.Connect = “ Fox Pro 2.6; DATABASE = C:Files” ‘Имя присоединенной таблицы tblMyTableDef.SourceTableName = “FoxTBL” ‘Вызов метода Append для добавления таблицы в семейство TableDefs dbMyDB.TableDefs.Refresh ‘Вызов метода Delete для удаления таблицы dbMyDB.TableDefs.Delete strLinkTableName blnLinkFoxTable = True End Funcrion

Использование свойств и методов объекта TableDef.

Наиболее часто используемые свойства и методы объекта Tabledef.

Дата добавления: 2014-01-15