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

[eval]

ADOCommand + Parameters и будет счастье

[xxbesoxx]

Спасибо всем ! особенно огромное спасибо Stilet Правильно надо работать через ХП ... Я решил это задачу через компонент ADOStoredProc работает нормально ... Код выглядит так

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (DBLookupComboBox1.Text ='') or(DBLookupComboBox2.Text ='') or (Edit1.Text = '') then
   Showmessage('Çàïîëíèòå âñå ïîëÿ')
   else
  begin
    ADOStoredProc1.Parameters.Clear;
    ADOStoredProc1.ProcedureName := 'Exchange';
    ADOStoredProc1.Parameters.Refresh;
    ADOStoredProc1.Parameters.ParamByName('@from').Value :=  DBLookupComboBox1.Text;
    ADOStoredProc1.Parameters.ParamByName('@to').Value :=  DBLookupComboBox2.Text;
    ADOStoredProc1.Parameters.ParamByName('@Money').Value :=  Edit1.Text;
    ADOStoredProc1.ExecProc;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select *  from Bankshot');
    ADOQuery1.Open;

  end;
end;

end.

Тема можно закрыть ! Еще огромное спасибо .

[Stilet]

Может для процедур надо ADOStoredProc1 ???

Хм... Странно, я как-то на такую ошибку у себя не попадался...

[xxbesoxx]

Stilet Спасибо за помочь ... Так тоже работает нормально