переменная в ALTER

[PazitifKO]

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

код попробовал:

procedure TForm1.Button1Click(Sender: TObject);
 var i:string;
begin

  i:=i+'1';
  ShowMessage(i);
 Query1.SQL.Clear;
 Query1.SQL.Add('ALTER TABLE main_database ADD COLUMN i');
 Query1.ExecSQL;
end;

но тогда имя столбца будет просто i.
Сори за глупый вопрос - но перерыл уже весь гугл и кучу справочников и не разобрался....


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

 Query1.SQL.Add('ALTER TABLE main_database ADD COLUMN '+i);

[PazitifKO]

Не работает так.
Если писать

Query1.SQL.Add('ALTER TABLE main_database ADD COLUMN '+i);

Это не верный синтаксис COLUMN.
Если писать правильно:

Query1.SQL.Add('alter table main_database add column colonka VARCHAR(50)'+i);

то запрос при i='1' выглядит так

alter table main_database add column colonka VARCHAR(50)1

соответственно на VARCHAR(50)1 тут же вылетает ошибка.

Хех) Если бы все было так просто - то я бы не писал на форум
Но спасибо и на этом. А еще идеи есть?
Или, что лучше, ссылка на книжку где это прочитать....

[Serge_Bliznykov]

Вы что - издеваетесь?!!

Вы что просили в первом посте?!

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

я Вам показал, как в запрос добавить переменную.
А уж то, что у Вас там 1 (Вы что, хотите добавить столбец с именем 1 ?! Так сразу могу сказать, у Вас это НЕ ПОЛУЧИТСЯ! Почитайте, что такое идентификаторы и каким образом они составляются!

Значит так.
1) чётко (для себя) формулируете, что Вам нужно.
2) создайте нужную ПРАВИЛЬНУЮ строчку запроса
3) сформируйте эту строчку в своём коде (согласно пунктам 1 и 2)

будут вопросы - обращайтесь.

[PazitifKO]

Все, разобрался) Спасибо

правильный код

procedure TForm1.Button1Click(Sender: TObject);
  var karta:String;
begin
 karta:=' Карта_'+Edit3.Text+' VARCHAR(10)';
 Query1.SQL.Clear;
 Query1.SQL.Add('alter table main_database add column'+karta);
 Query1.ExecSQL;
end;