[kirill.psl]

Вот так вот делаю Апдейт, не получается объединить 3 запроса (выполняется только первый) и сам запрос апдейта тоже не делается.. в чем загвоздка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Закрыть запрос
//Form1.QueryDynamic.Close;
Form1.ADOQuery1.Close;
// Очистить массив строк для размещения
// текста запроса
//Form1.QueryDynamic.SQL.Clear;
Form1.ADOQuery1.SQL.Clear;
// Сформировать строку с текстом запроса
sql:= Format('insert into prodaga (Data_progaga) values (''%s'');',[DateTimeToStr(DateTimePicker2.DateTime)]);
sql2:= Format('insert into prodannie_products (id_product, kol_vo_prodannih_products, ckidka) values (%s,''%s'',''%s'');',[DBLookupComboBox3.KeyValue, DBEdit3.Text, Edit7.Text]);
//sql3:= Format('UPDATE prodannie_products SET kol_vo_prodannih_products = kol_vo_prodannih_products + 1 where id_product=DBLookupComboBox3.KeyValue');
// Вывести текст запроса на экран
application.MessageBox(PChar(sql), 'Текст запроса',MB_OK);
application.MessageBox(PChar(sql2), 'Текст запроса',MB_OK);
application.MessageBox(PChar(sql3), 'Текст запроса',MB_OK);
// Добавить стоку с текстом запроса
 Form1.QueryDynamic.SQL.Add(sql);
 Form1.ADOQuery1.SQL.Add(sql2);
 Form1.ADOQueryUPDATE.SQL.Add(sql3);
 try
// Выполнить запрос
Form1.QueryDynamic.ExecSQL;
Form1.ADOQuery1.ExecSQL;
Form1.ADOQueryUPDATE.ExecSQL;
// Обработать возможные ошибки
// при выполнении запроса
except
application.MessageBox( 'Не могу выполнить запрос', 'Ошибка',MB_OK);
end;
Form1.DBGrid3.Refresh;
end;