создание колонки

[Михаил Юрьевич]

Подскажите что я делаю не так при создании колонки

  form1.Query1.Close;
   form1.Query1.SQL.Clear;

  form1.Query1.SQL.Text:='ALTER TABLE  Book  ADD  fantastik  STRING(100)';

 form1.Query1.Open;

При добавлении выдает во такую ошибку: Token '(' expected,but 'fantastik' found at line1,column 23-Native error:30226

[_SERGEYX_]

Вместо
form1.Query1.Open;
нужно
form1.Query1.ExecSQL;

[Михаил Юрьевич]

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

Вместо
form1.Query1.Open;
нужно
form1.Query1.ExecSQL;

Не помогло, та же ошибка вылетает.

[Аватар]

Не знаю что там за СУБД, но можно попробовать варианты (и само собой ExecSQL)

ALTER TABLE Book ADD fantastik VARCHAR(100) NOT NULL
ALTER TABLE Book ADD fantastik VARCHAR(100) NULL

А вообще, что за причуда менять структуру таблиц из дельфей? Других способов нет?

[Михаил Юрьевич]

Извените за неполное описание. У меня Absolute database . На форме лежит Button,ABSDatabase и ABSQuery1

procedure TCopy_Pass.FormCreate(Sender: TObject);
begin
 
form1.ABSDatabase1.DatabaseFileName := ExtractFilePath(Application.ExeName) + DataBaseFileName;
form1.ABSDatabase1.DatabaseName:='BAZA';
form1.ABSDatabase1.Connected:=True;
form1.ABSQuery1.DatabaseName:='BAZA';
end;
 
procedure TCopy_Pass.Button1Click(Sender: TObject);
begin
  form1.ABSQuery1.Close;
  form1.ABSQuery1.SQL.Clear;
 
  form1.ABSQuery1.SQL.Text:='ALTER TABLE  Book  ADD  fantastik  string(100)';
 
form1.ABSQuery1.ExecSQL;
end;

И Опять та жа ошибка

[Аватар]

Ну вот гугл мне подсказал

ALTER TABLE  Book  ADD  (fantastik  string(100))

http://www.componentace.com/sql/alter-table-add.htm

[Михаил Юрьевич]

Спасибо конечно что время на меня теряете, но я на сайте absolute database уже 3 дня сижу, и такой вариант как Вы нашли тоже пробовал,только ошибка другая. Ладно, спасибо всем, буду разбираться.

Да,а к стати не подскажите как еще можно добавлять колонки не в делфи?

[Аватар]

А в комплекте установки разве нет утилиты-конструктора таблиц? Этой СУБД не пользуюсь, но слышал что есть такая утилита

[Михаил Юрьевич]

Конструктор таблицы есть,но нужно что бы пользователь програмно мог добавить колонку.
Да там на сайте у них все понятно, но вот делаю что то не так, а что не так,не понимаю. вроде бы сделай запрос " ALTER TABLE Book ADD (fantastik string(100))"
и все. А все равно выдает ошибку. Я уже по разному пробовал, все равно выскакивают ошибки,только разные.

Если как у них делать запрос то ошибка такая : symbol expected but . А какой символ ожидали не пойму

[_SERGEYX_]

но слышал что есть такая утилита

Более того, к утилите в придачу даются исходники. И примеры sql запросов.

У меня запрос

alter table Book add (fantastik string(100))

выполнился нормально, но таблица должна быть закрыта во всех компонентах absTable или открыта, в монопольном режиме

Table1.Exclusive:= True;

Там же в исходниках можно посмотреть как создают поля авторы, что-то типа

Table.FieldDefs.Update;
Table.FieldDefs.Add('fantastik',ftString,100,False);

Точно не помню... посмотри сам.