ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Асинхронный запрос к ASA 8.0.2
8 сообщений из 8, страница 1 из 1
Асинхронный запрос к ASA 8.0.2
    #32242243
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
Типичный пример асинхронного запроса не хочет работать как положено... Т.е. не прерывается по Esc... В чём может быть загвоздка? Особенность ODBC или ещё чего то?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
LOCAL hConn, lcQuery, llCancel, lnResult
lcQuery =  "EXECUTE test_long_query" 
hConn = SQLConnect( "ASA_DSN" ,  "login" ,  "password" )
SQLSetProp(hConn,  "ASYNCHRONOUS" , .T.)
SET ESCAPE ON
ON ESCAPE llCancel = .T.
WAIT WINDOW  "Press Esc to cancel the query"  NOWAIT NOCLEAR
llCancel = .F.
lnResult =  0 
DO WHILE (!llCancel AND lnResult =  0 )
	lnResult = SQLExec(hConn, lcQuery)
	DOEVENTS
ENDDO

WAIT CLEAR
IF (llCancel AND lnResult =  0 )
	WAIT WINDOW  "Query being cancelled..."  NOWAIT NOCLEAR
	SQLCancel(hConn)
	WAIT WINDOW  "Query cancelled by user" 
ELSE
	IF (lnResult >  0 )	
		WAIT WINDOW  "Query completed successfully!" 
	ELSE
		WAIT WINDOW  "Query aborted by error" 
	ENDIF
ENDIF
SQLDisconnect(hConn)
...
Рейтинг: 0 / 0
20.08.2003, 17:28
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32242332
vklepko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vklepko
Гость
А возможно ли поменять в Вашем коде
Код: plaintext
lcQuery =  "EXECUTE test_long_query"

на
Код: plaintext
lcQuery =  "{CALL test_long_query}"

?
...
Рейтинг: 0 / 0
20.08.2003, 18:30
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32242334
Равиль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Равиль
Участник
А если попробовать вместо:
SET ESCAPE ON
ON ESCAPE llCancel = .T.

по другому:
SET ESCAPE OFF
ON KEY LABEL ESCAPE llCancel = .T.

PS есть подозрение, что ESCAPE ON перебивает свое назначение ON ESCAPE,
т.е. программа останавливается и назнаение не срабатывает, но это так, догадка :)
...
Рейтинг: 0 / 0
20.08.2003, 18:31
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32242572
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
2 vklepko
к сожалению, значения не имеет, как я вызову процедуру...
писал даже вот так:
lcQuery = "WAITFOR DELAY '00:00:30'"

2 Равиль
нет, дело тут не в том что не отрабатывает ON ESCAPE, а в том, что запрос работает как синхронный

но: SQLGetProp(hConn, "ASYNCHRONOUS") возвращает .t.
подозреваю что дело в ODBC, потому как всплывали кое какие косяки при работе с ASA из VFP... Какие есть ещё соображения?
...
Рейтинг: 0 / 0
21.08.2003, 08:46
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32242745
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
эксперемент с MS SQL 2000 дал положительные результаты - всё работает!
в чём может быть дело? в настройках ODBC или баг это?
...
Рейтинг: 0 / 0
21.08.2003, 10:38
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32244068
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
неужели ни кто с Sybase ASA не работает? :) мда...
...
Рейтинг: 0 / 0
22.08.2003, 08:53
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32244130
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
всё ясно... :(
может кто ещё вдруг мучается таким же вопросом :)

Features supported by Adaptive Server Anywhere
Adaptive Server Anywhere supports the ODBC 3.52 specification.

Core conformance
Adaptive Server Anywhere supports all Core level features.

Level 1 conformance
Adaptive Server Anywhere supports all Level 1 features, except for asynchronous execution of ODBC functions.

Adaptive Server Anywhere supports multiple threads sharing a single connection. The requests from the different threads are serialized by Adaptive Server Anywhere.

Level 2 conformance
Adaptive Server Anywhere supports all Level 2 features, except for the following:

Three part names of tables and views. This is not applicable for Adaptive Server Anywhere.

Asynchronous execution of ODBC functions for specified individual statements.

Ability to time out login request and SQL queries.
...
Рейтинг: 0 / 0
22.08.2003, 09:50
| Ответить | Цитировать | Написать  
Асинхронный запрос к ASA 8.0.2
    #32245121
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chagoserg
Участник
Коллеги! Кто нить тут ASE использует? может проверить ассинхронный режим?
...
Рейтинг: 0 / 0
22.08.2003, 17:46
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Асинхронный запрос к ASA 8.0.2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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