powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите,пожалуйста!
7 сообщений из 7, страница 1 из 1
Помогите,пожалуйста!
    #32201606
Bobic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите!
Ситуация такая.
Есть программа для заполнения табелей рабочего времени.
Табель заполняется на основе графика. Графики работы хранятся в отдельной таблице. Сам табель хранится в другой таблице.
Поступаю так, загружаю в listbox графики из таблицы графиков и потом c помощью метода Column списка беру оттуда данные и присваиваю полям таблицы где хранится табель. Для перехода к следующей записи использую docmd и снова вызываю эту процедудуру загрузки из списка графиков. Таким образом заполняются табеля для 1200 человек. Но с большим торможением.

Может быть подскажете.Можно ли использовать объект recordset для подобных действий (т.е. ,брать данные из одной таблицы и записывать их в поля другой таблицы). По моему с recordset все должно действовать на порядок быстрей.
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201615
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не можно, а нужно.

открываешь 2 recordset-a, по одному на каждую таблицу
и перекачиваешь чего и куда хочешь.
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201618
am (a_mitin)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а если удасться - то лучше всего с помощью запросов вставить или проапдейтить...
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201625
Bobic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так подскажите примерно механизм перекачки

Dim db as database,rs1 as recordset,rs2 as recordset
set db=currentdb
set rs1=db.openrecordset("Table1")
set rs2=db.openrecordset("Table2")

вот открыли рекордсеты. Как дальше поступить?

Сложность заключается в том что нужно в каждую из 1200 записей таблицы table1 где хранятся табеля работников,записать соответствующий график из таблицы table2. Тип и номер графика указывается в поле таблицы table1. После работы этого кода,каждому работнику в его табель должен записаться его график работы.
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201636
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
while not rs1.eof
rs2.findfirst "[Код соответсвия]=" & rs1![Код соответсвия]
rs1.edit
rs1.Поле1=rs2.Поле1
...
rs1.ПолеN=rs2.ПолеN
rs1.update
rs1.movenext
wend
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201657
Bobic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Sasha 1 Огромное спасибо.
...
Рейтинг: 0 / 0
Помогите,пожалуйста!
    #32201689
VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что мешает выполнить запрос
Код: plaintext
1.
2.
Update table1 inner join table table2 on table1.[Код соответсвия]=table2.[Код соответсвия] set table1.field1=table2.field1,
set  table1.field2=table2.field2,...
set table1.fieldN=table2.fieldN;
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите,пожалуйста!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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