Ошибка в ADO Query при добавлении новых данных

[reihtmonbern]

Доброго времени суток, форумчане у меня к вам вопрос?!
Работаю в Delphi 2010 с таблицей в базе данных Access 2003 через ADO.
Для добавления новых данных использую вот этот код :

procedure TForm4.BitBtn17Click(Sender: TObject);
begin
With datamodule3.ADOQuery37 do begin
  Connection:=datamodule3.ADOConnection1;
  insert;
  FieldByName('Наименование').Value:=DBEdit3.Text;
 post;
  end;
  With datamodule3.ADOQuery37 do begin
  Connection:=datamodule3.ADOConnection1;
  Edit;
  FieldByName('цена').Value:=DBEdit4.Text;
 post;
  end;
   With datamodule3.ADOQuery37 do begin
  Connection:=datamodule3.ADOConnection1;
  Edit;
  FieldByName('КОД_ОКЕИ').Value:=DBEdit6.Text;
 post;
  end;
  With datamodule3.ADOQuery37 do begin
  Connection:=datamodule3.ADOConnection1;
  Edit;
  FieldByName('масса_брутто').Value:=DBEdit8.Text;
 post;
  end;
  LabeledEdit3.text:=DBEdit2.Text;
  LabeledEdit2.text:=DBEdit5.Text;
  LabeledEdit4.text:=DBEdit1.Text;
end;

он отлично работает всё хорошо получается
но потом мне необходимо всё удалить из таблицы и я использую для этого нижеследующий код :

procedure TForm4.BitBtn18Click(Sender: TObject);
begin
  DataModule3.ADOQuery37.Close;
  DataModule3.ADOQuery37.sql.Clear;
  DataModule3.ADOQuery37.SQL.Add('DELETE from TORG'); {все данные из таблицы удаляете?! Не страшно?}
  DataModule3.ADOQuery37.ExecSQL;
end;

этот код прекрасно работает и всё удаляет оставляя пустую таблицу вот но потом мне надо обновить таблицу и заново внести в неё новые данные (Данная таблица используется для временного хранения данных при новой последующей операции над ней она должна быть пуста ) .
Так вот я делаю так :

procedure TForm4.BitBtn16Click(Sender: TObject);
begin
DataModule3.ADOQuery37.Edit;
DataModule3.ADOQuery37.post;
DataModule3.ADOQuery37.Refresh;
end;

и в итоге получаю ошибку, приходиться выключать программу и заново её запускать тогда всё работает короче я могу провернуть только один раз такой алгоритм работы над данными и заново приходиться всё включать это не хорошо подскажите что я не так сделал в чём проблема а ?

[Stilet]

Правильно получаешь. После ExecSQL тебе нужно его окрыть методом Open, указав запрос. Вот только потом уже можно работать с компонентом.

[Serge_Bliznykov]

согласен с ответом Stilet
а я бы рекомендовал не жадничать, не экономить на датасетах и для удаления использовать отдельный датасет!

[Аватар]

Connection:=datamodule3.ADOConnecti on1;

А это зачем каждый раз? В данном случае просто пустое действие. Но если вдруг и на самом деле указатель на другой компонент будет, то датасет просто закроется и опять ...on a closed dataset

[reihtmonbern]

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

Правильно получаешь. После ExecSQL тебе нужно его окрыть методом Open, указав запрос. Вот только потом уже можно работать с компонентом.

Так что ли :

procedure TForm4.BitBtn16Click(Sender: TObject);
begin
DataModule3.ADOQuery37.Open;
DataModule3.ADOQuery37.SQL.Add('select * from TORG');
DataModule3.ADOQuery37.Edit;
DataModule3.ADOQuery37.post;
DataModule3.ADOQuery37.Refresh;
end;

??? КАК правильно то надо я чего то не очень понял !?

[Serge_Bliznykov]

нет.
сначала запрос нужно поместить. а уже потом открывать:

DataModule3.ADOQuery37.Close; {на всякий случай}
DataModule3.ADOQuery37.SQL.Clear; {если испльзуете ADD - тогда нужно обязательно предварительно стереть старый текст!}
DataModule3.ADOQuery37.SQL.Add('select * from TORG');
DataModule3.ADOQuery37.Open;
....

p.s. а зачем на пустом датасете выполнять Edit и Post ?!!! Вы же удалили ВСЕ записи из таблицы, что Вы собрались редактировать методом Edit ?! Не удивлюсь, если Вы получите ещё другую ошибку!

p.p.s. Не могу понять, чего Вы пытаетесь добиться, какую именно задачу решаете таким кодом?!