powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Insert into
3 сообщений из 3, страница 1 из 1
Insert into
    #33382537
Mike222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите что тут неверно. В .gdb базе IB не получается заполнить теблицу,
т.е. добавляется пустая строка, без данных.

PUBLIC cSQL, cKey, cIndex, cText

IF !USED('TreeVie')
USE TreeVie IN 0
ENDIF
SELECT TreeVie
GO TOP

DO WHILE !EOF()
cKey=ALLTRIM(TreeVie.keyid)
cIndex=ALLTRIM(TreeVie.parentid)
cText=ALLTRIM(TreeVie.nametext)
BEGIN TRANS
cSQL='INSERT INTO TreeView_Txt (KeyID, ParentID, Text_Name) VALUES (?cKey, ?cIndex, ?cText)'
=SQLPREPARE(gnConnHandle, cSQL)
=SQLEXEC(gnConnHandle, cSQL)
=SQLCOMMIT(gnConnHandle)
END TRANS
SKIP
LOOP
EXIT
ENDDO
...
Рейтинг: 0 / 0
Insert into
    #33382745
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я бы для начала убрал BEGIN TRANS и END TRANS
Посмотрел бы что в gnConnHandle
Далее попробывл бы просто вставить строку без цикла и посмотрел бы что получится...
Немного непонятно зачем =SQLCOMMIT(gnConnHandle) ?
И где и как Вы закрывате соединение?
...
Рейтинг: 0 / 0
Insert into
    #33382837
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Mike222!

1) фоксовые транзакции тут использовать смысла никакого нет.
2) SQLCOMMIT() имеет смысл если до того коннекция переведена из режима
DB_TRANSAUTO в DB_TRANSMANUAL
3) Вообще-то надо АНАЛИЗИРОВАТЬ что возвращают SQLPREPARE и SQLEXEC - и если
они вернуть -1 или -2 - то через AERROR() выяснить что же за ошибка
произошла.
4) GO TOP + DO WHILE !EOF() + SKIP + ENDDO замечательно заменяется на
SCAN+ENDSCAN
5) В чём глубокий смысл ставить БЕЗУСЛОВНО и ПОДРЯД команды LOOP и EXIT мне
не понятно. Неужели не ясно что EXIT никогда не будет выполняться, а вообще
эти ОБЕ команды в данном коде совершенно лишние...

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Insert into
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]