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
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;