[Dark_Angel79]

Прошу сразу не пинать. Я только учусь Имеется база данных. На форму в Делфи установлены Tabel1, DataSource1, DBGrid1, Database1. Подскажите, как к уже готовой базе программно добавить один или несколько столбцов. БД класса Paradox

[lmikle]

выполнить запрос вида:

Код:

ALTER TABLE [TableName]
ADD [ColumnName] [ColumnType] [ColumnConstraints]

То, что в кв. скобках - то, что ты должен указать. Единственное, что можно не указывать - ограничения (типа NOT NULL, UNIQUE и т.д. - последнее заскобенное)

[Dark_Angel79]

Это SQL запрос?
Установил SQL компоненты. Можно ка нибудь через SQL?

[Dark_Angel79]

Может я что то не так делаю... ALERT неизвестный идентификатор

[windaws]

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

Может я что то не так делаю... ALERT неизвестный идентификатор

не ALERT а ALTER

[Dark_Angel79]

Исправил

Вот кусок программы:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Active:=false;
Table1.Close;
Table1.TableName:='foo';

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('ALTER TABLE FOO ADD column SSS STRING NOT NULL UNIQUE');
Query1.ExecSQL;

end;

при нажатии на кнопку появляется сообщение "Capability not supported"

[lmikle]

База-то какая?

[Dark_Angel79]

Тип PARADOX. Название: FOO.db

[Dark_Angel79]

А если пробовать создавать базу с нуля средствами SQL, может тогда будут столбцы добавляться...

[TOJluK]

Во первых, эти 2 строчки равносильны, т.е. можно оставить одну из них

Код:

Table1.Active:=false;
Table1.Close;

Перед выполнением запроса убедитесь, точно ли вы не работаете с таблицами другими компонентами одновременно с запросом. Т.е. перед ExecSQL закройте все активные Table. И проверте нет ли *.LCK файлов.

Да и в запросе ошибка, попробуйте так:

Код:

Query1.SQL.Add ('ALTER TABLE FOO ADD SSS VARCHAR(20) NOT NULL UNIQUE');

[TOJluK]

Странно, но оно действительно не работает )))
Поле новое добавляет, а вот с уникальным ключем уже не хочет. Т.е. так работает:

Код:

Query1.SQL.Add ('ALTER TABLE FOO ADD SSS VARCHAR(20)');

Может кто еще что подскажет по этому поводу.