Вставка Записи В Таблицу С Помощью Adoquery

[EkaterinaKI]

здравствуйте, вставляю строчку в таблицу. запись вставляется, но при этом Delphi вылетает с ошибкой:
Project Project1.exe raised exception class EDatabaseError with message 'ADOQuery2: CommandText does not return a result set'.

подскажите пожалуйста как избежать ошибки?
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into har_materialov(id_mat, ed, stoimost, rash, cvet) values id_mat, :ed, :stoimost, :rash, :cvet)');
ADOQuery2.Parameters.ParamByName('id_mat').Value:=edit1.Text;
ADOQuery2.Parameters.ParamByName('ed').Value:=edit2.Text;
ADOQuery2.Parameters.ParamByName('stoimost').Value:=edit3.Text;
ADOQuery2.Parameters.ParamByName('rash').Value:=edit4.Text;
ADOQuery2.Parameters.ParamByName('cvet').Value:=edit5.Text;
ADOQuery2.Open;
ADOQuery2.Refresh;
end;

 

[timondrik]

здравствуйте, вставляю строчку в таблицу. запись вставляется, но при этом Delphi вылетает с ошибкой:
Project Project1.exe raised exception class EDatabaseError with message 'ADOQuery2: CommandText does not return a result set'.

подскажите пожалуйста как избежать ошибки?
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('insert into har_materialov(id_mat, ed, stoimost, rash, cvet) values id_mat, :ed, :stoimost, :rash, :cvet)');
ADOQuery2.Parameters.ParamByName('id_mat').Value:=edit1.Text;
ADOQuery2.Parameters.ParamByName('ed').Value:=edit2.Text;
ADOQuery2.Parameters.ParamByName('stoimost').Value:=edit3.Text;
ADOQuery2.Parameters.ParamByName('rash').Value:=edit4.Text;
ADOQuery2.Parameters.ParamByName('cvet').Value:=edit5.Text;
ADOQuery2.Open;
ADOQuery2.Refresh;
end;

Если я не ошибаю, то здесь одновременно отправляется сразу два запроса на добавление строки, просто в разных вариантах. Один из вариантов удали и всё будет пучком.