[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;