Изменение записей в базе данных

[Nephilim]

Я тут попробовал вот что вышло

В кнопке изменить:

adoquery1.Insert;
form4.ShowModal;
form4.Caption:='Изменение';

На новой форме едиты и кнопка выполнить. Для кнопки выполнить:
BDKG.ADOQuery1.FieldByName('Название').AsString:=Ename.Text;
BDKG.ADOQuery1.FieldByName('Дата_написания').AsInteger:=strtoint(EData.text);
BDKG.ADOQuery1.FieldByName('Имя_автора').AsString:=EFIO.Text;
BDKG.ADOQuery1.FieldByName('Место_нахождения').AsString:=EMN.Text;
BDKG.ADOQuery1.FieldByName('Музей').AsString:=EM.Text;
BDKG.ADOQuery1.FieldByName('Номер').AsInteger:=strtoint(Enumb.Text);
BDKG.ADOQuery1.UpdateRecord;
BDKG.DBGrid1.Update;
BDKG.Show;
close;

Но оно не изменяет а добавляет новый.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Nephilim]

соответственно присваиваю я эдитам

[Прик]

  BDKG.ADOQuery1.SQL.Text :=
    'update <здесь имя таблицы> set '+
        'Название = '+ QuotedStr(Ename.Text) +','+
        'Дата_написания =' + QuotedStr(EData.Text) +','+
        'Имя_автора = ' + QuotedStr(EFIO.Text) +','+
        'Место_нахождения = ' + QuotedStr(EMN.Text) +','+
        'Музей = ' + QuotedStr(EM.Text) +','+
        'Номер = ' + QuotedStr(Enumb.Text) +
     ' where <ID> = '+IntToStr(<значение идентификатора>);
   BDKG.ADOQuery1.ExecSQL;

   BDKG.DBGrid1.DataSource.DataSet.Close;
   BDKG.DBGrid1.DataSource.DataSet.Open;

ADOQuery1 здесь должно быть не тем, который поставляет данные в DBGrid.
ID - здесь идентификатор, однозначно определяющий строку (должен быть в таблице).

[Nephilim]

Спасибо за помощь