Параллельное добавление данных в другую таблицу. / FoxPro, Visual FoxPro

ReSQL.ru

2.0.59

Планшетная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Параллельное добавление данных в другую таблицу. / 3 сообщений из 3, страница 1 из 1

21.08.2018, 23:22

#39691377

andrepont

Гость

Параллельное добавление данных в другую таблицу.

Здравствуйте. Имеется код для добавления данных в таблицу izd.

Код: xml

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

IF EMPTY(alltrim(thisform.IzdName_txt.Value)) THEN 
	messagebox ("&#194;&#226;&#229;&#228;&#229;&#237;&#251; &#237;&#229; &#226;&#241;&#229; &#238;&#225;&#255;&#231;&#224;&#242;&#229;&#235;&#252;&#237;&#251;&#229; &#228;&#224;&#237;&#237;&#251;&#229;", 0,0)
else
	LOCATE FOR ALLTRIM(Izd.Shifr_Izd) == alltrim(thisform.IzdName_txt.Value)
	IF FOUND()
		messagebox ("&#200;&#231;&#228;&#229;&#235;&#232;&#229; &#243;&#230;&#229; &#239;&#240;&#232;&#241;&#243;&#242;&#241;&#242;&#226;&#243;&#229;&#242; &#226; &#241;&#239;&#240;&#224;&#226;&#238;&#247;&#237;&#232;&#234;&#229;", 0,0)
	ELSE 
		LOCAL cID_Izd
		SELECT izd
		CALCULATE MAX(izd.id_izd) ALL to cMaxID_izd
		cID_Izd = cMaxID_izd + 1
		
		APPEND BLANK
		replace Izd.ID_Izd WITH cID_Izd, Izd.Shifr_Izd WITH alltrim(thisform.IzdName_txt.Value), Izd.Izd_Prim With Thisform.IzdPrim_txt.Value
		Thisform.Grid1.Refresh 
		
		thisform.IzdName_txt.Value = ""
		Thisform.izdPrim_txt.Value = ""
	ENDIF 
endif

Нужно параллельно добавить строку еще и в таблице n_plan_izd в поле id_izd со значением cID_Izd. Как сделать. Спасибо заранее.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

22.08.2018, 09:10

#39691457

Sergey Sizov

Участник

Сообщения: 1 524
Рейтинг: 0 / 0

Параллельное добавление данных в другую таблицу.

andrepont,
Вы не знаете команду Insert into...? Или ключевое в вопросе является слово "параллельно"?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

23.08.2018, 18:22

#39692573

andrepont

Гость

Параллельное добавление данных в другую таблицу.

Спасибо за подсказку, разобрался. я новичок в программировании.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&mobile=1&tid=1581760]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	170ms
get topic data:	11ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	233ms

total:	483ms