VPF::Не отрабатывает запрос UPDATE SET - Форум программистов

BEST13

Дата 13.2.2012, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Связка Аccess +ADO+ Delphi XE2
В одной процедуре не выполняется запрос на обновление, причем ошибок не выдает и при трассировке кода все выполняется, но запись в таблице не обновляется. Не могу понять в чем проблема.
Вот процедура:

Код


procedure TF_add_to_sklad.B_Rec_to_SkladClick(Sender: TObject);
var Id,kol:integer;
begin
With DM.AQ_postavki_NaSclade do
if RG_To_Sklad.ItemIndex =0 then
  begin
     Close;
     SQl.Clear;
     SQL.Add('INSERT INTO NaSclade ( Nazvanie, Proizvoditel, Kol, Izmer,'+
            ' CenaZakupki, CenaProdagi, TovarType, DateReceived, Stutus ) VALUES '+
            '( :Nazv, :Proiz, :Kol, :Izm, :CenaZ, :CenaP, '+
            ':TT, :DateR, :Stutus);');
    parameters.parambyname('Nazv').Value:= E_nazv_to_sklad.Text;
    parameters.parambyname('Proiz').Value:= DBLCB_proizvod_to_sklad.KeyValue;
    parameters.parambyname('Kol').Value:= E_kol_to_sklad.Text;
    parameters.parambyname('Izm').Value:= DBLCB_Izmer_to_sklad.KeyValue;
    parameters.parambyname('CenaZ').Value:= E_cena_to_sklad.Text;
    parameters.parambyname('CenaP').Value:= E_new_cena_to_sklad.Text;
    parameters.parambyname('TT').Value:= DBLCB_Type_to_sklad.KeyValue;
    parameters.parambyname('DateR').Value:= FormatDateTime('dd.mm.yyyy', DTP_Received_to_sklad.Date);
    parameters.parambyname('Stutus').Value:= DBLCB_Status_to_sklad.KeyValue;
    ExecSQL;
  end
else
  begin
    id:= DM.AQ_postavki_NaSclade.Fields.Fields[0].AsInteger;
    kol:= DM.AQ_postavki_NaSclade.Fields.Fields[3].AsInteger;
    Close;
    SQL.Clear;
    SQl.Add('UPDATE NaSclade SET Kol = :Kol, CenaZakupki = :CenaZ,'+
    ' CenaProdagi = :CenaP, DateReceived = :DateR WHERE Kod = :id ; ');
    parameters.parambyname('CenaZ').Value:= E_cena_to_sklad.Text;
    parameters.parambyname('CenaP').Value:= E_new_cena_to_sklad.Text;
    parameters.parambyname('DateR').Value:= FormatDateTime('dd.mm.yyyy', DTP_Received_to_sklad.Date);
    parameters.parambyname('Kol').Value:= kol+strtoint(E_kol_to_sklad.Text);
    ShowMessage(SQL.Text);
    ExecSQL;
  end;
  Close;
end;

Данкинг

Дата 13.2.2012, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Так :id тоже как параметр указать нужно же.

--------------------

There's nothing left but silent epitaphs.

BEST13

Дата 13.2.2012, 17:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Цитата(Данкинг @ 13.2.2012, 14:58

)

Так :id тоже как параметр указать нужно же.

Блин, вот я растяпа((( Спасибо!!!!

Данкинг

Дата 13.2.2012, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Только странно, что ошибка не вылезала у тебя в таком случае. smile

--------------------

There's nothing left but silent epitaphs.

Frees

Дата 13.2.2012, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(Данкинг @ 13.2.2012, 21:34

)

Только странно, что ошибка не вылезала у тебя в таком случае.

А почему она должна вылезать :id остается null и условие WHERE всегда ложно.

Это сообщение отредактировал(а) Frees - 13.2.2012, 18:42

--------------------

Кольцов Виктор Владимирович

Данкинг

Дата 13.2.2012, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Так обычно же на отсутствующий параметр ругается.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »