Rotina que permite a execução de um crosstab em uma tabela ADO SQL Server. Ela rotaciona os eixos X e Y da Query, transformando linhas em colunas e vice versa. Ideal para Cubos de dados e aplicações de B.I.

//============================================================================== // Realiza um Crosstab em uma tabela ADO padrão SQL Server //------------------------------------------------------------------------------ // Parametros: //     ADOQuery  :   Objeto ADOQuery já devidamente conectado ao banco //     SQLCommand:   Comando SQL para recuperar o recordset, pode-se usar Join //     RowField:     Campo a ser utilizado como a informação das linhas (Eixo Y) //     RowTitle:     Titulo para o campo RowField. Pode ser vazio. //     ColField:     Campo a ser utilizado como a informação das colunas (Eixo X) //     SummaryField: Campo NUMERICO a ser utilizado para totalização. //     Operation:    Tipo de operaçao a ser realizada Soma (SUM) ou Contagem (Count) //============================================================================== // // Exemplo: Total de Produtos vendidos em cada Estado //----------------------------------------------------------- // 1o. Exemplo: CrossTab(ADOQuery1,FSQL,'Produto','Produto','Estado','Quantidade','Count'); //---------------------------------------------------- // Produtos        MG        SP        RJ       Total // Lapis           10        11        20       41 // Borracha         5        10        10       25 // Caderno          1         2         8       11 //---------------------------------------------------- // //----------------------------------------------------------- // 2o. Exemplo: CrossTab(ADOQuery1,FSQL,'Estado','Estado','Produto','Quantidade','Count'); //----------------------------------------------------------- //Estado  Lapis        Borracha         Caderno       Total //MG      10            5                   1          16 //SP      11           10                   2          23 //RJ      20           10                   8          38 //----------------------------------------------------------- // Procedure CrossTab(ADOQuery1:TADOQuery; SQLCommand, RowField, RowTitle, ColField , SummaryField:STring;  Operation:String='Sum'); Var Str, Value : String; Begin    With ADOQuery1 do Begin       DisableControls;       Screen.Cursor := crSQLWait;       Try         Close;         SQL.Text := 'SELECT DISTINCT '+ColField+' FROM ('+SQLCommand+') AS COLUMNS';         Open;         If RowTitle = '' Then RowTitle := RowField;         Str := 'SELECT '+RowField+' as '+#39+RowTitle+#39+',';         While not ADOQuery1.Eof do Begin            Value := ADOQuery1.FieldByName(ColField).AsString;            If Value='' Then Value := 'Não Informado';            Value := StringReplace(Value,'.','_',[rfReplaceAll]);            Str := Str + Operation+'( CASE '+ColField+' WHEN '+#39+Value+#39+' THEN '+SummaryField+' END) as '+#39+Value+#39+',';            ADOQuery1.Next;         End;         Str := Str + ' '+Operation+'('+SummaryField+') as Total';         Str := Str + ' FROM ('+SQLCommand+' AS B ) AS A';         Str := Str + ' GROUP BY '+RowField+' ORDER BY '+RowField+'';         AdoQuery1.Close;         AdoQuery1.SQL.Text := Str;         Form1.Memo1.Lines.Text := SQL.Text;         AdoQuery1.Open;       Finally         Screen.Cursor := crDefault;         EnableControls;       End;    End; End;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Banco de Dados; Microsoft SQL Server;
Data.........: 13/12/2002 15:58:30
Visualizado..: 3484 vezes
Fonte........: AdeN Knowledge DB