Пример работы с 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;

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