Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FOXPRO 8 к SQL2000 из проекта и ехе / 2 сообщений из 2, страница 1 из 1
14.12.2004, 14:50
    #32826828
vadim_malcovsky
vadim_malcovsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FOXPRO 8 к SQL2000 из проекта и ехе
из проекта с ms sql200 коннекчусь без проблем, а сделав ехешник выкидывает что не могу соединиться с сервером sqlconnect возвращает ошибку
кусок кода ниже

PUBLIC gnConnHandle
gnConnHandle = SQLCONNECT('SQLserver', 'clientlogin', 'clientpassword')
IF gnConnHandle <= 0
MESSAGEBOX("нет соединения...",0,"соединение с сервером...")

*_screen.ActiveForm.release()
RETURN .F.
ENDIF

я новичок -разъясните плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2004, 15:03
    #32826860
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FOXPRO 8 к SQL2000 из проекта и ехе
Ошибка-то какая?

Измени свой код, чтобы получить текст и номер ошибки. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
PUBLIC gnConnHandle
gnConnHandle = SQLCONNECT('SQLserver', 'clientlogin', 'clientpassword') 
IF m.gnConnHandle <=  0  
	LOCAL laError( 1 ), lcMessageText
	=AERROR(laError)
	lcMessageText = 'Произошла ошибка № '+LTRIM(STR(laError[ 1 , 5 ]))+chr( 13 )+;
			RTRIM(SubStr(laError[ 1 , 3 ],RAT("]",laError[ 1 , 3 ])+ 1 ))+chr( 13 )+;
			'Обратитесь к администратору сервера или разработчику программы.'

	MESSAGEBOX(m.lcMessageText, 0 ,"соединение с сервером...")
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FOXPRO 8 к SQL2000 из проекта и ехе / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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