Ventas por mes

[Jorge Orozco]

Amigo si lo hice, pero tampoco me funciono, entonces le estoy pasando el procedimiento desde el principio. Inente hacerlo en DBGrid, pero es lo mismo, no me carga las celdas ono se sihice algo malo. La base de datos que uso es SQL Server 2008, y la comunicación con la base de datos lo hago por medio del IBQuery y el IBTransaction.

Gracias

[look]

Empezado por Jorge Orozco

Amigo si lo hice, pero tampoco me funciono, entonces le estoy pasando el procedimiento desde el principio. Inente hacerlo en DBGrid, pero es lo mismo, no me carga las celdas ono se sihice algo malo. La base de datos que uso es SQL Server 2008, y la comunicación con la base de datos lo hago por medio del IBQuery y el IBTransaction.

Gracias

IBQuery, IBTransaction, SQL Server 2008?, creo que estas algo confundido, si no me equivoco esos son componentes para Firebird o Interbase

[Jorge Orozco]

Correcto son para Firebird, la base de datos esta en otro lado.

[ecfisa]

Hola Jorge.

Si el gestor de base de datos que usas es MS SQLServer 2008, podrías usar por ejemplo ADO o dbExpress para conectarte (revisa: dbExpress Driver for SQL Server) . Pero como te comenta look mas arriba, no lo vas a lograr usando los componentes IBXpress.

Saludos

[Jorge Orozco]

Hola Amigos.

Sinceramente no creo que sea tan difícil o dificilisimo, hacer un procedimiento para obtener las ventas por mes y año y mostrarlo en un TStringGrid, como lo detalle a continuación.

Mes/Año Cant Mes/Año Cant Mes Año Cant
FACTURADO 01/2012 5 02/2012 10 04/2014 25

No se que es lo que estoy haciendo mal, que he intentado por todos los medios y no me funcione. He hecho varias consultas a GOOGLE y nada.

Por Favor Ayuda.

Gracias Amigos.

[ecfisa]

Hola Jorge.

Realmente no veo la necesidad de complicarte usando un TStringGrid...

De todos modos te hice esta función que pasa los campos de cualquier TIBQuery sin campos BLOB, a cualquier TStringGrid:

Código Delphi [-]
procedure IBQueryToStringGrid(IBQ: TIBQuery; Grd: TStringGrid);
var
  c,r : Integer;
begin
  Grd.ColCount := IBQ.FieldCount-1;
  Grd.RowCount := IBQ.RecordCount;
  r := 0;
  IBQ.First;
  while not IBQ.Eof do
  begin
    for c:= 0 to IBQ.RecordCount-1 do
      Grd.Cells[Grd.FixedCols+c, Grd.FixedRows+r] := IBQ.Fields[c].AsString;
    IBQ.Next;
    Inc(r);
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBQueryToStringGrid(IBQuery4, StringGrid1);
end;

Y por favor cuando pongas código Delphi usa las etiquetas [delphi] tu_codigo [/delphi] como te mencionó antes duilioisola.

Saludos

[Jorge Orozco]

Gracias a todos los que me trataron de ayudar en este caso, pero la verdad lo intente por todos lados y no me funciona. Es decir no puedo obtener las ventas por mes y año de una fecha dada, es decir desde fecha, hasta fecha.

De todos modos mil gracias a todos. Y lo peor de todo es que no me encuentro algo similiar en GOOGLE.

No se donde esta mi problema.