Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вызов процедуры Oracle / 2 сообщений из 2, страница 1 из 1
15.05.2006, 11:42
    #33726486
Гость_tmp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вызов процедуры Oracle
Извините за глупый вопрос просто срочно надо. Как вызвать хранимую процедуру Oracle из VisualFoxpro? :(
...
Рейтинг: 0 / 0
15.05.2006, 12:57
    #33726845
FM32YO aka KID
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вызов процедуры Oracle
Гость_tmpИзвините за глупый вопрос просто срочно надо. Как вызвать хранимую процедуру Oracle из VisualFoxpro? :(



Код: 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.
IF gnConnHandle <=  0 
	= Con2OraError()
ELSE

Recordid = THISFORM.nChosenPrimaryId  &&'51'
Sur = ALLTRIM(UPPER(Thisform.Surn1.Value))  &&'Êîçàê'
Nam = ALLTRIM(Thisform.cName1.Value)  &&'Âàäèì'
Fat = ALLTRIM(Thisform.cFname1.Value)  &&'Ìèõ'
Jobb = ALLTRIM(Thisform.cJob1.Value)  &&'ÔÑÑ'
Posit = ALLTRIM(Thisform.cPosada1.Value)  &&'Ïðîãðàììåð'
DPAId = ALLTRIM(Thisform.cDpa1.Value)  &&'1234567890'
Pass = ALLTRIM(Thisform.cPass1.Value)  &&'ÂÎ - 005533'
Adr = ALLTRIM(Thisform.cAdress1.Value)  &&'Óæãîðîä'
InDay = DTOC(Thisform.Datin1.Value)  &&'15/05/2005'
OutDay = DTOC(Thisform.DatOut1.Value)  &&'20/05/2005'
cWhoDidIt = TTOC(datetime()) + ' - ' + cWhoIsWorking

DO CASE
	CASE Thisform.WhatToDo =  1   && INSERTING

cSP = "{call fin.FM32YO_Update_Persons_IN_PUT2(1, '0', ?Recordid, ?Sur, ?Nam, ?Fat, ?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt)}"  

	CASE Thisform.WhatToDo =  2   && UPDATING
	
cSP = "{call fin.FM32YO_Update_Persons_IN_PUT2(2, ?Recordid, '', ?Sur, ?Nam, ?Fat, ?Jobb, ?Posit, ?DPAId, ?Pass, ?Adr, ?InDay, ?OutDay, ?cWhoDidIt)}"  
	
ENDCASE	

k = SQLExec(gnConnHandle, cSP)

IF K <>  1 
AERROR(laError) 
	= MESSAGEBOX('Процедура ' + cSP + 'не выполнилась!!' + CHR( 13 ) + ;
	laError( 2 ),  48 , 'Ñîîáùåíèå îá îùèáêå ¹' + STR(laError( 1 )) )	
*	= SQLDISCONNECT(gnConnHandle)
ELSE
	
ENDIF

...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вызов процедуры Oracle / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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