Как в модуле Access присоединить таблицу?

MyTetra Share

Делитесь знаниями!

Как в модуле Access присоединить таблицу? - VB

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: access, Link

Раздел: Разные закладки - VBA - Access - Link

Запись: xintrea/mytetra_db_adgaver_new/master/base/15153921293ut2vt9bbh/text.html на raw.githubusercontent.com

Как в модуле Access присоединить таблицу? - VB

10.11.2008, 15:27. Просмотров 727. Ответов 1

Метки нет (Все метки )

Пытаюсь в модуле Access присоединить таблицу (текстовый файл).
Пишу примерно следующее:

Visual BasicВыделить код

Dim dbsTemp As Database

Dim tdfLinked As TableDef

Set dbsTemp = CurrentDb

Set tdfLinked = dbsTemp.CreateTableDef(strTable)

tdfLinked.Connect = strConnect

tdfLinked.SourceTableName = strSourceTable

dbsTemp.TableDefs.Append tdfLinked

Здесь strTable и strSourceTable - параметры, которые я задаю соотв. образом. А проблема следующая: при прилинковке этого файла как таблицы Access типы полей проставляются автоматически и не всегда правильно. Поменять тип поля, например, на текстовое:

Visual BasicВыделить код

1	tdfLinked.Fields(1).Type = dbText

не удаётся

Можно как-нибудь во время присоединения файла прописать типы полей присоединённой таблицы?

Чтобы я мог сам задать, что в присоединённой таблице первое поле у меня Integer, второе - Text и т.д.

Последний раз редактировалось volvo; 06.09.2016 в 10:34.

Можно при линке попользовать сохраненную спецификацию связи, т.е:

Visual BasicВыделить код

1	DoCmd.TransferText acLinkDelim, "Имя сохраненной спецификации связи", ИмяПрисоединеннойТаблицы, ПутьКФайлу, False

Так же в этом разделе:

MyTetra Share v.0.65