Форум » [x]Harbour » почему сбоит блокировка записи или что-то я пропустил ? » Ответить
почему сбоит блокировка записи или что-то я пропустил ?
Andrey: Пишу здесь, так как тему новую заводить не хочу. Вопрос такой - почему сбоит блокировка записи или что-то я пропустил ? Произвожу обработку базы в цикле (база открыта в режиме SHARED): [more] DO WHILE ABONENT->NN == nIDD // обработать список абонентов IF ABONENT->(RLock()) FOR nJ := 1 TO LEN(aField) // поля для добавления из другой БД FIELDPUT( FIELDNUM(aField[nJ,1]),aField[nJ,2] ) // строка 305 NEXT .......... DBUNLOCK() nRecWrt++ ELSE MsgInfo("Запись "+HB_NtoS(RECNO())+" в БД- "+Alias()+" заблокирована!") ENDIF SKIP ProcessMessages() // Чтобы форма НЕ замирала ENDDO [/more] Выдаёт ошибку где-то в конце обработки базы: На локальном компе работает отлично. А в сети свалилась.
Ответов - 29, стр:
1 2 All
Pasha: типа так: abonent->( FIELDPUT( FIELDNUM(aField[nJ,1]),aField[nJ,2] ) )
Andrey: Спасибо !
Andrey: Вопрос не в тему... Как узнать длину индексного выражения из индексного файла ?
Dima: Andrey ? &(OrdKey()) ? "Length of &(OrdKey()) :" + Str( Len( &(OrdKey()) ) ) ? OrdKeyVal() ? "Length of OrdKeyVal() :" + Str( Len(OrdKeyVal()) )
Andrey: Спасибо !
Haz: Andrey пишет: Как узнать длину индексного выражения из индексного файла ? Уточню , все что сказал Дима справедливо при символьном ключе разумеется.
Dima: Haz пишет: справедливо при символьном ключе разумеется. +1 , но Андрей не уточнял есть вопрос к Андрею а для чего это тебе в задаче ?
Haz: Dima пишет: OrdKeyVal() может OrdKey() - возвращает именно индексное выражение а не значение ключа. Возвращает всегда строку. Но вот для чего получать его длину я не понял
Andrey: Haz пишет: Но вот для чего получать его длину я не понял Когда делаешь сборный индекс по адресу в разных задачах (старых и новых) уже и не помнишь как сделал ранее индексный файл. Типа "STR(KCITY,3)+STR(KSTREET,4)+UPPER(cNumHOUSE)+STR(NumKorp,4)+UPPER(cNumKvar)" А поставив проверку (длину индекса) - хоть видишь где сам напортачил.
полная версия страницы