БД+ADO+Access=ошибка

[Scorpuha]

Вот код по нажатию кнопки, таблица создается, но вылетает ошибка о том что такой-то столбец отсутствует.вот текст ошибки "ADOQuery1: field 'Numb' not found."

procedure TNewDoc.Button1Click(Sender: TObject);


begin
datamodule2.ADOQuery1.Close;
{datamodule2.ADOQuery1.Open;
datamodule2.ADOQuery1.Active:=false;
datamodule2.ADOQuery1.Active:=true;
DataModule2.ADOQuery1.Edit;}
   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))';
ExecSQL;

        DataModule2.ADOQuery1.FieldByName('Numb').AsString := NewDoc.Edit1.Text;
        DataModule2.ADOQuery1.FieldByName('Obj').AsString := NewDoc.DBLookupComboBox1.Text;
        DataModule2.ADOQuery1.FieldByName('Data').AsDateTime := Date;
        DataModule2.ADOQuery1.FieldByName('Vremya').AsDateTime := Now;
        DataModule2.ADOQuery1.Post;
        DataModule2.ADOQuery1.Refresh;
    Close;
end;
end;

[Stilet]

Наверное потому что после создания таблицу нужно открывать (догадка)

SQL.Text:='CREATE TABLE '+edit1.text+' (ID INTEGER, Numb INTEGER, Obj VARCHAR(255), Data Date, Vremya Date, Id_Tovara INTEGER, PRIMARY KEY(ID))';
ExecSQL;

sql.text:='select * from '+edit1.text;
Active:=true;

        DataModule2.ADOQuery1.FieldByName('Numb').AsString := NewDoc.Edit1.Text;

[Scorpuha]

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

Наверное потому что после создания таблицу нужно открывать (догадка)

Active:=true;

добавил строчку, теперь missing SQL property

[Stilet]

добавил строчку

А почему только одну "строчку"?

[Scorpuha]

и первую тоже добавил

datamodule2.ADOQuery1.Close;
datamodule2.ADOQuery1.open;
{datamodule2.ADOQuery1.Open;
datamodule2.ADOQuery1.Active:=false;
datamodule2.ADOQuery1.Active:=true;
DataModule2.ADOQuery1.Edit;}
   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))';
ExecSQL;
sql.text:='select * from '+edit1.text;
     Active:=true;

        DataModule2.ADOQuery1.FieldByName('Numb').AsString := NewDoc.Edit1.Text;

[Stilet]

Тогда не знаю. Я предпочитаю редактировать SQL запросами.

[Scorpuha]

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

Я предпочитаю редактировать SQL запросами.

можно ваш вариант?

[Stilet]

Можно:

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))';
 ExecSQL;

sql.text:='insert into '+edit1.text+' (Numb) values ('+QuotedStr(NewDoc.Edit1.Text)+')';
 ExecSQL;
end;

[Toxa]

для добавления/редактирования надо включить соответствующий режим
insert/edit

Active:=true;
insert;
FieldByName('Numb').AsString := NewDoc.Edit1.Text;

[Scorpuha]

Stilet, блин, чето не получается. таже ошибка. вы непрочь если проект скину.