Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Dream © (2004-06-10 11:39:00)
Не добавляются записи в таблицу 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;
Но...Почему-то ничего не добавляется. Вы не знаете, почему?

Dream (2004-06-10 12:26:00) [1]
А с ADOQuery связываться бы не хотелось бы. Так ведь тоже можно (через Append, присваивание). Просто может, кто-то уже столкнулся, так подскажет, если добрый.

Dream (2004-06-10 12:23:00) [2]
Точно регистрируются и регистратор НЕ сломан. А Edit было уже просто от отчаяния добавлено.

AleXqwq (2004-06-10 12:19:00) [3]
Poprobui ADOquery i SQl:"insert into <Table name>..."

AleXqwq (2004-06-10 12:13:00) [4]
Poprobui ADOquery i SQl:"insert into <Table name>..."

sniknik (2004-06-10 11:58:00) [5]
> ADOTable2.Append;
> ADOTable2.Edit;
одно из двух лишнее.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »