TIBQuery & Firebird

[Lion-Tiger]

мне нужно программно добавлять в базу Firebird новые колонки, пробовал создавать хранимую процедуру в самой базе, но она не дает использовать ALTER TABLE(если кто знает - объясните, почему, может что не так делаю?) поэтому пытаюсь через IBQuery, но если делать SQL-запрос с параметрами, то выдает ошибку:

Dynamic SQL Error
SQL error code = -104
Token unknown - line 2, column 5
?

Запрос

alter table TABLE_MAIN
add :pname integer

Пытался без параметров, получилось - добавил новую колонку - "1" но теперь, другой IBQuery, который делает выборку нужных полей перестает видеть эту новую колонку, тоесть жму "Add all fields", а он добавляет только те, что были и новой там нет....

Помогите решить проблему, хотя бы чтобы прога видела добавленные колонки

[soleil@mmc]

кстати, такой вопрос где-то месяц назад задавали уже

Сообщение от Lion-Tiger

мне нужно программно добавлять в базу Firebird новые колонки, пробовал создавать хранимую процедуру в самой базе, но она не дает использовать ALTER TABLE(если кто знает - объясните, почему, может что не так делаю?)

здесь только через execute statement (см. ибейзовские/фбердовые доки)
обычным способом можно добавлять только если название колонки заранее известно (например, это будет процедура создания таблиц БД - хотя скрипт для этого больше подходит)

Сообщение от Lion-Tiger

Запрос

alter table TABLE_MAIN
add :pname integer

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

IBQuery.Text:=format('alter table TABLE_MAIN add %s integer;', [your_table_name]);

[Lion-Tiger]

Я немного нуп, но что такое макрос и как им пользоваться и что за пунктуация?
И что здесь подразумевается под скриптом?

[soleil@mmc]

Сообщение от Lion-Tiger

Я немного нуп, но что такое макрос и как им пользоваться и что за пунктуация?
И что здесь подразумевается под скриптом?

пунктуация

макрос

скрипт

[Lion-Tiger]

ладно, сделал макросом, но выдает:

Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 29
integer

Вот сам код:

begin
     ibquery1.Close;
     ibquery3.SQL.Clear;
     ibquery3.SQL.Add(format('alter table TABLE_MAIN add %s integer;', [edit1.Text]));
     try
     ibquery3.ExecSQL;
     ibtransaction1.CommitRetaining;
     except
     on e:exception do memo1.Text:=e.Message;
     end;
     ibquery1.Open;
end;

[soleil@mmc]

отлови SQLMonitor-ом то что к нему приходит перед ошибкой

[Lion-Tiger]

А как?????

[soleil@mmc]

запускаешь SQLMonitor, нажимаешь ему на кнопочку старт, потом запускаешь свою приладу и жмешь кнопу/пункт меню, которые запускают на выполнение твою процедуру вставки колонки
потом топаешь в SQLMonitor и копируешь код, который пришел в него

[Lion-Tiger]

о! нашел, я просто не знал где лежит монитор, щас просканирую
только вот кнопка старт - выключена, может глюк какой??