Hi Valerii!

> GO TOP
> DO WHILE !EOF()

Это заменяет SCAN

> xkey = ALLTRIM(key)
> xParent = ALLTRIM(Parent)
> xtext = ALLTRIM(text)
> b = SQLEXEC(gnConnHandle, "INSERT INTO goods (key, parent, TEXT)
> Values (?xkey, ?xparent, ?xtext)")

Можно прямо в тексте запроса писать .... VALUES (?ALLTRIM(Goods.key), ...) -
т.е. переменные не обязательны.

> ?b && возвращает -1

Ну раз возвращает -1 то надо через
AERROR(laErrorInfo)
DISPLAY MEMOTY LIKE laErrorInfo
посмотреть что же за ошибка возникла.
Меня кстати не радуют твои имена полей - там слова зарезервированные - и бог
знает как на это отреагирует SQLServer.

> = SQLCOMMIT (gnConnHandle)

Не просто = - а смотреть что возвращает функция!
И кроме того использование SQLCOMMIT() бесполезно до тех пор, пока через
SQLSETPROP(..., "Transactions", 2) не будет включен режим "ручного
управления" этими самыми транзакциями. Также в общем и целом нет особого
смысла включать ручное управление транзакциями, если ты в любом случае
будешь подтверждать КАЖДУЮ ИНДИВИДУАЛЬНУЮ операцию. Я бы на твоём месте
вынес коммит за рамки цикла, или по меньшей мере коммитил не каждую запись,
а скажем каждые 100 записей.

> SELECT Goods
> SKIP
> ENDDO

Соответственно вместо всего этого ENDSCAN

Posted via ActualForum NNTP Server 1.3