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

Вниз

AdoDataSet для работы c StoredProc   Найти похожие ветки 

 
Explorer   (2004-11-09 08:53) [0]

Мастера!
Подскажите, как правильно использовать AdoDataSet для работы c StoredProc (какие функции) и как узнать Return_Value от сервера?

При использовании ADOStoredProc делал так:
   with DataModuleMashteh.ADOStoredProcOrg do
   begin
     Close;
     Parameters.ParamByName("@type").Value               := TypeOrg;
     Parameters.ParamByName("@IDUser").Value             := UserCron;
     Parameters.ParamByName("@OrganizName").Value        := DBEditNameOrg.Text;
     Parameters.ParamByName("@ERR").Value              := 1;
     Prepared;
     ExecProc;

     if(Parameters.ParamByName("@Err").Value=1) then
     begin
        MessageDlg("Error",mtError, [mbOk], 0);
     end
     else begin
       MessageDlg("Update",mtInformation, [mbOk], 0);
     end;
   end;

Но в AdoDataSet видать это делается по другому, а инфы мало.


 
Explorer   (2004-11-09 21:48) [1]

Никто не использует для работы с хранимыми процедурами?


 
sniknik ©   (2004-11-09 22:29) [2]

не, лень просто. ты скажи как не получается вот тогда и поговорим.
а то получается ты инфы не нашол а мне главы из книги переписывать?


 
Explorer   (2004-11-09 23:05) [3]

А чего в вопросе не понятно?
Надо отправить параметры в хранимую процедуру и получить от нее результат.
Как это делаю в ADOStoredProc я описал, а вот как это сделать в ADODataSet при использовании CommandType = cmdStoredProc ?


 
sniknik ©   (2004-11-09 23:35) [4]

ну а на шаг дальше? ADOStoredProc это тот же ADODataSet только сильно урезанный

вот он, весь ;о)

 TADOStoredProc = class(TCustomADODataSet)
 public
   constructor Create(AOwner: TComponent); override;
   procedure ExecProc;
 published
   property CommandTimeout;
   property DataSource;
   property EnableBCD;
   property ProcedureName: WideString read GetCommandText write SetCommandText;
   property Parameters;
   property Prepared;
 end;

constructor TADOStoredProc.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Command.CommandType := cmdStoredProc;
 Command.CommandTextAlias := "ProcedureName"; { Do not localize }
end;

procedure TADOStoredProc.ExecProc;
begin
 InitializeMasterFields(Self);
 Command.Execute;
end;


и как думаеш что дальше делать надо, в отличии от ADOStoredProc?



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

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

Наверх




Память: 0.48 MB
Время: 0.054 c
1-1100966872
лена19
2004-11-20 19:07
2004.12.05
действительные типы


1-1101297047
Nox
2004-11-24 14:50
2004.12.05
Тип переменной вмещающей число с 30 нулями


1-1100852111
Torin
2004-11-19 11:15
2004.12.05
Чтение/запись строк в поток


1-1100953729
гость
2004-11-20 15:28
2004.12.05
компонент на основе Edit


3-1099729172
Леван
2004-11-06 11:19
2004.12.05
кто помнит Dbedit клипера?