StrSQL="Select id, nm, Cn0 FROM table1"
*thisform.text1.value=nCON
nAnswr=SQLEXEC(nCON,StrSQL)
*thisform.text2.value=nAnswr
ErrServ(nAnswr, StrSQL)
Если это располагаю в Init формы, то проблем никаких.
Если на форму бросаю кнопку и прописываю в Click кнопки, то идет сообщение: "Connection handle is invalid".
При этом в первом случае 2 и 4 строки дают по 1.
В случае кнопки nCON=1, а nAnswr значение отсутствует.
Любопытно почему ?

SU2014Если это полный код, то что-то не видно SQLCONNECT(...)
Function ErrServ
Parameters nAnswr, StrSQL
*************************
IF nAnswr < 0 THEN
****************
IF nCON > 0 THEN
SQLDISCONNECT(nCON)
ENDIF
*******************************************************
MessageBox("Ошибка обращения к серверу!", 16, "Ошибка")
QUIT
****
ENDIF
*******
ENDFUNC

Поясню подробнее. Все есть. И коннект есть. Когда указанные три строки располагаю в Init формы, то все нормально функционирует. Когда хочу все это же иметь по клику на кнопку, расположенную на этой же форме, то возникает описанная мною проблема.

ВладимирМ Ищите, что же у Вас там прописано в событиях открытия формы до того, как Вы нажали Click кнопки.
Специально создал форму с пустым Initом (для чистоты эксперимента). Если триада прописана в Init формы, то ноу проблем. Потом Init удаляю и эту триаду закрепляю за кликом кнопки. И возникает означенная проблема. Странновато как то.

Sergey SizovГде и когда создается nCon?
Видимо собака здесь зарыта ?
WITH THISFORM
cDSN = ALLTRIM(.TextDSN.VALUE)
cUser = ALLTRIM(.TextUser.VALUE)
cParol = ALLTRIM(.TextParol.VALUE)
********************************************************************
IF .NOT.EMPTY(cDSN) .AND. .NOT.EMPTY(cUser) .AND. .NOT.EMPTY(cParol)
************создание локальной БД под именем "dblDOXOD"*************
ON ERROR a = 0
DELETE FILE dblgradient.DBC
DELETE FILE dblgradient.dct
DELETE FILE dblgradient.dcx
ON ERROR
*-----------------------
CREATE DATABASE dblgradient
*-----------
ON ERROR a=0
DELETE CONNECTION congradient
ON ERROR
*-------
CREATE CONNECTION congradient DATASOURCE &cDSN USERID &cUser PASSWORD &cParol DATABASE &cDSN
*-----------------------------------------------
DBSETPROP('congradient','connection','DispLogIn',3)
*-----------------------------------------------
nCON = SQLCONNECT('congradient')
*-----------------------------
If nCON <= 0 Then
MessageBox("Не удалось соединиться с сервером. Возможно вы неправильно указали имя пользователя, пароль или сервер в данный момент выключен. Если Вам не удается исправить ошибку, обратитесь к системному администратору.", 16, "Не удалось соединиться с сервером")
CLOSE DATABASES
Return
EndIF
********
.RELEASE
********закрытие и удаление локальной БД под именем "dblgradient"**********
CLOSE DATABASES
ON ERROR a = 0
DELETE FILE dblgradient.DBC
DELETE FILE dblgradient.dct
DELETE FILE dblgradient.dcx
ON ERROR
*-------
ELSE
*********
nCON = -1
Return
******

ENDIF
********
.RELEASE
********
ENDWITH

Aleksey-K Создайте свойства в форме nCON и храните дескриптор соединения в нем.
С уважением, Алексей
Т.е. объявить здесь public nCON ?

Aleksey-K Создайте свойства в форме nCON и храните дескриптор соединения в нем.

Допустим будет храниться в Init. Тогда и в клике кнопки это будет видно ?

Sergey SizovInit - метод, внем никакие данные не могут храниться. Для хранения есть свойства. Еще раз повторяю, они видны из всех методов.
И в каком свойстве формы можно сохранить nCON ?

Sergey SizovВ том, которое для этого создадите. Меню Form->New Property
Век живи, век учись... Это я о себе.
А как дальше ? Задал имя (nCON), а как там прописать значение ? В окне, вместо .f. ?

Это я вручную задам, а как текущее значение формой считывать ?

Дек Попробуйте так:
Попробовал. Дает : "Ошибка"

StrSQL="Select id, nm, Cn0 FROM table1"
thisform.text1.value=nCON
nAnswr=SQLEXEC(nCON,StrSQL)
thisform.text2.value=nAnswr
ErrServ(nAnswr, StrSQL)
В таком варианте дает nCOM=1, а в варианте

With Thisform
.AddProperty('nCon',0)
.nCon = SQLConnect('DNS','User','Password')
If .nCon <=0
? "Ошибка"
Return .F.
Endif
= SQLEXEC(.nCon ,StrSQL)
Endwith
дает сообщение об ошибке.

Поменял на:
.AddProperty('nCon',1)
И все равно дает ошибка

Ионас
With Thisform
.AddProperty('nCon',0)
.nCon = SQLConnect('DNS','User','Password')
If .nCon <=0
? "Ошибка"
? nCON
Return .F.
Endif
= SQLEXEC(.nCon ,StrSQL)
Endwith

Дает сообщение "ошибка", а значение nCON выводит 1.