Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.035 c
1-1100677690
Dmitrij_K
2004-11-17 10:48
2004.12.05
Скорость работы программы


1-1100849104
RO
2004-11-19 10:25
2004.12.05
ProgressBar в StatusBar е


14-1100590173
syte_ser78
2004-11-16 10:29
2004.12.05
Комп висит


14-1100074668
Суслик
2004-11-10 11:17
2004.12.05
Где купить delphi6 со всеми сервис паками?


3-1099463364
Sour
2004-11-03 09:29
2004.12.05
MySQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский