Скачать: CL | DM;

добавление записей в 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, присваивание). Просто может, кто-то уже столкнулся, так подскажет, если добрый.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c