Не могу понять в чем проблема [D7, XP]
PL © (2007-04-26 10:54:00)
Доброго времени суток, уважаемые мастера!
Дело вот какое,использую базы 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:00) [1]
вопрос снят
Наверх 
ЧАТ |
Орешник |
|
