Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ADOCommand [D6, Sybase]

Yakudza © (2004-05-29 21:51:00)
Киньте пожалуйста пример работы ADOCommand c сохраненной процедурой в RunTime. Спасибо.

YurikGL (2004-06-01 11:51:00) [1]
Дык тебе ж ответили...

Кстати, переводи тогда обсуждение в ту коференцию.

Yakudza (2004-06-01 11:36:00) [2]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1085865845&n=1

YurikGl (2004-05-30 19:54:00) [3]
Yakudza © (30.05.04 19:17) [8]

Приведи код добавления параметров и ошибку, которая выскакивает.

Yakudza (2004-05-30 19:17:00) [4]
2YurikGl © (30.05.04 10:45) [6]
Да не надо мне TADOStoredProc ! это я и так знаю.

YurikGl (2004-05-30 10:51:00) [5]
Еще пример есть на http://faq.pp.ru/forums/index.php?act=ST&f=53&t=1905&s=1750f9056d2c11e6401e0fb3abdf138a

YurikGl (2004-05-30 10:45:00) [6]
Слушай, в yandex-е лень набрать "adostoredproc пример", да? Третья строчка мне дала http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=13655

Смотрим, что написано...
....
Все должно выглядеть примерно так:
with ADOStoredProc1 do begin if Active then Close; ADOStoredProc1.ProcedureName:='SomeProcedure'; Parameters.Clear; Parameters.AddParameter; Parameters[0].DataType:=ftInteger; Parameters[0].Value:=1; if Active then Requery else Open; // или ExecProc end;....

YurikGl (2004-05-30 10:41:00) [7]
Приведу тебе пример с dbExpress, может чем поможет

with DataModule1.SQLStoredProc1 do begin
StoredProcName:='ADDELEM';
ParamByName('Naimenovan').Value:=Edit2.text;
ParamByName('Primech').Value:=Edit3.text;
ParamByName('DocLink').Value:=Edit5.text;
ParamByName('IdProizvoditel').Value:=DataModule1.ADODataSetProiz.Fields[0].Value;;
ParamByName('KompLink').Value:=Edit1.text;
ParamByName('Oboznach').Value:=MaskEdit1.text;
ExecProc;
end;

Yakudza (2004-05-30 01:30:00) [8]
это понятно, а вот как параметры правильно добвавить в рантайи.
TADOStoredProc это потомок TCustomADODataSet у него своего только ProcedureName, сделано для удобства при переходе от BDE.

Так что можно юзать TADODataSet или TADOCommand один хрен.

В дизайн тайм все работает, а вот пытаюсь динамичеки сделать не хочет.

YurikGl (2004-05-29 23:29:00) [9]
Не уверен, но наверное так
Commandtype:=cmdStoredProc
CommandText:=Имя процедуры
execute

Но, вообще-то для этого есть компонент TADOStoredProc

Yakudza (2004-05-29 23:22:00) [10]
2YurikGl © (29.05.04 23:18) [1]
Мне нужно с сохраненной процедурой.

YurikGl (2004-05-29 23:18:00) [11]
СУБД - Access

with ADOCommand1 do begin
CommandText:='Insert into [таблица] (Поле1,Поле2,Поле3,Поле4) values ('+
IntToStr(ADODataSet1.FieldByName('Имя поля').Value)+','+
#39+MaskEdit1.Text+#39+','+
Edit1.Text+',4)';
Execute;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »