powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Status bar SQL запроса
5 сообщений из 5, страница 1 из 1
Status bar SQL запроса
    #32688064
Илья Мухин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть ли возможность в FoxPro 7 сделать status(progress) bar для SQL-зароса. Может существуют какие-либо компоненты?
...
Рейтинг: 0 / 0
Status bar SQL запроса
    #32688077
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Собственно, есть стандарный ProgressBar:

SET TALK ON
SELECT ... FROM ...
SET TALK OFF

Самописный сделать можно, но он будет сильно томозить выполнение собственно запроса. Так что лучше ограничится стандартным.
...
Рейтинг: 0 / 0
Status bar SQL запроса
    #32688378
SergeyPl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Внесу и свои 5 копеек.
Когда-то, влепил в запрос свою функцию, которая продвигала прогрессбар.
Производительность упала не просто, а залегла !!!
Так что, чем меньше в запросе ненужного для самого запроса, - тем лучше.
Когда у меня несколько запросов один за другим, то вставляю движок прогрессбара только между запросами.
...
Рейтинг: 0 / 0
Status bar SQL запроса
    #32688753
Cyv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирМСамописный сделать можно, но он будет сильно томозить
Использую стандартный, но когда он не работает, как правило в тех случаях,когда есть поля, которые формируются с помощью хранимок (например csv-последовательность из данных подчиненной таблицы) - использую класс _thermometer из библиотеки FFC _therm.
Вызов - в условии запроса :
...WHERE ... AND sp_RefreshTherm()

Всё просто как велосипед, но главное - всё летает! Никакого намёка на серьёзные тормоза. Да, в таблицах сотни тысяч записей, на больших обьёмах не проверялось,но там и простой вариант может притормаживать,если неграмотно распорядиться ;-)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
PUBLIC goTherm,gnCallCount
gnCallCount =  0 
goTherm = NEWOBJECT("_thermometer",HOME( 1 ) + "FFC\_therm",.NULL.,"Running query...",RECCOUNT("Table"))
goTherm.Show()

REQUERY("Alias")
* -- или SELECT ... FROM 

goTherm.Complete()
RELEASE goTherm,gnCallCount

PROCEDURE sp_RefreshTherm
IF VARTYPE(goTherm) == "O"
	gnCallCount = m.gnCallCount +  1 
	goTherm.Update(m.gnCallCount)
ENDIF
ENDPROC
...
Рейтинг: 0 / 0
Status bar SQL запроса
    #32690065
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для vfp7 нужно так
SET TALK ON
SET NOTIFY ON
SELECT ... FROM ...
SET TALK OFF
SET NOTIFY OFF
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Status bar SQL запроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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