Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Создание файла MDB из ADP / 10 сообщений из 10, страница 1 из 1
04.09.2003, 09:45
    #32255433
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
ADP 2000+SQL 2000
Обмен информацией с филиалами идет через файл MDB.
Раньше, когда все на MDB было, создавал внешний файл для передачи как

Set ExportDB = DBEngine.Workspaces(0).CreateDatabase(edPathBakup + "Export.mdb", dbLangCyrillic)

И потом уже туда кидал данные.

А как то же самое сделать из ADP ?
...
Рейтинг: 0 / 0
04.09.2003, 10:11
    #32255468
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
В MSSQL стандартный способ обмена данными - репликация
...
Рейтинг: 0 / 0
04.09.2003, 10:33
    #32255507
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Ситуация такая: в головном ADP 2000 + SQL 2000
На филиалах: MDE 2000 + MDB 2000 (данные)
...
Рейтинг: 0 / 0
04.09.2003, 12:46
    #32255750
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
А кроме как " ..... репликация " никак mdb-ый файл нельзя создать из ADP ?
...
Рейтинг: 0 / 0
04.09.2003, 13:10
    #32255798
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
никак 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
...
Рейтинг: 0 / 0
04.09.2003, 13:45
    #32255851
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Тоже выход, попробую так сделать.
Спасибо.
...
Рейтинг: 0 / 0
04.09.2003, 14:41
    #32255917
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Дык так только база - интерфейс получится а данные все равно надо ручками экспортировать , преобразовывать типы данных в максимально приближенные ... не говоря о том что если часть логики в ADP построена на триггерах то перенос ее на клиентскую часть вообще нетривиальная задача...
...
Рейтинг: 0 / 0
09.09.2003, 13:27
    #32259857
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Сделал передачу вот так:

при условии, что внешний файл 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 не видит новую таблицу.

ВОПРОС: как программно обновить список таблиц или какой еще путь есть?
...
Рейтинг: 0 / 0
09.09.2003, 13:40
    #32259890
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Вариантов несколько:

1) application.RefreshDatabaseWindow

2) application.CurrentProject.OpenConnection application.CurrentProject.BaseConnectionString

3) использование объектов ADOX (см. хелп и докум-цию) для создания новой таблицы и обновления списка таблиц
...
Рейтинг: 0 / 0
09.09.2003, 14:05
    #32259941
Чумаков А.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла MDB из ADP
Спасибо большое !
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Создание файла MDB из ADP / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]