|
Вопрос # 6 049/ вопрос открыт / |
|
Здравствуйте!
Подскажите как сделать транзакцию с двумя запросами!?!?
В первой таблице данные обновляются а во вторую добавляется строка.
Приложение: Переключить в обычный режим- MainForm.ADOConnection1.BeginTrans;
- try
- begin
- MainForm.ADOQuery1.Close;
- MainForm.AdoQuery1.SQL.Clear;
- MainForm.AdoQuery1.SQL.add('UPDATE klient SET
sum_oplat='+chr(39)+sumoplat+chr(39)+',sum_skid='+chr(39)+sum_proc+chr(39)+',
all_pokupki='+chr(39)+colvo+chr(39)+' , allsum='+chr(39)+allsumm+chr(39)+' ,
alltranz='+chr(39)+alltranzak+chr(39)+' WHERE nomer='+chr(39)+num+chr(39)+';');
- MainForm.AdoQuery1.ExecSQL;
- MainForm.AdoQuery1.SQL.Clear;
- MainForm.AdoQuery1.SQL.add('INSERT INTO '+kk+num+' (date_pokupki, summa, summ_so_skid, prosent)
');
- MainForm.AdoQuery1.SQL.add(' VALUES ('+chr(39)+datepokup+chr(39)+', '+chr(39)+summaa+chr(39)+',
'+chr(39)+summaasproc+chr(39)+', '+chr(39)+prosennt+chr(39)+');');
- MainForm.AdoQuery1.ExecSQL;
- //Memo1.Text:=MainForm.AdoQuery1.SQL.Text;
- MainForm.ADOConnection1.CommitTrans;
-
- end;
- except
- begin
- MainForm.ADOConnection1.RollbackTrans;
-
- end;
- end;//try
 |
Вопрос задал: Dlmka (статус: Посетитель)
Вопрос отправлен: 6 апреля 2012, 14:28
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 7 апреля 2012, 16:47; участников в обсуждении: 1.
|
bugmenot (статус: 3-ий класс), 7 апреля 2012, 16:47 [#1]:
Цитата (Dlmka):
all_pokupki
Мне нравится, чо.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
