добавление записей в Access (ADO)

← →
Dream (2004-06-10 11:39) [0]

Не добавляются записи в таблицу Access...По закрытию формы должно происходить вот что:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, j: Byte;
CurrentRating: Word;
begin
ADOTable2.Open;
for i := 1 to 150 do
if aRegisteredClient[i] <> 0 then //если студент зарегистрировался, то
begin
ADOTable2.Append;
ADOTable2.Edit;
ADOTable2.FieldByName("ID").AsInteger := aRegisteredClient[i]; //добавляем его код в это поле
ADOTable2.FieldByName("Mark").AsInteger := aResponsedClient[i]; //его оценку - в это
CurrentRating := 0;
for j := 1 to aCountOfQuest do
Inc(CurrentRating, AllDataQuest[i, j]);
ADOTable2.FieldByName("Total").AsInteger := CurrentRating; //сумма баллов за весь опрос
ADOTable2.FieldByName("Date").AsDateTime := TDateTime(Now); //время проведения опроса
ADOTable2.Post
end;
ADOTable2.Close
end;
Но...Почему-то ничего не добавляется. Вы не знаете, почему?

← →
sniknik © (2004-06-10 11:58) [1]

> ADOTable2.Append;
> ADOTable2.Edit;
одно из двух лишнее.

> Вы не знаете, почему?
никто не регистрируется? или "регистратор" сломан?

← →
AleXqwq © (2004-06-10 12:13) [2]

Poprobui ADOquery i SQl:"insert into <Table name>..."

← →
AleXqwq © (2004-06-10 12:19) [3]

Poprobui ADOquery i SQl:"insert into <Table name>..."

← →
Dream (2004-06-10 12:23) [4]

Точно регистрируются и регистратор НЕ сломан. А Edit было уже просто от отчаяния добавлено.

← →
Dream (2004-06-10 12:26) [5]

А с ADOQuery связываться бы не хотелось бы. Так ведь тоже можно (через Append, присваивание). Просто может, кто-то уже столкнулся, так подскажет, если добрый.

добавление записей в Access (ADO) Найти похожие ветки