Ошибка про выполнении SQL

[reihtmonbern]

Здравствуйте товарищи программисты у меня к вам вопрос использую ниже переведенный код он работает всё нормально но делфи ругается.

begin
 {DataModule3.ADOQuery37.SQL.Add('truncate table TORG'); }
   DataModule3.ADOQuery37.open;
  DataModule3.ADOQuery37.sql.Clear;
DataModule3.ADOQuery37.SQL.Add('DELETE from TORG');
DataModule3.ADOQuery37.Active:=True;
DataModule3.ADOQuery37.Close;
end;

я понимаю что делфи просто пишет что нельзя вернуть значения .
Но как сделать так что бы во время пользования приложением не выводилось это сообщение не знаю на рисунке второе снизу. заранее всем спасибо кто прочитал хотя бы мою тему..
БД ACCESS delphi 2010. ado.

[Аватар]

DataModule3.ADOQuery37.SQL.Add('DELETE from TORG');
//DataModule3.ADOQuery37.Active:=True ;    убрать
DataModule3.ADOQuery37.ExecSQL;

[Serge_Bliznykov]

"смешались в кучу кони, люди..."

вы зачем делаете Open и .Active := true ?!
Open - открыть набор данных, т.е. сделать запрос активным
.Active := true - сделать запрос активным, тем самым открыть набор данных.
это ОДНО и ТОЖЕ!
Это раз!

а во вторых, вы же в данном случае НЕ ОТКРЫВАЕТЕ набор данных, вы хотите ВЫПОЛНИТЬ команду. А для этого есть специальных метод .ExeсSQL!
вот его и надо вызывать!

begin
   DataModule3.ADOQuery37.Close; {это для перестраховки. Вдруг вы этим ADOQuery37 пользуетесь для выборки данных!
 Если нет - можно эту строчку убрать. Хотя, можно и оставить. Она безобидная...}
  DataModule3.ADOQuery37.sql.Clear;
  DataModule3.ADOQuery37.SQL.Add('DELETE from TORG'); {все данные из таблицы удаляете?! Не страшно?}
  DataModule3.ADOQuery37.ExecSQL;
end;