|
|
|
связь с таблицами
|
|||
|---|---|---|---|
|
#18+
Товарищи как программно создать связь с таблицами (Link) из другой базы. Заранее благодарю!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 07:56:11 |
|
||
|
связь с таблицами
|
|||
|---|---|---|---|
|
#18+
Dim TblDf1 As TableDef For Each TblDf1 In CurrentDb.TableDefs If (Mid(TblDf1.Name, 1, 1) = "t") Then TblDf1.Connect = ";Database=" & sPath TblDf1.RefreshLink End If Next TblDf1 Вот фрагмент кода(обновляются таблички, которые начинаются на t) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 08:29:52 |
|
||
|
связь с таблицами
|
|||
|---|---|---|---|
|
#18+
А зачем ; перед Database=" ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 08:32:55 |
|
||
|
связь с таблицами
|
|||
|---|---|---|---|
|
#18+
И вопрос был именно как создать с нуля Link к другой базе ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 08:35:47 |
|
||
|
связь с таблицами
|
|||
|---|---|---|---|
|
#18+
Dim TabTd as Tabledef Set TabTd = CodeDb.CreateTableDef("ИмяТаблицы") TabTd.Connect = ";Database=" & "ПутьКфайлуБД" & "ИмяТаблицы" TabTd.SourceTableName = "ИмяТаблицы" CodeDb.TableDefs.Append TabTd Ну примерно так. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 09:59:39 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32641905&tid=1672611]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
52ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 237ms |
| total: | 366ms |
| 0 / 0 |
