Palestra na FASP

Na terça-feira, dia 09, assisti uma palestra no auditório da FASP na avenida Paulista, sobre Modelagem de Projetos de Business Intelligence.

Marcelo Machado Luiz apresentou muito bem o tema, ilustrando com vários exemplos de softwares e sendo um deles o SQL Server 2005.

As empresas vem adicionando muitas informações em suas bases de dados com o passar dos anos. Estas informações, na maioria das vezes, é utilizada somente para realizar as transações do dia-a-dia e, as empresas que estão conseguindo se destacar no mercado são as que possuem departamentos direcionados a analisar e projetar cenários. E para isto é preciso ter um histórico e utilizá-lo da melhor forma.

A área de BI é uma das que mais crescem no momento.

Exportar para Excel de uma List View

Em Visual Basic, o recurso List View para exibir consultas facilita a utilização dos sistemas, além de ser de muito prática sua implementação. Abaixo segue o fragmento de código de exportação para Excel de uma list view:

Private Sub PB_EXPORTAR_Click()
Call Excel(LST_VALOR, "histzerado.xls")
End Sub

Private Sub Excel(oLST As Object, sNomeArq As String)

Dim iFile As Integer
Dim iCol As Integer

iFile = FreeFile

Open App.Path & "\" & sNomeArq For Output As iFile

For i = 1 To oLST.ListItems.Count
sLinha = Empty
If i = 1 Then
For iCol = 1 To (oLST.ListItems.Item(i).ListSubItems.Count + 1)
sLinha = sLinha & oLST.ColumnHeaders(iCol) & vbTab
Next iCol
Print #iFile, sLinha
End If

sLinha = Empty
For iCol = 1 To oLST.ListItems.Item(i).ListSubItems.Count
If iCol = 1 Then
sLinha = "" & oLST.ListItems.Item(i).Text & vbTab
End If
sLinha = sLinha & oLST.ListItems.Item(i).SubItems(iCol) & vbTab
Next iCol
Print #iFile, sLinha
Next i
Close #iFile
End Sub

Query tipo Cross-Tab em Banco de Dados

Abaixo um exemplo de fazer uma consulta do tipo "Cross-Tab" e pode ser utilizada em qualquer banco de dados:

select filial, sum(decode(mes,'01/07',valor)) Fat_Jan,
sum(decode(mes,'02/07',valor)) Fat_Fev,
sum(decode(mes,'03/07',valor)) Fat_Mar,
sum(decode(mes,'01/07',valor_cob)) Rec_Jan,
sum(decode(mes,'02/07',valor_cob)) Rec_Fev,
sum(decode(mes,'03/07',valor_cob)) Rec_Mar
from NotasFiscais
where mes in('01/07','02/07','03/07')
and cancelado = 0
group by filial
order by filial