ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / копирование объктов Recordset
6 сообщений из 6, страница 1 из 1
копирование объктов Recordset
    #39759977
nickstarnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nickstarnew
Участник
Доброго времени суток!

Подскажите, можно ли объкт Recordset целиком записать в таблицу?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Dim db As DAO.Database
    Dim db1 As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    
    Set db = CurrentDb
    Set db1 = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Table1")
    Set rs1 = db.OpenRecordset("Table2")
    
    Set rs1 = rs


т.е. можно ли выбрав данные с помощью объекта Recordset из таблицы стразу сохранить их в другую таблицу без перебора или хотябы перебером но целиком по строкам. Структура обоих таблиц одинакова.
...
Рейтинг: 0 / 0
15.01.2019, 19:25
| Ответить | Цитировать | Написать  
копирование объктов Recordset
    #39759985
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nickstarnew...Структура обоих таблиц одинакова.
Стесняюсь спросить: а наличие в БД 2 таблиц одинаковой структуры и с данными во второй,которые извлечены из первой-это нормально?
По сути же с задачей,решаемой Вами,"на ура" справляется запрос на добавление
...
Рейтинг: 0 / 0
15.01.2019, 20:04
| Ответить | Цитировать | Написать  
копирование объктов Recordset
    #39759995
nickstarnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nickstarnew
Участник
sdkunickstarnew...Структура обоих таблиц одинакова.
Стесняюсь спросить: а наличие в БД 2 таблиц одинаковой структуры и с данными во второй,которые извлечены из первой-это нормально?
По сути же с задачей,решаемой Вами,"на ура" справляется запрос на добавление

Table1 это сохраненый запрос к серверу Postgres с возвращаемой структурой соответсвующей Table2. В примере упростил.
...
Рейтинг: 0 / 0
15.01.2019, 20:25
| Ответить | Цитировать | Написать  
копирование объктов Recordset
    #39760017
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
nickstarnew,
судя по инструкции SQL для RS Вы ничего не отбираете (где WHERE..).
Добавляется так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Do Until rs.EOF
    With rs1
        .AddNew
            !КодР = rs!КодрР
                !работник = rs!ф & " " & Left(rs!и, 1) + ". " & Left(rs!о, 1) + "."
            !год = Me.год
        !месяц = Me.месяц
        .Update
    End With
    rs.MoveNext
    Loop
...
Рейтинг: 0 / 0
15.01.2019, 22:03
| Ответить | Цитировать | Написать  
копирование объктов Recordset
    #39760071
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Сравните объем кода при использовании RS и запроса (+еще и таблица создается)
Код: vbnet
1.
2.
3.
4.
5.
'создание таблицы
'поля и их тип должны в точности повторять исходную таблицу
CurrentDb.Execute "create table tbl1 (id counter(1,1) primary key,ctl1 text(50),ctl2 long,ctl3 currency)"
'её заполнение
CurrentDb.Execute "insert into tbl1 select * from tbl"
...
Рейтинг: 0 / 0
16.01.2019, 02:46
| Ответить | Цитировать | Написать  
копирование объктов Recordset
    #39760101
Озверин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Озверин
Участник
nickstarnew, http://www.sql.ru/forum/1300269/ado-i-lokalnaya-tablica-access
...
Рейтинг: 0 / 0
16.01.2019, 08:37
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / копирование объктов Recordset
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=37&tid=1610909]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 311ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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