Как правильно сделать проверку в таблице... [D6, MSSQL, ]
Reals © (2002-01-05 19:37:00)
Здраствуйте!
В проге работает 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:00) [1]
Написано нормально...
а вот если SQL сервак отрубается, то надо Connect делать
заново,
а если Query работает напрямую с BDE (без DataBase), то
должно срабатывать...
Наверх 
ЧАТ |
Орешник |
|
