Программное добавление и удаление полей

[grh]

Привет, форумчане. У меня такая проблема:
Есть mdb-файл, а в нем таблица "Табл1". На форме, созданной в Delphi, есть компонент ADOTable1: TADOTable;, который связан с "Табл1".
Вопросы:
1. Как программно добавить новые поля в таблицу "Табл1"?
2. Как программно удалить некоторые поля из таблицы "Табл1"?

[Gulik]

через adoquery делай

1:

ALTER TABLE Табл1 ADD MyField Numeric (10,2)

2:

ALTER TABLE Табл1 DROP COLUMN Numeric

[grh]

Спасибо. Буду пробовать.

После выполнения процедуры:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text:='ALTER TABLE Табл1 ADD MyField Numeric (10,2)';
  ADOQuery1.Active:=true;
end;

появляется сообщение

"Project Project1.exe raised exception class EOleException with message 'Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции'.".

Что же делать?

[Gulik]

procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOQuery1.SQL.Text := 'ALTER TABLE Табл1 ADD MyField Numeric (10,2)' ;
   ADOQuery1.ExecSQL ;
end;

ADOQuery1.Active := True ; - используется только в SELECT
в остальных случаях ADOQuery1.ExecSQL ;

===================================
Не забывайте оставлять Отзыв (Иконка весы)

[grh]

Спасибо, Gulik. Теперь все работает отлично.