Store Procedures y su Resultado
 

Hola Amigos: me encuentro con el siguiente incoveniente!
Tengo el siguiente Storeprocedure

Código SQL [-]
Create Procedure SelectXML as

Select * from t620task for xml auto,elements

como veran es muy complicado:D, bueno esto devuelve todo la informacion de una tabla en una estructura XML!.

hasta aca todo bien, lo ejectuto desde un Query analizer (SQL-SERVER) o un Interactive SQL (Sybase), y ningun problema.
Devuelve en una grilla de resultados toda la informacion requerida.
ahora bien, Cuando lo Ejecuto desde un ADOStoreProceude, no se como debo hacer para recuperar estos datos.

Alguna idea :o.
Muchas gracias y saludos para todos

Pero por supuesto, :P, yo trabajo a duiario con Xml :P

Lamentablemente la recuperación del Xml no podrás hacerla desde los componentes ADO que tiene delphi, Deberás Importar el Activex de MDAC para tener acceso a la clase TStream de ADO

Este es un bloque de código de como hacer la recuperación del Xml generado por Sql server

Código Delphi [-]
 
procedure TForm1.Button2Click(Sender: TObject);
Var
  Connection     : ADODB_TLB.TConnection;
  Command        : ADODB_TLB.TCommand;
  Stream         : ADODB_TLB.TStream;
  Records,Params : OleVariant;
  LStlXmlDatos   : TStringList; //Almacena el Xml generado por SqlServer
begin
  Screen.Cursor := crSQLWait;
  Try
    LStlXmlDatos := TStringList.Create;
    ResultMemo.Lines.Text := '';
    Connection := ADODB_TLB.TConnection.Create(Self);
    Connection.Open('Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=AlertaExistencias;Data Source=Servidor',
                    'usaurio','password',0);
    Command := ADODB_TLB.TCommand.Create(Self);
    Command.DefaultInterface.Set_ActiveConnection(
      Connection.DefaultInterface);
    Command.DefaultInterface.CommandType := adCmdText;
    Command.DefaultInterface.CommandText := SQLMemo.Text; //Asigno la consulta

    Stream := ADODB_TLB.TStream.Create(Self);
    Stream.Open(EmptyParam,adModeUnknown,
      adOpenStreamUnspecified,'','');
    Command.DefaultInterface.Properties.Item[
      'Output Stream'].Value := Stream.DefaultInterface;
    Params := EmptyParam;
    Records := Unassigned;
     Command.DefaultInterface.Execute(Records,Params,
      adExecuteStream);
    ResultMemo.Lines.Text :=    Stream.ReadText(Integer(adReadAll));
    Stream.Free;
    Command.Free;
    Connection.Free;
  Finally
    Screen.Cursor := crDefault;
  End;
 If LStlXmlDatos <> Nil Then
   LStlXmlDatos.Free;
end;

Ok no tengo problema.. solo me interesaba saber si pueden ser recuperados. despues como se recuperen. es lo de menos.
Muchas gracias por tu ayuda y cualquier cosa molesto de nuevo

Poliburro, una pregunta, Que version del control tenes Utilizado?

Ya que a mi me da un error diciendo que las Extenciones (T.....) no existen!!!:mad:
de todas maneras estoy verificando que estoy usando los MDAC 2.8

saludos!!!!


Sabes que mi Archivo ADODB_TLB.pas, no tiene esos Tipos o Extenciones o como sea, seria posible Que me Zipees y me envies Tu archivo??

GRacias

Poliburro!! andas por ahi? bueno espero que puedas leer el post y comentarme a serca del Archivejo loco ADODB_TBL

Gracia!!!!

Mil Perdones Poli!!!
 

Poli My Man!! Perdon por todos los hilos y el PM. :(

Estaba agregando Cualquier unidad.. ahi inclui el Componente (Importe) MDAC, Correspondiente a la version 2.7 y funciono de maravillas. por lo menos el recuperar el valor de la Consulta..

Perdon! pero creo que he tenido un momento de estupidez muy muy grande :D
jejej saludos y mil gracias!!