Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.041 c
1-1086937382
Mim1
2004-06-11 11:03
2004.06.27
пересобрать visualclx после применения UnofficialVisualCLX Pathch


3-1086020321
Cyber
2004-05-31 20:18
2004.06.27
Построение запроса


6-1083699228
sashcan
2004-05-04 23:33
2004.06.27
Про сотовую связь


14-1086783113
Юрий
2004-06-09 16:11
2004.06.27
??? Выбор языка программирования ???


4-1085083692
Sanek_metaller
2004-05-21 00:08
2004.06.27
Параметры через SandMessage();





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский