Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Adotable + DbGridEh [D6, access2000]


Proxvost ©   (2003-04-03 12:06:00) 

Проблема следующего рода

Имеется некая база, Adotable, dbgrideh. Форма открыта таблица открыта. Пользователь видит список данных в гриде.
Возникает момент, когда по команде пользователя (нажатие кнопки и т.д.) данные в таблице пересчитываются (удаляются и в пустую таблицу записываются новые записи, число изначально неизвестно)

как заставить прогу вывести измененные записи в грид?

фрагмент такой

ff:=form11.ADOTable1.FieldValues["код"];
adocommand1.CommandText:="delete * from [РезультатАпрокс]";
adocommand1.Execute;
if form14.tion=false then begin
adotable1.Active:=false;
....
весьма солидные расчеты :-)
....
sttt:="insert into [РезультатАпрокс]([энергия],[эффэкспер],[погр]) select [Готовые данные].[энергия], [Готовые данные].[эффективность], [Готовые данные].[погрешность] from [Готовые данные] where ([Готовые данные].[код]="+inttostr(ff)+");";
adocommand1.CommandText:=sttt;
adocommand1.Execute;

end else begin

end;

- что необходимо делать далее
adotable1.open; - не работает
adotable1.refresh; - дает ошибку?


Был бы очень признателен за ответы

С уважением Прохвост


Proxvost   (2003-04-03 14:54:00) [1]

Проблему решил следующим образом
добавил две строчки, наобум правда, но работает.

form15.update;
adotable1.active:=true;

Вопрос закрываю, извиняюсь за беспокойство, но бился над этой тупостью со вчерашнего дня. Возможно кому нить и пригодится, и не наступит на эти грабли как я.

С уважением Прохвост


Proxvost   (2003-04-03 14:39:00) [2]

не работает, иначе бы и не спрашивал


Stas   (2003-04-03 12:12:00) [3]

adotable1.Close;
adotable1.open;


Наверх

Титульная страница Поиск, карта сайта Написать письмо