Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как передать var - параметр в хр. процедуру [D5, MSSQL]

NewD © (2003-11-20 08:27:00)

связь через ADO - имеется хр. процедура, возвращающая 1 значение
(успешно вып-на или нет), кроме того процедура изменяет параметр (OUTPUT).

Как мне передать переменную в качестве параметра процедуре и считать из нее потом значение.

NewD (2003-11-20 15:54:00) [1]

Код я использовал тот который привели выше, проблема - неизвестно в чем перезапустил скрипт создания таблицы с добавлением поля и все почему-то заработало

только убил свои нервы и время - неизвестно на что

JibSkeart (2003-11-20 15:14:00) [2]

может все таки хоть кусочек кода приведещь ?

NewD (2003-11-20 14:07:00) [3]

Как можно проверить какие инструкции ADO передает серверу - а то я уже намучился

NewD (2003-11-20 13:43:00) [4]

Нашел в чем проблема - у меня параметр типа VARCHAR(30)
и его скорее всего не может передать, при INTEGER все работает

Что можно сделать ?

NewD (2003-11-20 12:06:00) [5]

Теперь другая проблема - процедура запускается и приложение виснет потом показывает timeOut expired -время ожидания истекает
хотя через Query Analizer все работает оч. быстро.

может дело в том что внутри процедуры я выполняю транзакцию

ZrenBy (2003-11-20 11:32:00) [6]

ADOSP.Parameters.Clear;
ADOSP.Parameters.CreateParameter("@RETURN", ftInteger, pdReturnValue,4,0);
ADOSP.Parameters.CreateParameter("@IO_ID", ftInteger, pdInputOutput, 4,n);
ADOSP.Execute;
n := ADOSP.Parameters.ParamValues["@IO_ID"];

Hooch (2003-11-20 11:30:00) [7]

попробуй в дизайнере параметров напиши каждому параметру Value = (null)

NewD (2003-11-20 11:16:00) [8]

Почему-то выходит ошибка на строке
Value := ParamValue["VarParam"] -
parameter object is improperly defined. Inconsistent or incomplete
information was provided.

Hooch (2003-11-20 08:29:00) [9]

CommandText = "EXEC MyProc :VarParam OUTPUT";
Execute;

Value := ParamValue["VarParam"]

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »