|
|
|
Источник для связанных таблиц
|
|||
|---|---|---|---|
|
#18+
Добрый день, собственно такая проблема: есть приложение созданная в Акцессе (файл MDB) в нем есть связанные таблицы с SQL сервером, сервера на самом деле два т.е. тестовый и боевой, при переностраивать их просто упаришься!!! Вопрос можно ли как либо программно подменить источники данных скажем при загрузке/старте этого приложения? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2004, 11:04:30 |
|
||
|
Источник для связанных таблиц
|
|||
|---|---|---|---|
|
#18+
можно. поиск по форуму поможет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2004, 11:10:19 |
|
||
|
Источник для связанных таблиц
|
|||
|---|---|---|---|
|
#18+
Alexey Shможно. поиск по форуму поможет Я правильно нашел: Set db = CurrentDb For Each td In db.TableDefs If td.Connect <> "" Then DoCmd.RunSQL "DROP TABLE [" & td.name & "]" Next Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("", dbDriverNoPrompt, False, strCnn) strCnn = "ODBC;" & strCnn For Each td In db.TableDefs dhMessage , , td.name Set tbl = CurrentDb.CreateTableDef(td.name) tbl.Connect = strCnn tbl.SourceTableName = td.name CurrentDb.TableDefs.Append tbl Next td 'Переписываем строки подключеня у всех запросов к серверу For Each qd In CurrentDb.QueryDefs 'Если это запрос к серверу If qd.Type = 144 Or qd.Type = 112 Then qd.Connect = strCnn End If Next qd ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.12.2004, 11:40:34 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32818102&tid=1669889]: |
0ms |
get settings: |
10ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
33ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
52ms |
get tp. blocked users: |
2ms |
| others: | 244ms |
| total: | 377ms |
| 0 / 0 |
