Не обновляет запись в БД по ключевому полю (использую sql запрос)

@Константа · Регистрация: 27.09.2015

Author24 — интернет-сервис помощи студентам

Всем привет. Суть вопроса: есть простенькая база данных(созданная в foxpro).Первичным ключом является поле "idi".
На первой форме находится DBGrid(отражает содержимое таблицы) и Button(открывает форму 3 и переносит значения полей из DBGrid в EDIT.text). на форме 3 есть Button(должен внести изменения в таблицу). В чем ошибка или можно как то иначе ?

Delphi

procedure TForm3.Button1Click(Sender: TObject);
var a:integer;
begin
ADOQueryRedact.Close;
ADOQueryRedact.SQL.Clear;
  a:=StrToInt(Id_red.text);
  ADOQueryRedact.SQL.Add:=('update client2 set fam=:fam where idi=:usid');
  ADOQueryRedact.Parameters.ParamByName('usid').Value:=a;
  ADOQueryRedact.Parameters.ParamByName('fam').Value:=Fam_red.Text;
  ADOQueryRedact.ExecSQL;
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
ShowMessage('Данные изменены.');
end;
 
end.

Но изменений в бд не происходит. ошибок и предупреждений не выдает.пробовал также передавать значение поля

Delphi

1	а := Form1.DBGrid2.DataSource.DataSet.Fields[0].AsInteger;

Добавлено через 2 часа 45 минут
разобрался

если кому поможет. запутался в переменных. Тему можно закрыть.

Delphi

procedure TForm3.Button1Click(Sender: TObject);
var b: integer;
begin
ADOQueryRedact.Close;
ADOQueryRedact.SQL.Clear;
b:=Form1.DBGrid2.DataSource.DataSet.Fields[0].AsInteger;
ADOQueryRedact.SQL.Add('Update client2 SET fam= :a Where idi = :u');
ADOQueryRedact.Parameters.ParamByName('a').Value:=Fam_red.Text;
ADOQueryRedact.Parameters.ParamByName('u').Value := b;
ADOQueryRedact.ExecSQL;
ADOQueryRedact.SQL.Clear;
form1.ADOTable1.Active:=false;
form1.ADOTable1.Active:=true;
end;

	27.09.2015, 13:04