ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADOX. Импорт таблиц из одной БД ACCESS в другую
2 сообщений из 2, страница 1 из 1
ADOX. Импорт таблиц из одной БД ACCESS в другую
    #35545847
h7h2vC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
h7h2vC
Участник
Задачка - создать программно новую БД на основе текущей.

В программе VB создаю два каталога ADOX. Один есть - текущая БД. Через Create второго создаем новый файл *.mdb. Нужно программно перетолкать все таблицы из БД1 в БД2. Честно говоря - никогда раньше так не делал. Скажите, пжлста, люди знающие - как это сделать грамотно..

Пытался так (ругается на последней строке):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim my_cat As ADOX.Catalog
Dim my_source As ADOX.Catalog
Dim my_table As ADOX.Table
Set my_cat = New ADOX.Catalog
Set my_source = New ADOX.Catalog
  
my_source.ActiveConnection = cnn1.ConnectionString
    
my_cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & my_path1 & ";Jet OLEDB:Database Password=" & pwd & ";"
    
Set my_table = my_source.Tables("in_out")
my_cat.Tables.Append my_table
...
Рейтинг: 0 / 0
18.09.2008, 09:53
| Ответить | Цитировать | Написать  
ADOX. Импорт таблиц из одной БД ACCESS в другую
    #35545868
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
h7h2vCПытался так (ругается на последней строке):[src vba]Dim my_cat As ADOX.Catalog

А посмотреть пример в Help-e? Он же там есть - ошибка будет сразу видна.

Вообще-же скопировать структуру можно гораздо проще - просто скопировать базу и почистить нужные таблицы. Ну а потом сжать получившуюся MDB-шку.
...
Рейтинг: 0 / 0
18.09.2008, 10:03
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADOX. Импорт таблиц из одной БД ACCESS в другую
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2161839]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 6ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 242ms
total:  375ms
созд. / загр.: 375ms
x
x
Закрыть


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