Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADOX. Импорт таблиц из одной БД ACCESS в другую / 2 сообщений из 2, страница 1 из 1
18.09.2008, 09:53
    #35545847
h7h2vC
h7h2vC
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOX. Импорт таблиц из одной БД ACCESS в другую
Задачка - создать программно новую БД на основе текущей.

В программе 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, 10:03
    #35545868
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOX. Импорт таблиц из одной БД ACCESS в другую
h7h2vCПытался так (ругается на последней строке):[src vba]Dim my_cat As ADOX.Catalog

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

Вообще-же скопировать структуру можно гораздо проще - просто скопировать базу и почистить нужные таблицы. Ну а потом сжать получившуюся MDB-шку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADOX. Импорт таблиц из одной БД ACCESS в другую / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 346ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161839]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 69ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 203ms
total:  346ms
x
x
Закрыть


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