Как правильно сделать проверку в таблице...

← →
Reals © (2002-01-05 19:37) [0]

Здраствуйте!
В проге работает Timer. Через определеное время (в течении каждые 5 секунд) мне нужно сделать обращение к таблицы и прочитать значение обпределенного поля.
Сейчас я делаю вот так:
procedure TfmMain.TimerTimer(Sender: TObject); var onCloseSQL, stT: Boolean; begin try qCurUser.SQL.Text:="SELECT * FROM PT_User WHERE ID=1"; qCurUser.Open; stT := qCurUser.FieldByName("stTask").AsBoolean; qCurUser.Close; if stT then ShowMessage("True") else ShowMessage("False"); onCloseSQL:=False; except onCloseSQL:=True; end; end;
Может кто подскажет как по-умному можно сделать, или так тоже можно?
И еще одна проблема.
Если в друг SQL-сервер отключиться то переменной onCloseSQL будет присвоено True. После того как опять заработает SQL-сервер, то почему-то все-равно не срабатывает запрос, вернее то что находиться между try и except. Подскажите пожалуйста как эту проблему решить, все испробовал (и делал коннект к базе заново...) ничего не получаеться.

Заранее премного благодарен.

← →
Boo © (2002-01-07 08:54) [1]

Написано нормально...
а вот если SQL сервак отрубается, то надо Connect делать заново,
а если Query работает напрямую с BDE (без DataBase), то должно срабатывать...

Как правильно сделать проверку в таблице... Найти похожие ветки