Форум » GUI » ADS » Ответить
ADS
Vlad04: Перекладываю отработанные приемы и методы работы с запросами ADS в консоле с хХарбоур на MiniGui. На демо образцах все работает, на рабочей версии программы нет : запрос пустой AdsPrepareSQL(sQlStr) - нормально отрабатывет AdsExecuteSQL(sQlStr) не срабатывает [quote] sPar1:=Left(EXENAME(),RAT("\",EXENAME())) AdsConnect(sPar1+"DATA\") sAls:= aLIAS() if sAls ='QUERY' Close QUERY endif Select 0 AdsCreateSQLStatement('QUERY', 2) sQlStr:= ' SELECT * For DOC_ADD ' ' AdsPrepareSQL(sQlStr) AdsExecuteSQL(sQlStr) MsgInfo("RecCount ="+Str(QUERY->(RecCount()))) RashodEdit.Browse_1.Refresh go top RashodEdit.Browse_1.Value := RECNO() Select(nArea) [/quote]
Ответов - 1
Vlad04: Увы! 2 дня угрохал. Нашел. Описка в запросе.
полная версия страницы