Форум: "Базы";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c