Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

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


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), то должно срабатывать...




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.041 c
1-8947            EvgenK                2002-01-15 21:51  2002.02.04  
Вопросик по OpenGL...


1-8928            SergN                 2002-01-17 16:34  2002.02.04  
Как в Memo записать текстовый DOS файл?


1-8821            Anton Shestakov       2002-01-20 00:39  2002.02.04  
DateTimePicker


1-8850            Ev_grenus             2002-01-15 17:05  2002.02.04  
Нужна струкнура данных,


3-8771            Reals                 2002-01-05 19:37  2002.02.04  
Как правильно сделать проверку в таблице...