Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / копирование объктов Recordset / 6 сообщений из 6, страница 1 из 1
15.01.2019, 19:25
    #39759977
nickstarnew
nickstarnew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование объктов Recordset
Доброго времени суток!

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

Table1 это сохраненый запрос к серверу Postgres с возвращаемой структурой соответсвующей Table2. В примере упростил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2019, 22:03
    #39760017
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование объктов Recordset
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
| Ответить | Цитировать | Написать  
16.01.2019, 02:46
    #39760071
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование объктов Recordset
Сравните объем кода при использовании 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, 08:37
    #39760101
Озверин
Озверин
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование объктов Recordset
nickstarnew, http://www.sql.ru/forum/1300269/ado-i-lokalnaya-tablica-access
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / копирование объктов Recordset / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 739ms
Закрыть
start [/forum/search_topic.php?author=Electroller&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 19ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 201ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 436ms
total:  739ms
x
x
Закрыть


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