Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c