powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как лучше?
3 сообщений из 3, страница 1 из 1
Как лучше?
    #33873393
Фотография programmer-2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Несмотря на то что на фоксе давно и с мсскл не плохо знаком, вместе их использовать не приходилось. Вот и первые вопросы: как лучше коннектиться? через ОДБС? или программно типа gnConnect=SQLSTRINGCONNECT('DRIVER=SQL Server;SERVER=...) как это делают "взрослые"?
Второй вопрос: Собираюсь в основном использовать sqlexec и хранимые процедуры на сервере. и только для 3-х таблиц хочу попробовать курсороадаптер или remote view. Какие будут советы? Вопросы заданы не из-за любопытства, а из-за нежелания проблем в будущем.
Заранее спасибо.
...
Рейтинг: 0 / 0
Как лучше?
    #33873890
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А SQLSTRINGCONNECT именно через ODBC коннектится.. Может вы имеет в виду DSN или SQLSTRINGCONNECT?
Глянь тут:http://www.caws.atnet.ru/vfox/sql.html
Если не получится, то спрашивай..
С уважением, Алексей
...
Рейтинг: 0 / 0
Как лучше?
    #33874387
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я делаю так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
thisform.sqlconnector1.csqlstring = ;	
"{call bpassied(1, 0, ?cPasNo, ?dDateReestr, ?cRishNo, ?dDateRish, " + ;
"?dPayDate, ?nPaymentSumm, ?nSquare, ?nPrivNot, ?nExplNot, ?nYear, " + ;
"?cNOTE, ?nPrType, ?nTypeB, ?nF, ?nHadr)}"

thisform.sqlconnector1.spexecute(thisform.sqlconnector1.csqlstring, 'V')
IF thisform.pgsqlconnector1.spresult <>  1 
* ошибка....
	thisform.sqlconnector1.con2sqlerror()
.......

Где thisform.sqlconnector1.con2sqlerror():

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
=AERROR(lAerror)

= MESSAGEBOX('Ошибка' + CHR( 13 ) + ;
'Îïèñ: [' + ALLTRIM(lAerror( 2 )) + ']'  + CHR( 13 ) + ;
'ODBC ErrorMessage: ' + ALLTRIM(lAerror( 3 ))  + CHR( 13 ) + ;
'ODBC SQL state: '  + ALLTRIM(lAerror( 4 ))  + CHR( 13 ) + ;
'The error ¹ from the ODBC data source: ' + TRANSFORM(lAerror( 5 ))  + CHR( 13 ) + ;
'The ODBC connection handle: ' + TRANSFORM(lAerror( 6 )),  16 , ;
'ÏÎÌÈËÊÀ SQL Connect ¹ ' + TRANSFORM(lAerror( 1 )))


Подключаемся так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
nConnHandle =  0 
lcDSNLess="DRIVER=" + This.odbcdriver + ";" ; 
+ "SERVER=" + this.serverip + ";" ;
+ "UID=" + this.dbuser + ";" ;
+ "PWD=" + this.userpassword + ";" ;
+ "DATABASE=" + this.database
** + "'"
nConnHandle = sqlstringconnect(m.lcDSNLess)
IF nConnHandle <=  0 
	this.con2sqlerror()
ENDIF
 

и sqlconnector1.spexecute

Код: plaintext
1.
2.
PARAMETERS cSqlstr, cCursorName

this.spresult = SQLExec(nConnHandle, cSqlstr, cCursorName)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как лучше?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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