Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Копирование данных одной таблицы в другую... / 6 сообщений из 6, страница 1 из 1
13.12.2006, 14:20
    #34196654
Andersson
Andersson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Еще раз всех приветствую.
Есть две БД, одна локальная, другая сетевая. В программе подкючаюсь к этим базам через разные драйверы, т.е.:
Код: plaintext
1.
2.
3.
4.
5.
Dim conn1 = New ADODB.Connection
Dim conn2 = New ADODB.Connection
'
conn1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..."
conn2.open "PROVIDER=MSDASQL;DSN=..."
С сетевой БД я выбираю необходимые данные:
Код: plaintext
1.
2.
Dim rs as new adodb.recordset
rs.open "Select * From Temp", conn2, ....
Можно ли через оператор Insert каким-нибудь образом вставить данные в таблицу находящуюся в локальной БД, т.е. к которой я подключаюсь через соединение Conn1????
Помогите плиз, буду очень благодарен, единственный способ (очень не эфективный конечно) это использовать цикл.... :( К сожалению ничего более рационального в голову пока не приходит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 15:14
    #34196940
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Что мешает все сделать одним запросом вместо того, чтобы открывать кучу коннектов.

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim strSQL As String
    
    strSQL = "SELECT FName As Field1, LName as Field2 " & _
      "INTO NewTable " & _
      "FROM tblCustomers IN '\\server\database\dbCustomers.mdb'"
      
    CurrentProject.Connection.Execute strSQL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 15:34
    #34197060
Andersson
Andersson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Да, действительно, спасибо большое!!!!
Подскажи еще пожалуйста... мне надо выбрать из сетевой базы, вставить в локальную, я так понимаю мне надо прописать где-то в инструкции From параметры сетевой БД, т.е. если я подлючаюсь через adodb.connection, я задаю строку подключения, тут также необходимо будет указать где расположена сетевая БД????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 15:43
    #34197097
Andersson
Andersson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Все, кажется сам разобрался...
Это должно выглядеть приблизительно так:
Код: plaintext
1.
2.
sql$ = "INSERT INTO т1 ( col1, col2, ....... ) IN 'D:\...\base.mdb(или server.....)" _
             & "Select base1...."
Так ведь???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 15:44
    #34197106
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Я же привел пример кода в локальной базе Access. Разположение сетевой базы указывается после оператора IN.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 09:14
    #34198621
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование данных одной таблицы в другую...
Ну да, используй предложение IN для указания внешней базы данных.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Копирование данных одной таблицы в другую... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 458ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164810]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 223ms
total:  458ms
x
x
Закрыть


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