Скачать: CL | DM;

Пример работы с ADO через CreateOleObject   Найти похожие ветки 

← →
diofant   (2006-10-25 00:43) [0]

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

---

← →
Polevi ©   (2006-10-25 08:10) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c