| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MS SQL
Наташа © (2002-08-23 10:18:00)Привет ВСЕМ! Помогите!
Я импортирую по таймеру данные из MS SQL SERVER в PARADOX посредством ODBC. Если копм, на котором стоит MS SQL перегружается, то программы выдает ошибку и пока на нее не кликнешь ничего не качает. Я пыталась отловить эту ошибку при открытии таблицы
try
StockScada.Open;
except
on EMathError do
StockScada.Open;
end;
Не помогает... Что можно сделать, чтобы как только связь востановится перекачка возобновилась сама...
AlexSV (2002-08-23 11:02:00) [1]Предлагаю вариант:
implementation
var
TryOpen: boolean;
Далее в тексте
procedure TForm1.<...>;
begin
...
TryOpen := True;
while TryOpen do try
Query1.Open;
TryOpen := False;
except
Application.ProcessMessages;
sleep(1000);
end;
...
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Это для того, чтобы остановить, в случае необходимости, цикл открытия
TryOpen := False;
end;
Reindeer Moss Eater (2002-08-23 10:51:00) [2]А почему такая экзотическая обработка исключений?
(только EMathError)?????
Hro (2002-08-23 10:38:00) [3]А ты случайно не в области энергетики работаеш?
Hro (2002-08-23 10:27:00) [4]Зачем тебе ODBC с ним вечно проблемы. Используй TBatchMove! Также можно увеличить таймаун на запросы к серверу
Reindeer Moss Eater (2002-08-23 10:22:00) [5]Эмулируй клик по программе мышкой !
:)
| |
