Скачать: CL | DM;

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)?????

---

← →
AlexSV ©   (2002-08-23 11:02) [5]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c