Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 создать таблицу в другом файле  [new]
MPoil
Member

Откуда:
Сообщений: 272
не подскажите как вначеле проверить,а потом если её нет,то создать там её
13 июл 04, 16:40    [803671]     Ответить | Цитировать Сообщить модератору
 Re: создать таблицу в другом файле  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
технологий много - для разгона у тебя DAO или ADOX ?
13 июл 04, 16:50    [803725]     Ответить | Цитировать Сообщить модератору
 Re: создать таблицу в другом файле  [new]
MPoil
Member

Откуда:
Сообщений: 272
dao
13 июл 04, 16:55    [803749]     Ответить | Цитировать Сообщить модератору
 Re: создать таблицу в другом файле  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
d:\testik.mdb - другой файл
TEST - таблица в нём
KKK - поле в таблице
ключи,индексы и прочие по аналогии!
Dim MyWork As DAO.Workspace
Dim ExtDb As DAO.Database
Dim MyTable As DAO.TableDef
Dim MyFld As DAO.Field
Dim Flag As Long
Set MyWork = DBEngine.Workspaces(0)
Set ExtDb = MyWork.OpenDatabase("d:\testik.mdb")
Flag = 0
For Each MyTable In ExtDb.TableDefs
 If MyTable.Name = "TEST" Then
                 Flag = 1
                 Exit For
 End If
Next MyTable
If Flag = 0 Then
Set MyTable = ExtDb.CreateTableDef("TEST")
Set MyFld = MyTable.CreateField("KKK", dbLong)
MyTable.Fields.Append MyFld
ExtDb.TableDefs.Append MyTable
Set MyFld = Nothing
Set MyTable = Nothing
End If
ExtDb.Close
Set MyWork = Nothing
13 июл 04, 17:47    [803987]     Ответить | Цитировать Сообщить модератору
 Re: создать таблицу в другом файле  [new]
MPoil
Member

Откуда:
Сообщений: 272
всё работает,Спасибо.
13 июл 04, 18:08    [804097]     Ответить | Цитировать Сообщить модератору
 Re: создать таблицу в другом файле  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
OK - далее F2 + хэлп
13 июл 04, 18:19    [804142]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить