Изменение текущей записи

[govorun1]

Сделал выборку данных Adoquery
Показал их в dbgrid
А теперь по нажатию кнопки нужно изменить значение поля в записи(строке) на которой установлен курсор в dbgrid (dbgrid только для чтения)

Это конечно бред

    adoquery1.Close;
    adotable1.Edit;
    adoquery1.DataSource.DataSet.Fields.FieldByName('sd_v_kl').AsInteger:=1;
    adotable1.Post;
    adoquery1.Open;

Помогите....

[xxbesoxx]

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

Сделал выборку данных Adoquery
Показал их в dbgrid
А теперь по нажатию кнопки нужно изменить значение поля в записи(строке) на которой установлен курсор в dbgrid (dbgrid только для чтения)

Это конечно бред

    adoquery1.Close;
    adotable1.Edit;
    adoquery1.DataSource.DataSet.Fields.FieldByName('sd_v_kl').AsInteger:=1;
    adotable1.Post;
    adoquery1.Open;

Помогите....

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Caption := 'Редактировать запись';
 ADOQuery1.Edit;
 Form2.Edit1.Text := ADOQuery1.FieldByName('Naimenovanie').AsString;
 form2.ShowModal;
end;

2.

procedure TForm2.Button1Click(Sender: TObject);
begin
  form1.ADOQuery1.FieldByName('Naimenovanie').AsString := Edit1.Text;
  Form1.ADOQuery1.Post;
  Form2.Close;
end;

[govorun1]

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

1.

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Caption := 'Редактировать запись';
 ADOQuery1.Edit;
 Form2.Edit1.Text := ADOQuery1.FieldByName('Naimenovanie').AsString;
 form2.ShowModal;
end;

2.

procedure TForm2.Button1Click(Sender: TObject);
begin
  form1.ADOQuery1.FieldByName('Naimenovanie').AsString := Edit1.Text;
  Form1.ADOQuery1.Post;
  Form2.Close;
end;

Сделал так

var
    id:integer;
begin
    id:=adoquery1.Fields[0].AsInteger;
    adotable1.Edit;
    adoquery2.Close;
    adoquery2.SQL.Text:='update inkasso set sd_v_kl = 1 where s = id';
    adoquery2.Parameters[0].Value:=id;
    adoquery2.ExecSQL;
    adotable1.Post;
end;

мот кто что получше предложит

[xxbesoxx]

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

Сделал так

var
    id:integer;
begin
    id:=adoquery1.Fields[0].AsInteger;
    adotable1.Edit;
    adoquery2.Close;
    adoquery2.SQL.Text:='update inkasso set sd_v_kl = 1 where s = id';
    adoquery2.Parameters[0].Value:=id;
    adoquery2.ExecSQL;
    adotable1.Post;
end;

мот кто что получше предложит

А если ExecSQL зачем потом Post ?

    adoquery2.ExecSQL;
    adotable1.Post;