powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Хранимая процедура с параметром
3 сообщений из 3, страница 1 из 1
Хранимая процедура с параметром
    #32264562
cath
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Исполняю хранимую процедуру с параметром.

=SQLSETPROP(sqlHandle,"Asynchronous",.T.)
myParam = INPUTBOX("Введите параметр","Параметр")
cmd = "execute master..myProc ?"+CHR(39)+myParam+CHR(39)
Res = 0
DO WHILE (Res=0)
Res = SQLEXEC(sqlHandle,cmd)
DOEVENTS
ENDDO
DO CASE
CASE Res=-1
=MESSAGEBOX("Connection failed",48,"SQL Server connection")
CASE Res=0
=MESSAGEBOX("Still executing",48,"SQL Server connection")
CASE Res=1
=MESSAGEBOX("Hurrah!",64,"SQL Server connection")
OTHERWISE
=MESSAGEBOX("Rats",48,"SQL Server connection")
ENDCASE

Всё бы хорошо, но в цикле while FoxPro вываливает окошко (тот же InputBox) с заголовком "View Parameter" и приглашением "Enter the value for the <и тут в кавычках -- значение только что введённого параметра>". Можно ничего не вводить, просто нажать OK (если Cancel, то выдаёт Connection failed), всё сработает. Но мне не нужно это промежуточное окошко, как от него избавиться? Подскажите, пожалуйста, может, кто занимался такими штуками.
...
Рейтинг: 0 / 0
Хранимая процедура с параметром
    #32264680
chagoserg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуйте так :
cmd = "execute master.myProc ?myParam"
...
Рейтинг: 0 / 0
Хранимая процедура с параметром
    #32264785
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно еще вот так
cmd = [execute master..myProc ']+myParam+[']
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Хранимая процедура с параметром
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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