Создание таблицы запросом

[nastena_r_v]

День добрый, подскажите, как можно реализовать запрос на создание таблицы, в которой должно содержаться 38 полей, так много потому, что это форма табеля, рассчитанная на 31 день, плюс дополнительные поля...
Проблема в том, что если писать все в одну строку, то ошибка выходит, пишет, что длинная строка. А как расписать запрос на несколько строк, я не знаю, потому что в SQL не сильна...

PHP код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  if not (Edit1.Text = '') then
    begin
      if ComboBox1.Items.IndexOf(Edit1.Text) = -1 then
        begin
          DataModule2.ADOQuery1.SQL.Clear;
          DataModule2.ADOQuery1.SQL.Add('CREATE TABLE '+ Edit1.Text + '([№] Counter, [ФИО] String(40),[id1] int,[id2] float,[id3] float,[id4] float,[id5] float,[id6] float,[id] float,[id8] float,[id9] float,[id10] float,[id11] float,[id12] float,[id13] float,[id14] float,[id15] float,[id16] float,[id17] float,[id18] float,[id19] float,[id20] float,[id21] float,[id22] float,[id23] float,[id24] float,[id25] float,[id26] float,[id27] float,[id28] float,[id29] float,[id30] float,[id31] float,[id32] float,[id33] float,[id34] float,[idx] float,PRIMARY KEY ([№]))');
          DataModule2.ADOQuery1.ExecSQL;
          DataModule2.ADOConnection1.GetTableNames(ComboBox1.Items);
          ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Edit1.Text);

        end
      else ShowMessage('База уже существует');
    end
  else ShowMessage('Имя базы не задано');
end; 


[Аватар]

Программное создание таблиц это плохо, как минимум не проработана структура базы.
А длинную строку - SQL.Add несколько раз с кусками запроса

[eval]

Имя базы не задано

при чем тут база если создаете таблицу? все верх ногами

[superedward]

with DataModule2.ADOQuery1.SQL do begin
 Add('CREATE TABLE '+ Edit1.Text + '([№] Counter, [ФИО] String(40),');
 Add('[id1] int,[id2] float,[id3] float,[id4] float,[id5] float,');
//и т.д.
end;

[nastena_r_v]

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

при чем тут база если создаете таблицу? все верх ногами

Эта строка не относится к данному сообщению, и если что вопрос у меня был другой, по умничать я тоже могу, лучше бы реально на вопрос ответили.

[nastena_r_v]

Сообщение от Аватар

Программное создание таблиц это плохо, как минимум не проработана структура базы.
А длинную строку - SQL.Add несколько раз с кусками запроса

Ну видите ли, другого способа я не знаю как можно создавать базы по запросу пользователя.
А на счет "запроса кусками" так поля все будут в той же последовательности? Это не будет считаться неправильной записью?

[nastena_r_v]

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

with DataModule2.ADOQuery1.SQL do begin
 Add('CREATE TABLE '+ Edit1.Text + '([№] Counter, [ФИО] String(40),');
 Add('[id1] int,[id2] float,[id3] float,[id4] float,[id5] float,');
//и т.д.
end;

О... Большое спасибо за наглядный пример =)

[nastena_r_v]

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

with DataModule2.ADOQuery1.SQL do begin
 Add('CREATE TABLE '+ Edit1.Text + '([№] Counter, [ФИО] String(40),');
 Add('[id1] int,[id2] float,[id3] float,[id4] float,[id5] float,');
//и т.д.
end;

Сделала по Вашему предложению:

PHP код:

 with DataModule2.ADOQuery1.SQL do begin
 Add('CREATE TABLE '+ Edit1.Text + '([№] Counter, [ФИО] String(40)');
 Add('[id1] int,[id2] float,[id3] float,[id4] float,[id5] float');
 Add('[id6] float,[id] float,[id8] float,[id9] float,[id10] float ');
 Add('[id11] float,[id12] float,[id13] float,[id14] float,[id15] float');
 add('[id16] float,[id17] float,[id18] float,[id19] float,[id20] float');
 add('[id21] float,[id22] float,[id23] float,[id24] float,[id25] float');
 add('[id26] float,[id27] float,[id28] float,[id29] float,[id30] float');
 add('[id31] float,[id32] float,[id33] float,[id34] float,[idx] float,PRIMARY KEY ([№]))'); 


Но выходит ошибка в синтаксисе инструкции Create Table