MS SQL

← →
Наташа (2002-08-23 10:18) [0]

Привет ВСЕМ! Помогите!
Я импортирую по таймеру данные из MS SQL SERVER в PARADOX посредством ODBC. Если копм, на котором стоит MS SQL перегружается, то программы выдает ошибку и пока на нее не кликнешь ничего не качает. Я пыталась отловить эту ошибку при открытии таблицы
try
StockScada.Open;
except
on EMathError do
StockScada.Open;
end;
Не помогает... Что можно сделать, чтобы как только связь востановится перекачка возобновилась сама...

← →
Reindeer Moss Eater (2002-08-23 10:22) [1]

Эмулируй клик по программе мышкой !
:)

← →
Hro © (2002-08-23 10:27) [2]

Зачем тебе ODBC с ним вечно проблемы. Используй TBatchMove! Также можно увеличить таймаун на запросы к серверу

← →
Hro © (2002-08-23 10:38) [3]

А ты случайно не в области энергетики работаеш?

← →
Reindeer Moss Eater (2002-08-23 10:51) [4]

А почему такая экзотическая обработка исключений?
(только EMathError)?????

Предлагаю вариант:

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;

MS SQL Найти похожие ветки