ADO "Чудеса в решете"

← →
Митяй © (2004-06-21 17:05) [0]

Странный глюк ADO.
В обработчике кнопки:Button1.OnClik
ADOTable1.Post;
ADOTable1.Refresh;
ADOTable1.Sort := "date_opr";
ADOQuery1.Close;
ADOQuery1.Open;
... не работает обновление ADOQuery1.

Записываю... ADOQuery1.Close;
ADOQuery1.Open;
... в другую отдельную кнопку, всё работает!!!
Ничего не понимаю.

← →
Johnmen © (2004-06-21 17:07) [1]

А мы ещё меньше...

← →
Митяй © (2004-06-21 17:10) [2]

> Johnmen © (21.06.04 17:07) [1]
> А мы ещё меньше...

Я не ясно изъяснился, :)... или проблема в ADO?

← →
Johnmen © (2004-06-21 17:17) [3]

Либо первое, либо третье.
PS 3.Не приведены все исх.данные.

← →
Митяй © (2004-06-21 17:29) [4]

Код писать весь мне кажется нет смысла.
Попытаюсь по русски...
На форме "Грид", в режиме просмотра, рядом набор полей для ввода данных. Внизу StatusBar, в него заношу данные из запроса, каждый раз при занесении данных запрос обновляется и показывает остатки всего "БАРОХЛА", что есть в таблице.
И ADOTable, и ADOQuery привязаны к одной таблице.
Имеется кнопка Button_Insert и Button_Post.
Так вот в Button_Post пишу вот это:
ADOTable1.Post;
ADOTable1.Refresh;
ADOTable1.Sort := "date_opr";
ADOQuery1.Close;
ADOQuery1.Open;
И не обновляется запрос.?
Прилепил ещё кнопочку записал туда:
ADOQuery1.Close;
ADOQuery1.Open;
Работает!

← →
bushmen © (2004-06-21 17:32) [5]

>И ADOTable, и ADOQuery привязаны к одной таблице

А Grid к чему привязан? :) И какую роль здесь играет StatusBar ?

← →
Курдль © (2004-06-21 17:36) [6]

> bushmen © (21.06.04 17:32) [5]
> А Grid к чему привязан? :) И какую роль здесь играет StatusBar
> ?

StatusBar играет роль SummaryFooter-а!
А вот ADOTable - это уже грустный компонент :(

← →
Митяй © (2004-06-21 17:38) [7]

> bushmen © (21.06.04 17:32) [5]
> >И ADOTable, и ADOQuery привязаны к одной таблице
>
> А Grid к чему привязан? :) И какую роль здесь играет StatusBar
> ?
</I
Ну пусть будет, не StatusBar, а например Label-и.
Grid привязан к таблу.

>Курдль © (21.06.04 17:36) [6]
>StatusBar играет роль SummaryFooter-а!

Я про это: "Внизу StatusBar, в него заношу данные из запроса"

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

procedure TForm1.FormCreate(Sender: TObject); begin ADOTable1.Open; ADOTable1.Sort := "Date_oper"; ADOTable1.Insert; ADOQuery1.Open; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOTable1.Close; end; procedure TForm1.RzBitBtn1Click(Sender: TObject); begin ADOTable1.Insert; end; procedure TForm1.RzBitBtn3Click(Sender: TObject); begin ADOTable1.Post; ADOTable1.Refresh; ADOTable1.Sort := "Date_oper"; ADOTable1.Last; end; procedure TForm1.RzBitBtn2Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.Open; end; end.

ADO "Чудеса в решете" Найти похожие ветки