Сложение 2-х таблиц из БД

[Dimarik163]

Здравствуйте.

Имеются две разные базы данных с одинаковоми полями. Нужно их сложить в одну таблицу при помощи макроса.

Например

БД1:                          БД2:
№    ФИО                    №    ФИО
1     Иванов                1     Кузнецов
2     Петров                2     Сидоров

Нужно при помощи макроса одним запросом сделать таблицу вида:
№ ФИО
1 Иванов
2 Петров
1 Кузнецов
2 Сидоров

[R Dmitry]

Сообщение от Dimarik163

Здравствуйте.

Имеются две разные базы данных с одинаковоми полями. Нужно их сложить в одну таблицу при помощи макроса.

Например

БД1:                          БД2:
№    ФИО                    №    ФИО
1     Иванов                1     Кузнецов
2     Петров                2     Сидоров

Нужно при помощи макроса одним запросом сделать таблицу вида:
№ ФИО
1 Иванов
2 Петров
1 Кузнецов
2 Сидоров

так чего тут городить вот Вам запрос приспосабливайте

select a.[№],a.[ФИО]
from БД1 a
union
select b.[№],b.[ФИО]
from БД2 b

[Dimarik163]

Проблема в том что эти базы данных на разных серверах.

Array("ODBC;DSN= БД1 ;Driver=Firebird/InterBase(r) driver;Dbname=192.168.30.1")
Array("ODBC;DSN= БД2 ;Driver=Firebird/InterBase(r) driver;Dbname=192.168.50.1")

[R Dmitry]

Сообщение от Dimarik163

Проблема в том что эти базы данных на разных серверах.

Array("ODBC;DSN= БД1 ;Driver=Firebird/InterBase(r) driver;Dbname=192.168.30.1)
Array("ODBC;DSN= БД2 ;Driver=Firebird/InterBase(r) driver;Dbname=192.168.50.1)

тогда открывайте два соединения, два рекордсета,
и почередно выгружайте их на лист,
запрос будет простым select * from tbl

Cells(1, 1).CopyFromRecordset rs
Cells(1+ rs.Count, 1).CopyFromRecordset rs2

[Dimarik163]

Sub Макрос()

Source1 = "БД1"
Source2 = "БД2"

CommandText = "select * from tbl"
  
Set cn1 = CreateObject("ADODB.Connection")
Set cn2 = CreateObject("ADODB.Connection")

cn1.Open Source1
cn2.Open Source2

Set rs = cn1.Execute(CommandText)
Set rs2 = cn2.Execute(CommandText)

Cells(1, 1).CopyFromRecordset rs
Cells(1 + rs.Count, 1).CopyFromRecordset rs2


rs.Close
cn.Close
rs2.Close
cn2.Close


End Sub

На строке:

Cells(1 + rs.Count, 1).CopyFromRecordset rs2

появляется ошибка 438: Object doesn't support this property or method.

Где я накосячил?

[R Dmitry]

Сообщение от Dimarik163

Sub Макрос()

Source1 = "БД1"
Source2 = "БД2"

CommandText = "select * from tbl"
  
Set cn1 = CreateObject("ADODB.Connection")
Set cn2 = CreateObject("ADODB.Connection")

cn1.Open Source1
cn2.Open Source2

Set rs = cn1.Execute(CommandText)
Set rs2 = cn2.Execute(CommandText)

Cells(1, 1).CopyFromRecordset rs
Cells(1 + rs.Count, 1).CopyFromRecordset rs2


rs.Close
cn.Close
rs2.Close
cn2.Close


End Sub

На строке:

Cells(1 + rs.Count, 1).CopyFromRecordset rs2

появляется ошибка 438: Object doesn't support this property or method.

Где я накосячил?

Везде ....................

[Dimarik163]

Подскажите как надо.

[R Dmitry]

Сообщение от Dimarik163

Подскажите как надо.

ну если подключение и создание рекордсета у Вас проходит нормально, то накосячил я ..........бывает

Cells(1 + rs.RecordCount, 1).CopyFromRecordset rs2

да и у Вас на самом деле есть таблица tbl ?

[Dimarik163]

Нету, запрос огромный - я не стал его сюда копировать.

[Dimarik163]

Сообщение от R Dmitry

Cells(1 + rs.RecordCount, 1).CopyFromRecordset rs2

Теперь ошибка 1004: Application-difined or object-defined error.