Автор | Сообщение |
|
| постоянный участник
|
Пост N: 234
Зарегистрирован: 13.10.05
|
|
Отправлено: 06.09.11 13:40. Заголовок: ADS
Перекладываю отработанные приемы и методы работы с запросами ADS в консоле с хХарбоур на MiniGui. На демо образцах все работает, на рабочей версии программы нет : запрос пустой AdsPrepareSQL(sQlStr) - нормально отрабатывет AdsExecuteSQL(sQlStr) не срабатывает цитата: | 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) |
|
|
|
|
Ответов - 1
[только новые]
|
|
|
| постоянный участник
|
Пост N: 235
Зарегистрирован: 13.10.05
|
|
Отправлено: 07.09.11 17:31. Заголовок: Увы! 2 дня угрохал. ..
Увы! 2 дня угрохал. Нашел. Описка в запросе.
|
|
|