Приложение протестировано и работает на моем компе.
Переношу пользователю на рабочий комп.
и получаю ситуацию.
An unhandled exception occurred at $0044C301:
EMSSQLDatabaseError: TMSSQLConnection : Error 20019 :
Attempt to initiate a new Adaptive Server operation with results pending
Разобрался в каком момент выскакивает ошибка.
- Код: Выделить всё
QueryDet.Close;
QueryDet.SQL.Text:='select ts.BL_ID, ts.BLD_ID, ts.SV_ID, isnull(ts.BLD_PAY_ID,0)BLD_PAY_ID, isnull(ts.PRICE,0)PRICE, isnull(ts.oplPT,0)oplPT, isnull(ts.oplMDPR,0)oplMDPR, isnull(ts.Bonus_Coef,0)Bonus_Coef, isnull(ts.Bonus_from_above,0)Bonus_from_above, isnull(ts.STCK_ID,0)STCK_ID, isnull(ts.perc,0)perc, isnull(Calc_Bonus,0)Calc_Bonus from ##Tserv ts where pt_ID='+IntToStr(ptID) ;
QueryDet.Open;
На Open ошибка и лезет.
Если я правильно понял по http://wiki.freepascal.org/mssqlconn и http://www.freetds.org/faq.html#pending
речь идет о способе подтягивания строк с сервера, сразу или блоками.
Не разобрался в тонкостях, но в данной конкретной ситуации речь идет всего об одной строке. Так какая разница каким методом ее подтягивать с сервера.
Не понимаю суть, в чем проблема и что нужно сделать?