Не могу понять в чем проблема

← →
PL (2007-04-26 10:54) [0]

Доброго времени суток, уважаемые мастера!
Дело вот какое,использую базы FoxPro и ADO, есть следующий код на кнопке:
if (cmb_AptekaO.Text<>"") and (Application.MessageBox("Проверить журнал на соответствие прайс-листу?","Сверка журнала с прайс-листом",mb_YesNo+mb_IconQuestion)=Id_Yes) then begin ADOQuery1.SQL.Text:="SELECT distinct okpo_apteka.rus_name,jurnal.ktg,jurnal.nosolk,jurnal.k_lekar,jurnal.price FROM jurnal INNER JOIN okpo_apteka ON jurnal.id=okpo_apteka.id" +" WHERE trim(okpo_apteka.rus_name)="""+ansiuppercase(cmb_AptekaO.Text)+""" AND jurnal.id+jurnal.ktg+jurnal.nosolk+jurnal.k_lekar+str(jurnal.price) NOT in" +" (SELECT price_l.id+price_l.ktg+price_l.nosolk+price_l.k_lekar+str(price_l.price) from price_l) "; ADOQuery1.Active:=true; if ADOQuery1.RecordCount>0 then showmessage ("Журнал не совпадает с прайс-листом!") else showmessage("Журнал совпадает с прайс-листом!"); AdoQuery1.Active:=false; end;

Тестирую у себя (ХР) - работает, на другой машине (ХР, на ней и должна работать прога) - не работает (базы данных одинаковые). Даже MessageBox не появляется - сразу виснет. Хорошо, в качестве эксперимента оставляю только запрос - ситуация таже. В программе есть и другой MessageBox и запросы - они работают.
Помогите найти выход из положения, в чем может быть проблема. Спасибо.

← →
PL (2007-04-27 07:26) [1]

вопрос снят

Не могу понять в чем проблема Найти похожие ветки