powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / добавление записи
14 сообщений из 14, страница 1 из 1
добавление записи
    #35413789
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
нужно добавить фото в таблицу
**********************
SELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace tovar.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= otbatov.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()
*****************
Выводит ошибку:"Для функции требуется режим буферизации строк или таблиц"
Подскажите , если возможно включить этот режим, токак. Если невозможно, то как выйти из ситуации.

Заранее, благодарен, Роман.
...
Рейтинг: 0 / 0
добавление записи
    #35413814
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Немного подправил:

SELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT tovar
replace tovar.foto WITH FILETOSTR(myfoto)
*SELECT user
= TABLEUPDATE(.T.)

*DO \data\qprrr\otbatov.qpr
thisform.image1.PictureVal= tovar.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()

Так более правильно, но теперь хоть и работает все , но ошибки не исчезли:
Нажимаю на кнопку "Добавить", открывается окно для выбора файла - выбираю фото
появляется ошибка: "Для функции требуется режим буферизации строк или таблиц"(Recjrd details in error log file?) отвечаю Да. Затем еще одно сообщение "Continue executing program?" отвечаю Да.

И несмотря на ошибка фото добавляется.
Может кто знает , что за Х...Ь !???
...
Рейтинг: 0 / 0
добавление записи
    #35413830
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такя-же ерунда и сдесь:
SELECT tovar
LOCATE FOR tovar.atov==otbatov.atov
replace tovar.foto WITH ''
= TABLEUPDATE(.T.)

Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
DO \data\qprrr\otbatov.qpr
Thisform.Refresh()

Ошибки теже.
Что-же делать?
...
Рейтинг: 0 / 0
добавление записи
    #35413874
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а зачем нам TABLEUPDATE?
нет, нам кунец не нужен (с) :)
...
Рейтинг: 0 / 0
добавление записи
    #35413879
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
CTAC-KOа зачем нам TABLEUPDATE?
нет, нам кунец не нужен (с) :)

Поясни. Это шутка или ... ?
...
Рейтинг: 0 / 0
добавление записи
    #35413888
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
CTAC-KOа зачем нам TABLEUPDATE?
нет, нам кунец не нужен (с) :)

Блин. Точно. В функции удалить фото. все супер. ОШИБОК НЕТ.
А при добавлении фото вот что(в прекрепленном файле)
...
Рейтинг: 0 / 0
добавление записи
    #35413908
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а это уже по-сложнее будет...
т.к. в принципе по разным причинам может происходить. Но если всегда четко в одном и том же месте, тогда надо разбираться в коде, искать с какой строки падение. ну и в целом код - в студию. а вообще может произойти из-за ошибки с фото - к примеру слишком большая по размеру или с ее загрузкой в бд какие-то проблемы. т.е. разбираццо в чем причина конкретно
...
Рейтинг: 0 / 0
добавление записи
    #35413913
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А при первом варианте. Почему возникает ошибка? Может можно чтото сбелать?

SELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace tovar.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= otbatov.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()
*****************
Выводит ошибку:"Для функции требуется режим буферизации строк или таблиц"
...
Рейтинг: 0 / 0
добавление записи
    #35413915
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Romario_rusА при первом варианте. Почему возникает ошибка? Может можно чтото сбелать?

SELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace tovar.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= otbatov.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()
*****************
Выводит ошибку:"Для функции требуется режим буферизации строк или таблиц"

Все нормально работает - фото добавляется , только ошибка всплывает. Что может быть?
...
Рейтинг: 0 / 0
добавление записи
    #35414795
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дык указывал уже ш - в TABLEUPDATE, его там не надо и похоже в Вашей программе оно вообще нигде не надо
...
Рейтинг: 0 / 0
добавление записи
    #35414840
CTAC-KO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У баз базы данных локально расположены, т.е. вместе с прогой? Если так, то для обновления данных достаточно replace, и тогда TABLEUPDATE не нужен. Он нужен для такой хитрой организации обновления бд - когда юзер данные в отображаемой таблице меняет, то реально в реальной дб ничего не поменяется до тех пор, пока не будет выполнен TABLEUPDATE. Т.к. при этом обычно работают не с бд напрямую (как предполагаю у Вас), а лишь с его представлением в виде курсора, изменения в котором не отражаются на бд-источнике. Чаще всего при этом используется технология клиент-сервер, когда у пользователя на компе имеется только программа, а все данные хранит и обрабатывает сервер (типа SQL), который обычно другой комп в сети.
...
Рейтинг: 0 / 0
добавление записи
    #35415108
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
SELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace tovar.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= otbatov.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()

CTAC-KOдык указывал уже ш - в TABLEUPDATE, его там не надо и похоже в Вашей программе оно вообще нигде не надо

Не могу понять, почему включая в программу = TABLEUPDATE(.T.) фото добавляется, но с возникновением ошибки :"Для функции требуется режим буферизации строк или таблиц"

А при удалении из кода = TABLEUPDATE(.T.) (смотрите вложенный файл)

Как выйти из положения, может кто знает.
...
Рейтинг: 0 / 0
добавление записи
    #35415166
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Romario_rusSELECT tovar
LOCATE FOR atov=otbatov.atov


myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace tovar.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= otbatov.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

DO \data\qprrr\otbatov.qpr
thisform.Refresh()

CTAC-KOдык указывал уже ш - в TABLEUPDATE, его там не надо и похоже в Вашей программе оно вообще нигде не надо

Не могу понять, почему включая в программу = TABLEUPDATE(.T.) фото добавляется, но с возникновением ошибки :"Для функции требуется режим буферизации строк или таблиц"

А при удалении из кода = TABLEUPDATE(.T.) (смотрите вложенный файл)

Как выйти из положения, может кто знает.
...
Рейтинг: 0 / 0
добавление записи
    #35415389
Romario_rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кажется разобрался.
Всем спасибо.

SELECT tovar
LOCATE FOR atov=otbatov.atov
myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
replace tovar.foto WITH FILETOSTR(myfoto) IN tovar
DO \data\qprrr\otbatov.qpr
thisform.image1.PictureVal= tovar.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / добавление записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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