операция не допускается если объект открыт

[Student-Koder]

скажите что не так в коде:

procedure TForm1.Button1Click(Sender: TObject);
begin
If Application.MessageBox('Вы действительно хотите очистить таблицу?','Внимание!',MB_OKCANCEL)=id_OK
  then
    begin

    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.TEXT:=('DROP table data;');
    ADOQuery1.ExecSQL;

    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.add('CREATE table data(id int auto_increment primary key, dlina real not null default 0, diametr real not null default 0, moment real not null default 0, massa real not null default 0);');
    ADOQuery1.ExecSQL;

    end;
 //ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=.\db\db;Extended Properties="DSN=db;PWD=;";Initial Catalog=db';
ADOConnection1.ConnectionString:='FILE NAME=.\db\db.udl';
ADOConnection1.Connected:=True;
ADOConnection1.Open;
ADOTable1.Active:=true;
end;

[Gulik]

Подскажите и нам на что жалуется Делфи
Или что-то вас лично не устраивает

А вообще если ты хочешь просто очистить таблицу от записей тебе вовсе не нужно её уничтожать, а затем создавать заново...

procedure TForm1.Button1Click(Sender: TObject);
begin
if Application.MessageBox('Вы действительно хотите очистить таблицу?','Внимание!',MB_OKCANCEL)=id_OK  then  begin
    // ADOQuery1.SQL.Clear; < - Это тут тоже лишнее т.к. ADOQuery1.SQL.TEXT заменяет весь текст запроса на 'TRUNCATE TABLE data'
    ADOQuery1.Close ;
    ADOQuery1.SQL.TEXT := ('TRUNCATE TABLE data') ;
    ADOQuery1.ExecSQL ;
    end;
end;

[Stilet]

на что жалуется Делфи

Видимо на это:

ADOQuery1.ExecSQL;

Посему перед нужно выполнить

ADOQuery1.Close;

ADOConnection1.ConnectionString:='F ILE NAME=.\db\db.udl';
ADOConnection1.Connected:=True;
ADOConnection1.Open;

Это так переоткрывается база? Зачем переконнекчиваться?

[Student-Koder]

делфи то молчит, а вот прога выдаёт ошибку "операция не допускается если объект открыт", но дело своё делает.

Посему перед нужно выполнить
Код:
ADOQuery1.Close;

перед каким именно ADOQuery1.ExecSQL по счету?

Это так переоткрывается база? Зачем переконнекчиваться?

ну, если вы скажете что связь с бд не потеряется, я поверю

[Stilet]

перед каким именно ADOQuery1.ExecSQL по счету?

Да в самом начале

если вы скажете что связь с бд не потеряется

А чего ей теряться? Ты то не связь разрываешь а всего лишь набор данные другой запрашиваешь.

[Gulik]

Сообщение от Student-Koder

ну, если вы скажете что связь с бд не потеряется, я поверю

У тебя не связь теряется, а запрос... SELECT
В конечном счете сделай так...

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Application.MessageBox('Вы действительно хотите очистить таблицу?','Внимание!',MB_OKCANCEL)=id_OK  then  begin
      ADOQuery1.Close ;
      ADOQuery1.SQL.TEXT := ('TRUNCATE TABLE data') ;
      ADOQuery1.ExecSQL ;
      ADOQuery1.Close ;
      ADOQuery1.SQL.TEXT := ('SELECT * FROM data') ;
      ADOQuery1.Open ;
   end;
end;

И подключись к базе не через ADOTable1, а через ADOQuery1 (в свойстве SQL впиши эту строку "SELECT * FROM data"), для этого в DataSource.DataSet укажи ADOQuery1 и у тебя точно будет все работать

[Student-Koder]

Да, значения с БД удаляет, только таблица не обновляется. Нужен Refresh? если да, то в какую часть кода

[Student-Koder]

разобралась. Refresh не пригодился. ВСЕМ СПАСИБО