| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Пример работы с ADO через CreateOleObject [D7]

diofant ©   (2006-10-25 00:43:00) 

Ищу пример работы с объектами ADO через CreateOleIObject, то есть не используя объекты Delphi

---

Polevi   (2006-10-25 08:10:00) [1]

function TDBProxy.ExecProc(UID: Integer; const ProcName,
 XML: WideString): WideString;
var
 cmd,strmOut,recCount:OleVariant;
begin
 cmd:=CreateOleObject('ADODB.Command');
 cmd.ActiveConnection:=BuildConnectionString;
 strmOut:=CreateOleObject('ADODB.Stream');
 strmOut.Open;
 cmd.Properties.Item['Output Stream'].Value:=strmOut;
 cmd.Properties.Item['Xml Root'].Value:='ROOT';
 cmd.CommandType:=4; //stored proc
 cmd.CommandText:=ProcName;
 cmd.Parameters.Append(cmd.CreateParameter('@Xml',8,1,4096,XML));
 cmd.Execute(RecCount,EmptyParam,$400);
 strmOut.Position:=0;
 Result:=strmOut.ReadText;
end;

---

Наверх