Передача имени таблицы

Обсуждение вопросов по разработке программ в среде продуктов копорации "Progress Software"
tokutei
Новичок
Сообщения: 7
Зарегистрирован: 19 сен 2012, 17:35

Передача имени таблицы

Сообщение tokutei » 13 май 2013, 16:47


Аватара пользователя
dmi
Старожил
Сообщения: 1523
Зарегистрирован: 27 сен 2001, 03:00
Откуда: Москва

Re: Передача имени таблицы

Сообщение dmi » 13 май 2013, 18:45

Последний раз редактировалось dmi 13 май 2013, 22:23, всего редактировалось 1 раз.
/dmi

http://pro4gl.ru - 4gl блог

Аватара пользователя
dmitri
Старожил
Сообщения: 1016
Зарегистрирован: 04 авг 2005, 16:19
Откуда: Pennsylvania, USA

Re: Передача имени таблицы

Сообщение dmitri » 13 май 2013, 18:48

Динамически что ли?

procedure change-table:
define input parameter ip-table-name as character no-undo.

define variable qh as handle no-undo.
define variable bh as handle no-undo.
define variable fh as handle no-undo.
define variable cquery as char no-undo.

create query qh.
create buffer bh for table ip-table-name.
qh:set-buffers(bh).

cquery = "FOR EACH " + ip-table-name + " WHERE " +
ip-table-name + ".field_name = ""value"".

qh:query-prepare(cquery).
qh:query-open.
qh:get-first.
repeat while not (qh:query-off-end):
fh = bh:buffer-field("wh_num").
if fh:buffer-value = {&old_wh_num} then do TRANSACTION:
qh:get-current(exclusive-lock).
assign fh:buffer-value = {&new_wh_num}.
end.
qh:get-next.
end.
qh:query-close.

end. /* change-table */
Dmitri Levin and

Dilettante_Pro
Старожил
Сообщения: 98
Зарегистрирован: 24 мар 2010, 16:20

Re: Передача имени таблицы

Сообщение Dilettante_Pro » 14 май 2013, 09:48

Дилетант построил ковчег, а профессионал - Титаник

tokutei
Новичок
Сообщения: 7
Зарегистрирован: 19 сен 2012, 17:35

Re: Передача имени таблицы

Сообщение tokutei » 14 май 2013, 12:26

Информативно. Спасибо всем :)

tokutei
Новичок
Сообщения: 7
Зарегистрирован: 19 сен 2012, 17:35

Re: Передача имени таблицы

Сообщение tokutei » 15 май 2013, 13:05


Аватара пользователя
dmi
Старожил
Сообщения: 1523
Зарегистрирован: 27 сен 2001, 03:00
Откуда: Москва

Re: Передача имени таблицы

Сообщение dmi » 15 май 2013, 23:02

/dmi



http://pro4gl.ru - 4gl блог

Dilettante_Pro
Старожил
Сообщения: 98
Зарегистрирован: 24 мар 2010, 16:20

Re: Передача имени таблицы

Сообщение Dilettante_Pro » 16 май 2013, 10:29

Дилетант построил ковчег, а профессионал - Титаник