Главная страница
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.042 c
4-1097695439
cerber1
2004-10-13 23:23
2004.12.05
смена координат Десктопа


1-1101109577
Артем К.
2004-11-22 10:46
2004.12.05
Компонент TreeView, чтобы узел дерева имел несколько колонок?


1-1101175804
Fktrc
2004-11-23 05:10
2004.12.05
Singleton


14-1100520707
syte_ser78
2004-11-15 15:11
2004.12.05
Как я провел выходные


1-1101017406
Новичек
2004-11-21 09:10
2004.12.05
Одно меню PopUp для двух объектов.