Сервак FireBird 2.0
СУБД IBExpert
Среда разработки Embarcadero Rad Studio 2010 (C++)
Имеется таблица товаров, удаление, селект, добавление пашут, а вот апдейт не канает ни в какую.
Таблица товаров имеет три поля - ID, Лейбл, Цена.
Средства разработки BDE
Ставлю в датамодуле все соответствующие компоненты - IBDatabase
в котором путь к базе, IBTransaction
, TIBQuerry
- в котором селект из таблицы, TDataSource
и TIBStoredProc
- который выполняет процедуру (НА каждую по одному).
Вот, данные выводятся в DBGrid
, в дбгриде выбираю строку, нажимаю на баттн который вызывает форму изменения записи, там два поля эдит заполняются данными из изменяемой строки.... Далее я меняю их значения, нажимаю на ОК
что выполняет следующую процедуру
DMD->goods_U->ParamByName("label")->Value=Edit1->Text;
DMD->goods_U->ParamByName("costforsingle")->Value=StrToFloat(Edit2->Text);
Где
DMD
- модуль данных где находятся компоненты BDE,
goods_U
- компонент TIBStoredProc
реализующий апдейт,
LABEL
и costforsingle
соответственно поля таблицы.
Текст SQL
на апдейт:
BEGIN
UPDATE GOODS
SET
LABEL = :LABEL,
COSTFORSINGLE = :COSTFORSINGLE
WHERE (label = :label);
END
Апдейт не работает... Никак.
Может, хотя не может, а что-то не правильно? Подскажите плиз)