Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Установки для активного соединения / 11 сообщений из 11, страница 1 из 1
20.07.2006, 12:17
    #33866522
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Когда производим соединение с сервером вступают в силу "установки для активного соединения по умолчанию". Имеется возможность используя функцию SQLSETPROP изменить установки. Но каждый раз когда соединяешься и снова прописывать
Код: plaintext
= SQLSETPROP(nStatementHandle, cSetting [, eExpression])
не очень-то хочется.
Возможно ли изменить установки по умолчанию один раз? А потом соединяться с этими установками.
...
Рейтинг: 0 / 0
20.07.2006, 12:31
    #33866592
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Если работаете в среде, то Tools->Options...->Remote Date. Меняете и Set As Default
Если в коде, то кто мешает выдать столько SQLSETPROP, сколько надо?
С уважением, Алексей
...
Рейтинг: 0 / 0
20.07.2006, 12:34
    #33866608
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Для всех будущих соединений
SQLSetProp( 0 ,...)
...
Рейтинг: 0 / 0
20.07.2006, 12:38
    #33866624
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Aleksey-KЕсли в коде, то кто мешает выдать столько SQLSETPROP, сколько надо?Как раз в этом-то и проблема. Как только законнектился, мне приходиться сразу изменять установку. Я понимаю, что такая логика фокса. Но где-то начальные установки все равно прописаны. Где? М.б. в ту сторону посмотреть? И один раз поставить значение и соединяться, а потом разъединяться, затем снова соединяться и неизменять установки соединения.
...
Рейтинг: 0 / 0
20.07.2006, 12:41
    #33866633
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
pivaДля всех будущих соединений
SQLSetProp( 0 ,...)Классно, спасибо Вадим. "А ларчик просто открывался."
...
Рейтинг: 0 / 0
20.07.2006, 12:44
    #33866643
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Блин. Вот, что значит Help плохо читать.
...Пользуйтесь функцией SQLSETPROP( ) для задания установок на уровне соединения. Чтобы задать установки Visual FoxPro, принимаемые по умолчанию на уровне среды выполнения, укажите 0 в качестве дескриптора соединения.
...
Рейтинг: 0 / 0
20.07.2006, 12:48
    #33866672
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
pivaДля всех будущих соединений
SQLSetProp( 0 ,...)
А при первом соединении?
С уважением, Алексей
...
Рейтинг: 0 / 0
20.07.2006, 12:53
    #33866723
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Aleksey-KА при первом соединении?
С уважением, Алексей
Я в стартовый файл поставил.
Код: plaintext
= SQLSETPROP( 0 , 'DispWarnings', .T.)  && Отображать сообщения об ошибках
Потом уже в формах идет подключение. Вроде все работает.
...
Рейтинг: 0 / 0
20.07.2006, 12:56
    #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
20.07.2006, 13:02
    #33866796
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Ну если вы один раз можете выдать при соединении SQLSETPROP, то почему это нельзы сделать еще раз при последующих?! Зачем полагаться на значения по умолчанию? Кто мешает в функции соединения с сервером седать все установки?
С уважением, Алексей
...
Рейтинг: 0 / 0
20.07.2006, 13:19
    #33866903
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Установки для активного соединения
Aleksey-KНу если вы один раз можете выдать при соединении SQLSETPROP, то почему это нельзы сделать еще раз при последующих?! Зачем полагаться на значения по умолчанию? Кто мешает в функции соединения с сервером седать все установки?
С уважением, АлексейМне уже поздно метаться и делать одну функцию которая будет делать соединение и изменить в этой функции установки по умолчанию, а затем выбирать все SQLSTRINGCONNECT во всех формах и прописывать обращение к этой функции. С другой стороны вроде и так хорошо.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Установки для активного соединения / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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