ADOCommand

← →
Yakudza © (2004-05-29 21:51) [0]

Киньте пожалуйста пример работы ADOCommand c сохраненной процедурой в RunTime. Спасибо.

← →
YurikGl © (2004-05-29 23:18) [1]

СУБД - 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;

← →
Yakudza © (2004-05-29 23:22) [2]

2YurikGl © (29.05.04 23:18) [1]
Мне нужно с сохраненной процедурой.

← →
YurikGl © (2004-05-29 23:29) [3]

Не уверен, но наверное так
Commandtype:=cmdStoredProc
CommandText:=Имя процедуры
execute

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

← →
Yakudza © (2004-05-30 01:30) [4]

это понятно, а вот как параметры правильно добвавить в рантайи.
TADOStoredProc это потомок TCustomADODataSet у него своего только ProcedureName, сделано для удобства при переходе от BDE.

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

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

← →
YurikGl © (2004-05-30 10:41) [5]

Приведу тебе пример с 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;

← →
YurikGl © (2004-05-30 10:45) [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:51) [7]

Еще пример есть на http://faq.pp.ru/forums/index.php?act=ST&f=53&t=1905&s=1750f9056d2c11e6401e0fb3abdf138a

← →
Yakudza © (2004-05-30 19:17) [8]

http://delphimaster.net/view/3-1085865845/

Дык тебе ж ответили...

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

ADOCommand Найти похожие ветки