Перекидывание денег с одного счета на другой

[xxbesoxx]

Здравствуйте ребята . Для себя ставил задача , Но не могу решать , :D снять и перекинуть из одного счета на другом денег .

Создал MS SQL таблица

create table Bankshot(
id int identity(1,1),
fio varchar(30),
dat_operac datetime,
shot money
);

Добавляю запись

	insert into Bankshot (fio, dat_operac, shot) 
	values ('Петренко Андреи Фасилич','20.07.2013','250')
	insert into Bankshot (fio, dat_operac, shot) 
	values ('Ачико Нефаридзе','22.07.2013','210')
	insert into Bankshot (fio, dat_operac, shot) 
	values ('Микифоров Максим','25.07.2013','165')

Снять и перекинуть денег через Managment Studio на MS SQL делаю так и работает хорошо

 ---- -------------  Перекидывание денег с одного счета на другой -------- 
	begin tran
	update Bankshot set shot = shot-30 where fio = 'Ачико Нефаридзе';
	update Bankshot set shot = shot+30 where fio = 'Микифоров Максим';
	commit tran
	-------------------------------------------------------------------- 
    select id, fio, dat_operac, shot
    from Bankshot
------------------------------------------------------------------------

Вопрос Как это операция реализовать через Delphi ? Хочу что на Form был DBLookupComboBox1 = 'Ачико Нефаридзе'; и DBLookupComboBox2 'Микифоров Максим'; и Edit1 = для выбора денег.

Начинаю сначала первый update через Delphi

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (DBLookupComboBox1.Text ='') or(DBLookupComboBox2.Text ='') or (Edit1.Text = '') then
   Showmessage('Çàïîëíèòå âñå ïîëÿ')
   else
  begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('update Bankshot ');
     ADOQuery1.SQL.Add('set shot = shot - '''+ (Edit1.Text) +'');
     ADOQuery1.SQL.Add(' where fio = '''+DBLookupComboBox1.Text+'');
     ADOQuery1.ExecSQL;
  end;
end;

виводить ошибка : 'Не удалось преобразовать значение типа char к money'


питаюсь преобразовать на числа но что то делаю не правильно

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (DBLookupComboBox1.Text ='') or(DBLookupComboBox2.Text ='') or (Edit1.Text = '') then
   Showmessage('Çàïîëíèòå âñå ïîëÿ')
   else
  begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('update Bankshot ');
     ADOQuery1.SQL.Add('set shot = shot - '''+ QuotedStr(Edit1.Text) +'');
     ADOQuery1.SQL.Add(' where fio = '''+DBLookupComboBox1.Text+'');
     ADOQuery1.ExecSQL;
  end;
end;

Ребята, пожалуйста помогите написать это запрос правильно ...

[Stilet]

ADOQuery1.SQL.Add('set shot = shot - '''+ (Edit1.Text) +'');

Убери их. Тебе оковычивать число не нужно в арифметических операциях.

Создал MS SQL таблица

Опаньки... А теперь обьясни почему не сделать процедуру типа:

CREATE PROCEDURE Exchange (
 @From nvarchar(30),@To nvarchar(30),@Money money
)
AS
BEGIN
 update Bankshot set shot = shot -@Money where fio =@From
 update Bankshot set shot = shot +@Money where fio =@To 
END

И не заюзать так:

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (DBLookupComboBox1.Text ='') or(DBLookupComboBox2.Text ='') or (Edit1.Text = '') then
   Showmessage('Çàïîëíèòå âñå ïîëÿ')
   else
  begin
     ADOQuery1.Close;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('exec Exchange (:from,:to,:summ) ');
     ADOQuery1.Parameters.ParamByName('from').value:=DBLookupComboBox1.Text;
     ADOQuery1.Parameters.ParamByName('to').value:=DBLookupComboBox2.Text;
     ADOQuery1.Parameters.ParamByName('summ').value:=StrToFloat(Edit1.Text);
     ADOQuery1.ExecSQL;
  end;
end;

И пусть механика запросов лежит полностью на СУБД.

[xxbesoxx]

если так тоже ошибка 'Незакрытые кавычки в конце симбольное чтроки ''

  ADOQuery1.SQL.Add('set shot = shot -  '+ QuotedStr(Edit1.Text) +'');

Пожалуйста покажите как ?

[Аватар]

ADOQuery1.SQL.Add('set shot = shot - '+ Edit1.Text);

[xxbesoxx]

Сообщение от Аватар

ADOQuery1.SQL.Add('set shot = shot - '+ Edit1.Text);

Тоже ошибка ! Что я делаю неправильно ?

procedure TForm1.btn1Click(Sender: TObject);
begin
if (DBLookupComboBox1.Text ='') or(DBLookupComboBox2.Text ='') or (Edit1.Text = '') then
Showmessage('Çàïîëíèòå âñå ïîëÿ')
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update Bankshot ');
ADOQuery1.SQL.Add('set shot = shot - '+ Edit1.Text);
ADOQuery1.SQL.Add(' where fio = '''+DBLookupComboBox1.Text+'');
ADOQuery1.ExecSQL;
end;
end;

[xxbesoxx]

Stilet Попробую процедур . Спасибо друзья за помощь, за советь! Люблю это форум . Здесь много профессионалы есть .... Попробую

[Stilet]

'Незакрытые кавычки в конце симбольное чтроки ''

Так ведь не только в одном месте
Вообще числа не оковычивай в твоем случае ни через ''' ни функцией.

Попробую процедур

Не просто попробуй, а используй эту возможность активно - из моего опыта совет.

[xxbesoxx]

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

Так ведь не только в одном месте
Вообще числа не оковычивай в твоем случае ни через ''' ни функцией.

Не просто попробуй, а используй эту возможность активно - из моего опыта совет.

Я прошу прошения . Создал процедура как вы показали пример . Но тоже ошибка . Может для процедур надо ADOStoredProc1 ???

[eval]

Что я делаю неправильно ?

всё,

выкинуть ADOQuery1.Close;
выкинуть ADOQuery1.SQL.Clear;
выкинуть ADOQuery1.SQL.Add('update Bankshot ');
выкинуть ADOQuery1.SQL.Add('set shot = shot - '+ Edit1.Text);
выкинуть ADOQuery1.SQL.Add(' where fio = '''+DBLookupComboBox1.Text+'');
выкинуть ADOQuery1

[xxbesoxx]

выкинуть Да .... не сложно ! Что потом ?