Timer и sql запросы

[mitiay]

Обновляю данные таблиц таким методом:

procedure TForm3.Timer2Timer(Sender: TObject);
var
 SL: TStringList;
  i: Integer;
begin
  sl:=TStringList.Create;
  SQLConnection1.GetTableNames(sl,false);
  StringGrid1.RowCount:=(sl.Count+1);
  for i := 0 to sl.Count-1 do stringgrid1.Cells[0,i+1] := sl.Strings[i];
with SQLQueryR do begin;
 sql.text:=('SELECT COUNT(*) FROM Moskow');
 try
  open;
 StringGrid1.Cells[3,2]:=Fields[0].AsString;

     Close;

Через таймер!но как бы этот вариант не устраивает,из за постоянного мограния.Подскажите как еще можно постоянно получать данные с бд без таймера?

[Аватар]

Получать уведомления о событиях с SQL-сервера. Если он поддерживает этот механизм

[mitiay]

А можно пример?

[Аватар]

Пример чего? Сначала узнай поддерживает ли твое СУБД эту технологию. Если поддерживает - научись создавать события на сервере. Потом научись их обрабатывать на клиенте. Я не пробовал, о такой возможности знаю чисто теоретически

[Andrei]

Постоянно моргает потому что вы перерисовываете StringGrid не зависимо от того, изменились данные или нет. Предлагаю разделить процесс: Получать данные в отдельный StringList и сравнивать его со StringList-ом StringGrid-а. Если они не совпадают, то обновить StringGrid.

Это, конечно, не ответ на вопрос

как еще можно постоянно получать данные с бд без таймера?

, а просто финт чтобы уменьшить частоту морганий. Потому что помимо морганий сплошная перекачка данных по таймеру - это дополнительная и неоправданная нагрузка на сеть.


PS: то что предлагает Аватар - идеальный ответ на ваш вопрос.