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

[poli-smen]

Сообщение от 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;

Во-первых переделай всё без использования конструкции with - сразу пропадёт много непонятных глюков.
Во-вторых строка которую я пометил стрелкой неправильная - создавать новый объект нужно не от уже существующего объекта, а от класса:

Код:

var
  table1: TADOTable;
.....
begin
.....
  table1:=TADOTable.Create(nil);
  try
    table1.Connection:=datamodule2.ADOConnection1;
    table1.TableName:=edit1.text;
    table1.Open;
    table1.Append;
    table1.FieldByName('Numb').AsString :=NewDoc.Edit1.Text;
    table1.Post;
  finally
    table1.Free;
  end;
.....
end;

[Scorpuha]

вот такую ошибку выдает

[poli-smen]

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

вот такую ошибку выдает

'123456' - это имя таблицы такое? А такая таблица точно существует?

[Scorpuha]

она создается, после нажатия кнопки.

[poli-smen]

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

она создается, после нажатия кнопки.

Лучше не использовать в качестве имён таблиц имена начинающиеся на цифру. Но если уже такое случилось, то такое имя нужно заключать в квадратные скобки (или в кавычки).

[Scorpuha]

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

[poli-smen]

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

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

Код:

table1.TableName:='['+edit1.text+']';

[Scorpuha]

таже самая ошибка.

[poli-smen]

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

таже самая ошибка.

Только что специально проверил - у меня нормально создаётся таблица и нормально в неё записываются значения - даже не обязательно было заключать имя таблицы в квадратные скобки. Единственно требует только непустого, уникального значения для поля ID (так как оно является первичным ключом).