powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вызов процедуры Oracle
2 сообщений из 2, страница 1 из 1
вызов процедуры Oracle
    #33726486
Гость_tmp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините за глупый вопрос просто срочно надо. Как вызвать хранимую процедуру Oracle из VisualFoxpro? :(
...
Рейтинг: 0 / 0
вызов процедуры Oracle
    #33726845
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гость_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
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / вызов процедуры Oracle
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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