Математические операции между таблицей ADO и Edit

[stevieg]

Здравствуйте, у меня такой вопрос.
Есть таблица базы Access, которая подключена через ADO и выводится в DBGrid. Таблица содержит поля: Наименование (строка), Цена (число), Остаток (число).
Условимся, что в таблице всего одна строка.
Также есть произвольный Edit на форме.
Что мне нужно? Мне нужно, чтобы по нажатию кнопки, от значения поля "Остаток" в таблице отнималось значение поля Edit.
Расчитываю на вашу помощь, большое спасибо.

[Stilet]

Вычислимое должно сохраняться в БД, или просто меняться в гриде на экране для анализа?

[stevieg]

Сообщение от Stilet

Вычислимое должно сохраняться в БД, или просто меняться в гриде на экране для анализа?

Должно сохраняться в бд.

[Stilet]

Тогда читай про запрос UPDATE:

ADO.SQL.Text:="UPDATE тaблица SET Остаток = Остаток - '+Edit.Text;
ADO.exec;

[stevieg]

Сообщение от Stilet

Тогда читай про запрос UPDATE:

ADO.SQL.Text:="UPDATE тaблица SET Остаток = Остаток - '+Edit.Text;
ADO.exec;

Спасибо. Скажите, а если просто в гриде меня инфу визуально, то как это сделать?

[Stilet]

Если у тебя ADОTable то примерно так:

adotable.fieldbyname('Остаток').AsFloat:=adotable.fieldbyname('Остаток').AsFloat-StrToFloatDEF(Edit.Text,0);

В надежде на то что поле это вещественнее некуда.
Этот код скорректирует текущую запись.
Если ADOQuery... Лучше забудь про редактирование в гриде.

[stevieg]

Сообщение от Stilet

Если у тебя ADОTable то примерно так:

adotable.fieldbyname('Остаток').AsFloat:=adotable.fieldbyname('Остаток').AsFloat-StrToFloatDEF(Edit.Text,0);

В надежде на то что поле это вещественнее некуда.
Этот код скорректирует текущую запись.
Если ADOQuery... Лучше забудь про редактирование в гриде.

Понял, уже впринципе получилось реализовать через update. За это спасибо.
Еще скажите пожалуйста, как доработать запрос этот, если записей в таблице заполнено ни одна, а несколько? Как задать условие, какую именно строку редактировать?

[Stilet]

В UPDATE есть правило WHERE. Читай про SQL-UPDATE.
Там в том правиле и задаются все условия редактирования.
А вот уже сами условия зависят от многого. В частности от структуры твоей базы.

[stevieg]

Вроде как, что-то вышло:

Form_DB.ADOQuery1.SQL.Text:='UPDATE Materials SET Остаток = Остаток -' +Edit6.Text+ 'WHERE Наименование = ' +Edit5.Text;
Form_DB.ADOQuery1.ExecSQL;

Прога запускается, но выдает ошибку:
Ошибка синтаксиса (пропущен оператор) в выражении запроса.
Где что пропустил, скажите пожалуйста?

[Stilet]

Перед Where нужен пробел
И нужно QuotedStr(Edit5.Text) потому что Наименование - строка.