ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать таблицу из одного mdb в другой mdb в Excel VBA
4 сообщений из 4, страница 1 из 1
Скопировать таблицу из одного mdb в другой mdb в Excel VBA
    #36273492
Nevsky2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevsky2006
Гость
Здравствуйте всем.
Подскажите как можно находясь в Excel скопировать таблицу из одного файла mdb в другой.
Сдесь, возможно, изначально для себя задачу неправильно поставил, но: есть файл Эксель который берет данные из Аксеса по сети, причем не за одни коннект (десятки). Это долго получается. Даже очень.
Что думаю сделать.
1. Создаю временный mdb.
2. Процедура переноса необходимой информации из одного mdb во временный mdb файл (что-то типа select into).
3. Меняю в настройке путь базы и все, дальше работает существующий код.
Ожидаемый результат- минимум вмешательства в существующий код, увеличение скорости выполнения ~2.4 раза.

И еще попутно вопрос: одно и то же количество информации сколько занимает места в MSAccess и MSSQLServer (если таблицу из Access перенести в MSSQLServer)

Спасибо заранее.
...
Рейтинг: 0 / 0
26.10.2009, 21:08
| Ответить | Цитировать | Написать  
Скопировать таблицу из одного mdb в другой mdb в Excel VBA
    #36273598
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Nevsky2006Подскажите как можно находясь в Excel скопировать таблицу из одного файла mdb в другой. Бешеной собаке семь верст не крюк?

Если хочешь сделать выгрузку данных из одного mdb в другой, читай тут:
http://office.microsoft.com/en-us/access/CH062526851033.aspx

Nevsky2006И еще попутно вопрос: одно и то же количество информации сколько занимает места в MSAccess и MSSQLServer (если таблицу из Access перенести в MSSQLServer)Данные? Данные занимают почти одинаковое количество места, разница всего в процент-два.
Зато дополнительной всякой всячины у MS SQL побольше получится. Но ты разве на дискетках живешь? Сейчас харддрайвы террабайтами уже измеряются, пару гиг под сервер отдать никого не напрягает.
...
Рейтинг: 0 / 0
26.10.2009, 22:40
| Ответить | Цитировать | Написать  
Скопировать таблицу из одного mdb в другой mdb в Excel VBA
    #36274011
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Nevsky2006
Я бы задал Ваш вопрос на форуме по Акцесс
...
Рейтинг: 0 / 0
27.10.2009, 09:37
| Ответить | Цитировать | Написать  
Скопировать таблицу из одного mdb в другой mdb в Excel VBA
    #36279329
Nevsky2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevsky2006
Гость
Правильная постановка задачи - 90% гарантии успешного ее выполнения.

Может кому поможет: сделал так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Function CreateAccessDatabaseADO()
    
    Dim cat As ADOX.Catalog
    Dim cnn As ADODB.Connection

    Set cat = New ADOX.Catalog
    Set cnn = New ADODB.Connection
    
    strPuth = ThisWorkbook.Path & "\Test.mdb"
    
    If Dir(strPuth) <> "" Then Kill strPuth
    
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPuth

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\БазаСДаными.mdb"

    cnn.Execute "SELECT  Table.* INTO Table IN '" & strPuth & "' FROM  Table WHERE Условие;"
 
    cnn.Close
    
    Set cat = Nothing
    Set cnn = Nothing
   
End Function

Использовал библиотеку Microsoft ADO Ext.2.8 for DLL and Security
...
Рейтинг: 0 / 0
29.10.2009, 12:56
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать таблицу из одного mdb в другой mdb в Excel VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2178910]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 18ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 209ms
total:  307ms
созд. / загр.: 307ms
x
x
Закрыть


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