Текущий архив: 2004.06.27;
Скачать: CL | DM;
Вниз
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]2YurikGl © (30.05.04 10:45) [6]
Да не надо мне TADOStoredProc ! это я и так знаю.
← →
YurikGl © (2004-05-30 19:54) [9]Yakudza © (30.05.04 19:17) [8]
Приведи код добавления параметров и ошибку, которая выскакивает.
← →
Yakudza © (2004-06-01 11:36) [10]http://delphimaster.net/view/3-1085865845/
← →
YurikGL © (2004-06-01 11:51) [11]Дык тебе ж ответили...
Кстати, переводи тогда обсуждение в ту коференцию.
Страницы: 1 вся ветка
Текущий архив: 2004.06.27;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.024 c
