powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Установки для активного соединения
11 сообщений из 11, страница 1 из 1
Установки для активного соединения
    #33866522
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Когда производим соединение с сервером вступают в силу "установки для активного соединения по умолчанию". Имеется возможность используя функцию SQLSETPROP изменить установки. Но каждый раз когда соединяешься и снова прописывать
Код: plaintext
= SQLSETPROP(nStatementHandle, cSetting [, eExpression])
не очень-то хочется.
Возможно ли изменить установки по умолчанию один раз? А потом соединяться с этими установками.
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866592
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если работаете в среде, то Tools->Options...->Remote Date. Меняете и Set As Default
Если в коде, то кто мешает выдать столько SQLSETPROP, сколько надо?
С уважением, Алексей
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866608
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для всех будущих соединений
SQLSetProp( 0 ,...)
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866624
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aleksey-KЕсли в коде, то кто мешает выдать столько SQLSETPROP, сколько надо?Как раз в этом-то и проблема. Как только законнектился, мне приходиться сразу изменять установку. Я понимаю, что такая логика фокса. Но где-то начальные установки все равно прописаны. Где? М.б. в ту сторону посмотреть? И один раз поставить значение и соединяться, а потом разъединяться, затем снова соединяться и неизменять установки соединения.
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866633
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pivaДля всех будущих соединений
SQLSetProp( 0 ,...)Классно, спасибо Вадим. "А ларчик просто открывался."
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866643
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин. Вот, что значит Help плохо читать.
...Пользуйтесь функцией SQLSETPROP( ) для задания установок на уровне соединения. Чтобы задать установки Visual FoxPro, принимаемые по умолчанию на уровне среды выполнения, укажите 0 в качестве дескриптора соединения.
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866672
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pivaДля всех будущих соединений
SQLSetProp( 0 ,...)
А при первом соединении?
С уважением, Алексей
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866723
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aleksey-KА при первом соединении?
С уважением, Алексей
Я в стартовый файл поставил.
Код: plaintext
= SQLSETPROP( 0 , 'DispWarnings', .T.)  && Отображать сообщения об ошибках
Потом уже в формах идет подключение. Вроде все работает.
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866750
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В качестве примера:
Код: 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.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
CLEAR
CLOSE TABLES ALL
USE settings IN  0  SHARED

= SQLSETPROP( 0 , 'DispWarnings', .T.)  && Отображать сообщения об ошибках

m.c_dir_script = FULLPATH("")+"Script\"

c_DSN = ALLTRIM(SETTINGS.Sql_dsn)
gncn_sql = SQLSTRINGCONNECT(m.c_DSN)
IF gncn_sql <  0 
   = MESSAGEBOX('Not connection!!!',  16 , 'SQL SERVER')
   RETURN
ELSE		&& Соединились

  Load_file_sql("My_spr", gncn_sql)

  = SQLDISCONNECT(gncn_sql)

ENDIF


FUNCTION Load_file_sql
LPARAMETERS cFile, gncn_sql
*******************************************
*  ЗАГРУЗКА на MSSQL SERVER
*******************************************

LOCAL m.num_files, i, c_file_script, s, m.n_sqlexec


    c_file_script = TRIM(m.c_dir_script) + cFile + ".sql"
    s = FILETOSTR(c_file_script)
    m.n_sqlexec = SQLEXEC(gncn_sql,s)
    IF m.n_sqlexec <=  0 
        DO errhand
        = MESSAGEBOX("Records is not saved.", 64 ,"Attention!")
        = SQLDISCONNECT(gncn_sql)
        
        CANCEL
    ENDIF

ENDFUNC

PROCEDURE errhand
	= AERROR(aErrorArray)
	CLEAR
	? 'Информация об ошибке'
	FOR n =  1  TO  7 
		? aErrorArray(n)
	ENDFOR
ENDPROC
Все проработало.
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866796
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну если вы один раз можете выдать при соединении SQLSETPROP, то почему это нельзы сделать еще раз при последующих?! Зачем полагаться на значения по умолчанию? Кто мешает в функции соединения с сервером седать все установки?
С уважением, Алексей
...
Рейтинг: 0 / 0
Установки для активного соединения
    #33866903
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Aleksey-KНу если вы один раз можете выдать при соединении SQLSETPROP, то почему это нельзы сделать еще раз при последующих?! Зачем полагаться на значения по умолчанию? Кто мешает в функции соединения с сервером седать все установки?
С уважением, АлексейМне уже поздно метаться и делать одну функцию которая будет делать соединение и изменить в этой функции установки по умолчанию, а затем выбирать все SQLSTRINGCONNECT во всех формах и прописывать обращение к этой функции. С другой стороны вроде и так хорошо.
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Установки для активного соединения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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