Delphi+Access: ADOTable

[Пепел Феникса]

справку не отменял никто.

[BanzoO]

Простите уже меня) последний вопрос.
1й раз нажимаешь обновляет сразу, потом с 2х нажатий 3х и тд.

ADOQuery2.Close;
ADOQuery2.SQL.Text:='select * from info';
ADOQuery2.Open;
Label17.Caption:=ADOQuery2.FieldByName('Группа').AsString;
Label18.Caption:=ADOQuery2.FieldByName('Специальность').AsString;
Label19.Caption:=ADOQuery2.FieldByName('Деканат').AsString;
Label20.Caption:=ADOQuery2.FieldByName('Курс').AsString;

[Serge_Bliznykov]

1й раз нажимаешь обновляет сразу, потом с 2х нажатий 3х и тд

не понятно, что у Вас происходит "с двух нажатий, с трёх и т.д."

Может быть, потрудитесь поконкретнее описать, что Вы делаете, что получаете и что ожидаете получить.
Код нормальный. Должен получать ВСЕ записи из таблицы info,
и в Label17-20 отображать значение ПЕРВОЙ записи из таблицы info...

[BanzoO]

есть кнопка.
она из 4 Edit заносит значение в базу.
+ делает запрос на обновление 4 лейбелов.
бывает с 3х нажатий обновляются ллейбелы, бывает с 2х.

+ я работаю только с 1й строчкой таблицы.

[Serge_Bliznykov]

она из 4 Edit заносит значение в базу.
+ делает запрос на обновление 4 лейбелов.

давайте полностью код, который на кнопке,
посмотрим что там творится..

[Stilet]

бывает с 3х нажатий обновляются ллейбелы, бывает с 2х.

А ты что, судя по коду постоянно берешь только первую запись?

[BanzoO]

тапками не кидайтесь

ADOTable1.Edit;
ADOTable1.FieldByName('Группа').Value := Edit3.Text;
ADOTable1.FieldByName('Специальность').Value := Edit2.Text;
ADOTable1.FieldByName('Деканат').Value := Edit4.Text;
ADOTable1.FieldByName('Курс').Value := Edit5.Text;
ADOTable1.Post;

Edit5.Text:='';
Edit4.Text:='';
Edit3.Text:='';
Edit2.Text:='';

ADOQuery2.Close;
ADOQuery2.SQL.Text:='select * from info';
ADOQuery2.Open;
Label17.Caption:=ADOQuery2.FieldByName('Группа').AsString;
Label18.Caption:=ADOQuery2.FieldByName('Специальность').AsString;
Label19.Caption:=ADOQuery2.FieldByName('Деканат').AsString;
Label20.Caption:=ADOQuery2.FieldByName('Курс').AsString;

[Stilet]

тапками не кидайтесь

Лови кирзач )))
Скажи - зачем ты выцепляешь запросом то что уже открыто в ADOTable? Или это запрос фонарный, и в дальнейшем ты будешь его наворачивать чтоб получить совсем другую инфу? Ибо если это не так то:

with ADOTable1 do begin Edit;
 FieldByName('Группа').Value := Edit3.Text;            Label17.Caption:=Edit3.Text;   Edit3.Text:='';
 FieldByName('Специальность').Value := Edit2.Text; Label18.Caption:=Edit2.Text;   Edit2.Text:='';
 FieldByName('Деканат').Value := Edit4.Text;          Label19.Caption:=Edit4.Text;   Edit4.Text:='';
 FieldByName('Курс').Value := Edit5.Text;               Label20.Caption:=Edit5.Text;   Edit5.Text:='';
 Post;
end;

[Serge_Bliznykov]

BanzoO
я бы рекомендовал
1) позиционировать в ADOTable1 на первую запись
если это не поможет, тогда,
2) закрывать ADOTable (возможно, что записи не сохраняются на диск, а кэшируются).
т.е.

if AdoTable1.Active then ADOTable1.Close;
ADOTable1.Open;
ADOTable1.Edit;
ADOTable1.FieldByName('Группа').Value := Edit3.Text;
ADOTable1.FieldByName('Специальность').Value := Edit2.Text;
ADOTable1.FieldByName('Деканат').Value := Edit4.Text;
ADOTable1.FieldByName('Курс').Value := Edit5.Text;
ADOTable1.Post;
ADOTable1.Close;

ну и вопрос Виталия о том, зачем читать в Query то, что есть в AdoTable абсолютно правомочен!

[BanzoO]

Спасибо за подсказки. Сделал всё как хотел