Технологии
Доброго времени суток, уважаемые эксперты! У меня не получается активировать запрос в Delphi. - вопрос №1923317
При заполнении всех данных на вкладках Закупка и Установка и нажатии кнопки «Подтвердить» данные добавляются, но таблица отключается и приходится пере заходить в программу. Целый день сидел и путался, но ничего не помогло. Пробовал дополнительные команды с подключением ADOQueryes, а так же менял расположение try, но безрезультатно. Буду премного благодарен если укажите на ошибку в коде.
Дополнение автора от апрель 17, 2016 г., 20:53:37
procedure TForm1.Button21Click(Sender: TObject);
begin
try
qstr_old:=DM.Zakupka.SQL.Text;
qstr:= 'insert into Закупка (ОС, Диллер, ЦенаЗа1, КолЛиц, ДатПриобр) values(';
qstr:=qstr+inttostr(DBLookupComboBox1.KeyValue)+','+inttostr(DBLookupComboBox2.KeyValue)+','+Edit1.Text+','+Edit2.Text+','+#39+DateToStr(DateTimePicker1.Date)+#39+')';
//showmessage(qstr);
DM.Zakupka.Close;
DM.Zakupka.SQL.Clear;
DM.Zakupka.SQL.Add(qstr);
DM.Zakupka.ExecSQL;
except
on e:Exception do
begin
DM.Zakupka.Close;
DM.Zakupka.SQL.Clear;
DM.Zakupka.SQL.Add(qstr_old);
DM.Zakupka.Open;
MessageDlg('Не введены данные!', mtError,[mbOK],0);
end;
end;
end;
Артём апрель 17, 2016 г.
-
Всего ответов: 1
-
А где сам код?