Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

DBExpres Проблемы SQLStoredProc   Найти похожие ветки 

 
YurikGl ©   (2004-04-07 17:16) [0]

Есть SQLStoredProc1.
Выполняю с ее помощью одну процедуру
SQLStoredProc1.StoredProcName:="Первая процедура"
SQLStoredProc1.ParamByName("InПараметр").value:=что-то
...
SQLStoredProc1.ExecProc;
что-то вернули:=SQLStoredProc1.ParamByName("OutПараметр").value;

Дальше, если с помощью того же SQLStoredProc выполнить другую процедуру

SQLStoredProc1.StoredProcName:="Другая процедура"

То на этой строчке программа вылетает.

Предположительно, это связано с тем, что SQLStoredProc1 сохраняте значения предыдущих параметров и т.к. у разных хранимых процедур они разные, выдает ошибку. Что делать?

SQLStoredProc1.Params.clear не помогает.


 
wild_arg ©   (2004-04-07 17:20) [1]

а сделай типа:
with TSQLStoredProc1.Create do begin
 StoredProcName:="Первая процедура"
 ParamByName("InПараметр").value:=что-то
 ...
 ExecProc;
 res1 := ParamByName("OutПараметр").value;
 Free;
end;
with TSQLStoredProc1.Create do begin
 StoredProcName:="Другая процедура"
 ParamByName("InПараметр").value:=что-то
 ...
 ExecProc;
 res2 := ParamByName("OutПараметр").value;
 Free;
end


 
bushmen ©   (2004-04-07 17:30) [2]

Проще надо быть. После получения значения первой процедуры пишешь:

TSQLStoredProc1.Parameters.Delete(0);

И будет тебе счастье


 
bushmen ©   (2004-04-07 17:34) [3]

Конечно, я немного погорячился:

SQLStoredProc1.Params.Delete(0);


 
YurikGl ©   (2004-04-07 17:40) [4]

re [3] В смысле нужно всем параметрам говорить Params.Delete(i)?


 
YurikGl ©   (2004-04-07 17:48) [5]

re [3] Не помогает.
Зато [1] Помогло, хотя и изврат это...


 
wild_arg ©   (2004-04-07 17:54) [6]

2YurikGl
Да почему изврат-то?
Нормально все, зато у тебя в памяти не лежат ненужные постоянно компоненты. Они создаются когда надо и после этого уничтожаются.
Сам раньше так не любил, а теперь ничего :)


 
YurikGl ©   (2004-04-07 18:38) [7]

Написал в итоге

procedure TDataModule1.SqlProcInit;
Begin
SQLStoredProc1.free;
SQLStoredProc1:=TSQLStoredProc.Create(self);
SQLStoredProc1.SQLConnection:=SqlConnection1;
End;

И вызываю каждый раз при вызове процедуры.
Но как-то проще должно быть.


 
Desdechado ©   (2004-04-07 19:36) [8]

наблюдал похожий глюк, но причина была в том, что имя процедуры должно быть задано в ВЕРХНЕМ регистре ВСЕГДА, вне зависимости от диалекта


 
YurikGl ©   (2004-04-07 19:47) [9]

re [8] Это я уже знаю. Если имя задать в нижнем регистре, то ParamByName вообще ничего "не видит"


 
YurikGl ©   (2004-04-07 21:41) [10]

Кстати, эта пролема есть у всех dbExpress-компонентов. Первый запрос (неважно какой) проходит нормально, но потом при попытке присвоить свойству ComandText/StoreProcName любую стороку, приложение вылетает с ошибкой.


 
Desdechado ©   (2004-04-08 21:22) [11]

ну, с ХП я так не извращался, а вот SQLDataSet я постоянно переприсваиваю commandtext и никаких проблем не наблюдал...



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.032 c
1-1082713720
Igor G
2004-04-23 13:48
2004.04.11
Диаграммы


9-1071347569
Sergio
2003-12-13 23:32
2004.04.11
Картинка исчезает!


3-1079440241
fika
2004-03-16 15:30
2004.04.11
Люди еще раз прошу помогите мне с Unicode


3-1079429314
Kostay
2004-03-16 12:28
2004.04.11
Oracle+Delphi


3-1081841088
skostigin
2004-04-13 11:24
2004.04.11
Delphi 6, InterBase