Объединение нескольких рекордсетов...

[Stout]

DAO 3.6
Есть некоторое количество рекордсетов, полученных в результате SQL запросов к различным *.mdb. В каждом РС - два поля и произвольное количество записей. Первое поле у всех рекордсетов одинаково - это дата, второе(integer) - может быть как уникальным для каждого так и совпадающим с другим РС. Задача - объединить все рекордсеты в один так, чтобы в результирующем РС совпадающие поля "сливались", а записи были бы отсортированы по дате.

Примерно так:



Заранее благодарен!

[amda]

такие задачки (как и многое другое ) я обычно решаю с помощью Access. если у кого-то будут идеи, как это сделать на чистом VB, то мне тоже будет очень интересно. У меня самого опыта с базами в VB маловато

[Rainbow]

Ну, можно создать новый объект Recordset и добавлять туда данные ручками: поискали дату. Нашли? - изменили значение в нужной колонке. Нет колонки? - добавили. Не нашли дату? - добавили строчку и тд.

[amda]

... и добавлять туда данные ручками...

ну мы же программисты, наверное!...
зачем такое предлагать? Можно было хотя бы мой пример (РАБОТАЮЩИЙ) посмотреть. Я только реализацию его на чистом VB не могу сделать (не потяну). Это единственная проблема. А знаток баз данных понял бы мою идею и легко с правился бы с задачей.

[RayShade]

Вот объяснил бы ты мне, гений программирования баз данных, чем DAO отличается в Аксесе от чистого ВБ, цены бы тебе не было, чесслово

А то фраза "нет опыта с базами в ВБ" уже ктороый год повергает меня в горестные раздумья по поводу "опыта с базами вообще"

[Rainbow]

программисты, которые работают с БД, наверное, умеют таблички соединять. А проблемы возникают, когда НЕТ такой возможности.

Держи работающий пример.
только путь к базе поправь в ConnectionString

[Oldman]

А с помощью SELECT не вариант? Там есть слияние таблиц в одну с совпадающими данными, исключающими данными и т.д.

[Rainbow]

SELECT откуда?
рекордсеты из РАЗНЫХ mdb.

О, есть абсолютно сумасшедшая мысля. Создать временные таблицы в БД, там их слить SELECT'ами, а потом результат вытащить

[Alex404]

Код: Выделить всё

Set База = OpenDatabase(App.Path & "\db1.mdb")

SQL_1="SELECT Date as D, Value1 as V1, 0 as V2, 0 as V3 FROM tblONE"
SQL_2="SELECT Date as D, 0 as V1, Value2 as V2, 0 as V3 FROM tblONE IN '" & App.Path & "\db2.mdb' "
SQL_3="SELECT Date as D, Value1 as V1, 0 as V2, 0 as V3 FROM tblONE IN '" & App.Path & "\db3.mdb' "
SQL_4="SELECT Date as D, 0 as V1, 0 as V2, Value3 as V3 FROM tblONE IN '" & App.Path & "\db4.mdb' "

strSQL="(" & SQL_1 & ") UNION (" &  SQL_2 & ") UNION (" & SQL_3 & ") UNION (" & SQL4 & ") "

strSQL="SELECT D, SUM(V1) as Val1, SUM(V2) as VAL2, SUM(V3) as VAL3 " & _
       "FROM (" & strSQL & ") " & _
       "GROUP BY D " & _
       "ORDER BY D ASC "

Set RS = База.OpenRecordset(strSQL)

На работоспособность не проверял, но работать ДОЛЖНО...