Запись значений в таблицу

[Scorpuha]

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

begin

with datamodule2.ADOQuery1 do begin
SQL.Text:='CREATE TABLE '+edit1.text+' (ID INTEGER, Numb String, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';
 if ExecSQL<>0 then begin
  with datamodule2.ADOTable1.Create (nil) do begin
   TableName:=edit1.text;
datamodule2.ADOTable1.Insert;
    datamodule2.ADOTable1.FieldByName('Numb').AsString :=NewDoc.Edit1.Text;
   post;

[eval]

зачем весь этот взрыв клавишь?

[Stilet]

И не будут записываться.
Фишка в том что твой "воистину взрыв клавиш" не предусматривает для datamodule2.ADOTable1.Create самого важного - ConnectionString.
Короче, после 'CREATE TABLE скорми в datamodule2.ADOQuery1 команду INSERT с нужными параметрами. Где INSERT - команда SQL.

with datamodule2.ADOQuery1 do begin
SQL.Text:='CREATE TABLE '+edit1.text+' (ID INTEGER, Numb String, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';
 if ExecSQL<>0 then begin
    SQL.Text:='insert into  '+edit1.text+'(Numb) VALUES ('+QuotedStr(NewDoc.Edit1.Text)+')';
    ExecSQL;
    Commit;
 end;

[Dozent]

ХОчу знать зачем этот мазахизм? ПОчему имено так ? Чем вызвано столь нерациональное решение

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

[Scorpuha]

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

И не будут записываться.
Фишка в том что твой "воистину взрыв клавиш" не предусматривает для datamodule2.ADOTable1.Create самого важного - ConnectionString.
Короче, после 'CREATE TABLE скорми в datamodule2.ADOQuery1 команду INSERT с нужными параметрами. Где INSERT - команда SQL.

with datamodule2.ADOQuery1 do begin
SQL.Text:='CREATE TABLE '+edit1.text+' (ID INTEGER, Numb String, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';
 if ExecSQL<>0 then begin
    SQL.Text:='insert into  '+edit1.text+'(Numb) VALUES ('+QuotedStr(NewDoc.Edit1.Text)+')';
    ExecSQL;
    Commit;
 end;

вот ругается
[Error] NewDocument.pas(53): Undeclared identifier: 'Commit'

[Stilet]

Значит не Commit а post;

[Scorpuha]

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

begin

with datamodule2.ADOQuery1 do begin
SQL.Text:='CREATE TABLE '+edit1.text+' (ID INTEGER, Numb INTEGER, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';
 if ExecSQL<>0 then begin

  with datamodule2.ADOTable1.Create (nil) do begin
   ConnectionString:=datamodule2.ADOQuery1.ConnectionString;
   TableName:=edit1.text;
    SQL.Text:='insert into  '+edit1.text+'(Numb) VALUES ('+QuotedStr(NewDoc.Edit1.Text)+')';
    ExecSQL;
    post;

[Stilet]

Тебе нужен какой-то механизм для поля ID. Сделай его хоть автоинкрементным что-ли...
СУБД какая?

[Scorpuha]

Access, ADO

[Stilet]

Тогда кажется так:

'CREATE TABLE '+edit1.text+' (ID INTEGER counter(1,1), Numb INTEGER, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';

По идее в INSERT не нужно будет указывать это поле, оно само будет подставляться на единицу больше.