Как подключить таблицу

Papper

Дата: 06.03.2008 06:05:07

Привет всем!
Есть три файла 1.mdb, 2.mdb, 3.mdb
В 1.mdb есть таблица tbl1, в файле 2.mdb требуется создать ссылку на эту таблицу, но сделать это нужно из файла 3.mdb. Вот.
Вопрос: Как это сделать? Может кто знает.

Restavraciya

Дата: 06.03.2008 07:37:26

Двумя способами (все в коде/модуле 3.мдб)
1 методом OPENDATABASE(2.мдб) создаете переменную и создаете таблицы с коннектом в этой переменной (примеры коннекта на форуме)
2 создаете переменную NEW ACCESS.APPLICATION, в ней открываете 2.мдб .. все остальное тоже самое

Papper

Дата: 06.03.2008 10:22:18

Restavraciya

А можно чуть подробнее или хотя бы ссылку на то где есть примеры.

mds_world

Дата: 06.03.2008 10:30:14

Примеров по форуму - море разливанное. Ключевые слова для поиска: OpenDatabase, Connect, RefreshLink
Проанализируйте этот код. Все выполняется в какой-то третьей мдбшке

Sub ConnectDBtable()
' Пример соединения таблиц в разных mdb
' Из текущей БД создается линк на таблицу табл1 из "c:\1.mdb"
' в БД "c:\2.mdb". 
    Dim tdf As TableDef, dbs1 As Database, dbs2 As Database
    Set dbs1 = OpenDatabase("c:\1.mdb")
    Set dbs2 = OpenDatabase("c:\2.mdb")
    Set tdf = dbs2.CreateTableDef("табл1")
    tdf.Connect = ";Database=c:\1.mdb"
    tdf.SourceTableName = "табл1"
    dbs2.TableDefs.Append tdf
    tdf.RefreshLink
End Sub

Papper

Дата: 06.03.2008 13:01:04

mds_world

Sub ConnectDBtable()
' Пример соединения таблиц в разных mdb
' Из текущей БД создается линк на таблицу табл1 из "c:\1.mdb"
' в БД "c:\2.mdb". 
    Dim tdf As TableDef, dbs1 As Database, dbs2 As Database
    Set dbs1 = OpenDatabase("c:\1.mdb")
    Set dbs2 = OpenDatabase("c:\2.mdb")
    Set tdf = dbs2.CreateTableDef("табл1")
    tdf.Connect = ";Database=c:\1.mdb"
    tdf.SourceTableName = "табл1"
    dbs2.TableDefs.Append tdf
    tdf.RefreshLink
End Sub

Спасибо.