🚀 go-pugleaf

Czesc,

Psujak wrote:
> 
> Witam !
> 
> Mam taki problem z otwieraniem widoków na serwerze Interbase.
> Otwieram go pytaniem select * from tablica itp. Po otwarciu widoku
> wykonuje jego aktualizacje poprzez wywolanie TStoredProc na serwerze. Jednak
> moj widok poprzednio otwarty nie aktualizje sie.
> Musze go zamknac i otworzyc.
> Nie bylo by z tym problemu, gdyby tabela miala do 300 rekordow.
> Natomiast przy otwieraniu np.20 000 widac spowolnienie pracy.

A nie mozna odwrotnie? Najpierw aktualizacja, 
a potem odczyt przez TQuery?

> Co ciekawsze wywolanie metody Refresh powoduje zwrocenie bledu
> typu : niemozliwe,brak unikalnego indeksu.

Refresh nie dziala na TQuery. Musisz nadpisac sobie TQuery
zmieniajac: 

protected
  procedure InternalRefresh; override;

np. tak

procedure TMyQuery.InternalRefresh;
var
  KeyValue: Integer;
begin
  DisableControls;
  try
    KeyValue := FieldByName('ID').AsInteger;
    Close; Open;
    Locate('ID', KeyValue, []);
  finally
    EnableControls;
  end;
end;

przy założeniu, ze wartosci pola ID sa unikalne (i ze w ogole takie
pole istnieje) i ze sa typu calkowitego.

Pozdrawiam
-- 
Roman Kowaliszyn
DAKAN, Bydgoszcz
romank@interlan.com.pl
delphi_pl-owner@onelist.com
http://www.onelist.com/archives.cgi/delphi_pl