[cyborgg4655]

Нужно чтобы создавалась таблица именем которое введено в Edit2.Text. Вот мой код:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var asd : string;
begin
asd := Edit2.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE asd (MyField char(25), swe char(25))';
ADOQuery1.ExecSQL;
end;

[M.A.D.M.A.N.]

Press F1 и смотри раздел по ф-ии Format.

[cyborgg4655]

Я не нашел в функции формат ничего подходящего для моей задачи. Просто можете сказать как нужео исправить эту строку если не сложно.

Код:

ADOQuery1.SQL.Text:= 'CREATE TABLE asd (MyField char(25), swe char(25))

[BBBCat]

Мне кажется ты не передаёшь переменную asd

[cyborgg4655]

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

Мне кажется ты не передаёшь переменную asd

Вот именно что она не передается, у меня ошибка в синтаксисе. Создает только таблицу с названием asd, а я указал что asd это значение Edit2.Text.

[M.A.D.M.A.N.]

Вы просто не удосужились толком почитать что там написано.
Вот ваше решение:

Код:

ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (MyField char(25), %s char(25)), [asd, swe]);

Совсем народ обленился, справку лень почитать и своей головой подумать.

А теперь идите куда подальше, задрали такие как вы, со своим "дайте код, блеать". (Можно на винград, там озаloopливают моментально)

[cyborgg4655]

Большое спасибо!! Просто я до конца не разобарлся с функцией формата, а с теперь я полность разобрался, за это двойное спасибо)
Вот мой итоговый код, я думаю пригодится кому нибудь на заметку:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var asd : string;
begin
asd := Edit2.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= Format('CREATE TABLE %s (MyField char(25), swe char(25))', [asd]);
ADOQuery1.ExecSQL;
end;