Vinculo DBChart y stored procedure SQLServer

[TriLoCBA]

Al pulsar el Button1 quiero graficar, en un DBChart de barras, la tabla de valores generados por un stored procedure del SQLServer (spTablaGrafico1).

En el eje X van las fechas (dias), campo "Fecha".
En el eje Y van las cantidades (enteros), campo "Cant".

Pude vincularlo, pero solamente me grafica una barra con el primer valor que entrega el SP.

No estoy seguro de estar usando bien el DBChart.

Desde ya agradezco como siempre toda vuestra ayuda.

Un abrazo.
TriloCba.


Este es el codigo que utilizo:

Código Delphi [-]
var
  Form1: TForm1;
  conSQL: TADOConnection;
  CadenaSQL: String;
  sp1:TADOStoredProc;
  ds1:TDataSource;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Conexion al SQLServer...
  CadenaSQL:='Provider=SQLOLEDB.1;Password=MiPass;Persist Security Info=True;'+
  'User ID=MiUsu;Initial Catalog=MiBase;Data Source=154.25.41.8;'+
  'Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;'+
  'Use Encryption for Data=False;Tag with column collation when possible=False';

  conSQL:=TADOConnection.Create(self);
  conSQL.ConnectionString:= CadenaSQL;
  conSQL.LoginPrompt:=False;
  conSQL.Connected:= True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with sp1 do begin
    sp1:=TADOStoredProc.Create(self);
    Connection:= conSQL;
    ProcedureName:= 'spTablaGrafico1';
    Active:= true;
  end;
  ds1:=TDataSource.Create(self);
  ds1.DataSet:=sp1;
  with DBChart1.SeriesList.Series[0] do begin
    DataSource:= ds1;
    XLabelsSource:='Fecha';
    Xvalues.ValueSource:='Fecha';
    Yvalues.ValueSource:='Cant';
  end;
end;

[TriLoCBA]

Pongo la solución que encontre, aunque no entiendo completamente la teoria a la que responde:

En lugar del datasource "ds1", va directamente el stored procedure "sp1"


Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
with sp1 do begin
sp1:=TADOStoredProc.Create(self);
Connection:= conSQL;
ProcedureName:= 'spTablaGrafico1';
Active:= true;
end;
// ds1:=TDataSource.Create(self);
// ds1.DataSet:=sp1;
with DBChart1.SeriesList.Series[0] do begin
DataSource:= sp1;//ds1;
XLabelsSource:='Fecha';
Xvalues.ValueSource:='Fecha';
Yvalues.ValueSource:='Cant';
end;
end;




Un abrazo.

TriloCba