ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объеденение n Recordset-ов
10 сообщений из 10, страница 1 из 1
Объеденение n Recordset-ов
    #35829165
Nitrolis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nitrolis
Гость
Всем привет)
Вопрос крайне простой, надеюсь ответ тоже... есть n совершенно одинаковых Recordset-ов (rs1, rs2... rsn), у которых много Fields. Необходимо их объединить в один, той же структуры. Как это оптимально можно сделать?
...
Рейтинг: 0 / 0
20.02.2009, 11:07
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35829260
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
никак... рекордсеты, можете представить себе как указатели на таблицы с состоянием... Если нужно объединить данные стройте соответствующий запрос
...
Рейтинг: 0 / 0
20.02.2009, 11:32
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35829279
Nitrolis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nitrolis
Гость
Спасибо за ответ...
может есть способ перебирая строки в rs1...n добавлять эти строки в resultRS?
...
Рейтинг: 0 / 0
20.02.2009, 11:38
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35829710
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
Смотрите recordset.addnew, если рекордсет привфязаный повлияет на источник строк. В любом случае решение выбрано неверное... приведите задачу
...
Рейтинг: 0 / 0
20.02.2009, 13:36
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35829922
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Можно создать отвязанный Recordset и запихнуть данные в него...
...
Рейтинг: 0 / 0
20.02.2009, 14:52
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35829989
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
NitrolisСпасибо за ответ...
может есть способ перебирая строки в rs1...n добавлять эти строки в resultRS?

Как-то так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
...
MyAddRecords rs1, resultRS
MyAddRecords rs2, resultRS
...
MyAddRecords rsn, resultRS
...
...

Public Function MyAddRecords(rs As ADODB.Recordset, rd As ADODB.Recordset)
    Dim f As Adodb.Field

    Do Until rs.Eof
        rd.AddNew
        For Each f In rd.Fields
            f = rs(f.Name)
        Next f
        rd.Update
        rs.MoveNext
    Loop
End Function
...
Рейтинг: 0 / 0
20.02.2009, 15:16
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35830034
Nitrolis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nitrolis
Гость
Есть несколько серверов, на каждом выполняется ХП, которая формирует данные. Результат ХП необходимо объединить в одну временную(!) таблицу на любом из серверов, либо в RS на клиенте, где должен быть результирующий набор данных...
Конструкция
INSERT INTO #table(...)
EXEC LinkedSRV1..SP_PROC @..@...@>>>
INSERT INTO #table(...)
EXEC LinkedSRVn..SP_PROC @..@...@>>>
Select * from #table
результата не дает... много тонкостей, настроек линков, в итоге много проблем... предположил, что легко можно через Recordset получить данные и объеденить...
...
Рейтинг: 0 / 0
20.02.2009, 15:33
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35831868
slope
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
slope
Гость
вариант с представлениями не рассматривали? сложновато но будет красиво.
объединить в том виде в котором вы предлогаете не знаю можно ли, но если выводите данные например в MSFlexGrid то методом MSFlexGrid.AddItem можно легко это сделать.
...
Рейтинг: 0 / 0
22.02.2009, 18:47
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35852973
Nitrolis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nitrolis
Гость
AndrF,
Спасибо, всё получилось... с небольшими уточнениями Вашего примера...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
MyAddRecords rs1, resultRS
MyAddRecords rs2, resultRS
...
MyAddRecords rsn, resultRS
...
...

Public Function MyAddRecords(rs As ADODB.Recordset, rd As ADODB.Recordset)
    Dim f As Adodb.Field
    rs.MoveFirst 
    Do Until rs.Eof
        rd.AddNew
        For Each f In rd.Fields
            f = rs.Fields(f.Name)
        Next f
        rd.Update
        rs.MoveNext
    Loop
End Function
...
Рейтинг: 0 / 0
05.03.2009, 12:29
| Ответить | Цитировать | Написать  
Объеденение n Recordset-ов
    #35853080
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
rd.Update не обязательно.
...
Рейтинг: 0 / 0
05.03.2009, 13:00
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объеденение n Recordset-ов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35830034&tid=2161287]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 243ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


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