|
|
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
ADP 2000+SQL 2000 Обмен информацией с филиалами идет через файл MDB. Раньше, когда все на MDB было, создавал внешний файл для передачи как Set ExportDB = DBEngine.Workspaces(0).CreateDatabase(edPathBakup + "Export.mdb", dbLangCyrillic) И потом уже туда кидал данные. А как то же самое сделать из ADP ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 09:45 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
В MSSQL стандартный способ обмена данными - репликация ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 10:11 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
Ситуация такая: в головном ADP 2000 + SQL 2000 На филиалах: MDE 2000 + MDB 2000 (данные) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 10:33 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
А кроме как " ..... репликация " никак mdb-ый файл нельзя создать из ADP ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 12:46 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
никак mdb-ый файл нельзя создать из ADP ? Function f_newmdb() Dim app As Application Set app = CreateObject("Access.Application") app.NewCurrentDatabase "c:\test.mdb" .... .... app.Quit acQuitSaveAll Set app = Nothing End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 13:10 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
Тоже выход, попробую так сделать. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 13:45 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
Дык так только база - интерфейс получится а данные все равно надо ручками экспортировать , преобразовывать типы данных в максимально приближенные ... не говоря о том что если часть логики в ADP построена на триггерах то перенос ее на клиентскую часть вообще нетривиальная задача... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2003, 14:41 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
Сделал передачу вот так: при условии, что внешний файл Export.mdb уже есть делаю так: MySQL = "SELECT Depo.* INTO E_Depo" MySQL = MySQL + " FROM Depo" MySQL = MySQL + " WHERE (((Depo.IDDislocation)='" & Me.Filials.Column(2) & "'))" cmdInv.CommandText = MySQL cmdInv.Execute в данном месте замечательно создается новая табличка с новой выборкой, которую я пытаюсь передать во внешний файл вот так: DoCmd.TransferDatabase acExport, "Microsoft Access", _ "C:\Export.mdb", acTable, "E_Depo", "E_Depo" Опять же все замечательно передается (даже типы полей нормально подобраны), НО при условии, что вновь созданную таблицу видно в окне проекта. Т.е. если перед TransferDatabase руками по F5 обновить окно проекта, то все ОК, а если не обновлять, то ADP не видит новую таблицу. ВОПРОС: как программно обновить список таблиц или какой еще путь есть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.09.2003, 13:27 |
|
||
|
Создание файла MDB из ADP
|
|||
|---|---|---|---|
|
#18+
Вариантов несколько: 1) application.RefreshDatabaseWindow 2) application.CurrentProject.OpenConnection application.CurrentProject.BaseConnectionString 3) использование объектов ADOX (см. хелп и докум-цию) для создания новой таблицы и обновления списка таблиц ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.09.2003, 13:40 |
|
||
|
|
start [/forum/topic.php?fid=45&fpage=1753&tid=1679521]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
36ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
57ms |
get tp. blocked users: |
1ms |
| others: | 228ms |
| total: | 365ms |
| 0 / 0 |
