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

[Vad33]

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

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

Через ADOQuery нужно работать запросами.
Иначе нужно использовать ADOTable

[Stilet]

вы непрочь если проект скину.

Скинь, но у меня Делфи нет. Разве что на глаз могу глянуть.
Впрочем у других Делфи есть - может кто и проверит.

[Scorpuha]

вот, скинул

[eval]

Через ADOQuery нужно работать запросами.
Иначе нужно использовать ADOTable

ни того ни другого ненадо

[Stilet]

Проверить мне не на чем, криминала не вижу.
Значит нужно пробовать анализировать результаты запросов или действительно использовать Table

procedure TNewDoc.Button1Click(Sender: TObject);


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 TAdoTable.Create do begin
   ConnectionString:=datamodule2.ADOQuery1.ConnectionString;
   TableName:=edit1.text;
   append;
    FieldByName('Numb').AsString := NewDoc.Edit1.Text;
   post;
   free;
  end;
 end;

end;

end;

Здесь при создании таблицы создается ADOTable, связывается с тем же источником что и ADOQuery и в таблицу добавляется запись с данными. Не проверял. По мысли должно работать.
ExecSQL по идее должен вернуть не ноль если операция запроса завершена удачно, но это не всегда так, так что насчет условия (ставить его или нет) думай сам.

[Scorpuha]

[Error] NewDocument.pas(47): Undeclared identifier: 'TAdoTable'
[Error] NewDocument.pas(49): Undeclared identifier: 'TableName'

вот ошибки, как их (переменные) прописать?

[Stilet]

Ну кинь на Датамодуль адотабле и используй его, не забыв задать тот же коннект что и для Кверика.

[Scorpuha]

ээээ, дальше вот что [Error] NewDocument.pas(47): Not enough actual parameters

[Stilet]

Дальше это где?

[Scorpuha]

вот тут

with TAdoTable.Create do begin