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

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

← →
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]

вопрос снят

---

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

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



Память: 0.45 MB
Время: 0.037 c