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

Exportando para o Excel

No dia a dia das empresas, sempre é necessário gerar em planilha Excel o resultado de uma consulta no banco de dados. Utilizando o VB é possível acessar os objetos do Excel para fazer esta exportação, mas se o resultado fôr muito grande, fica lento e às vezes trava. Uma solução boa e rápida e extrair este conteúdo para o formato texto que abre normalmente no Excel. Veja o código abaixo:

Dim iFile as Integer
iFile = FreeFile

Open "C:\TEMP\ClientesExcel.TXT" For Output As iFile

sSql = "select * from clientes"
If rs.State = adStateOpen Then rs.Close
rs.Open sSql, cn

sLinha = Empty
For i = 0 To (rs.Fields.Count - 1)
sLinha = sLinha & rs.Fields(i).Name & vbTab
Next i
Print #iFile, sLinha

Do While Not rs.EOF
sLinha = Empty
For i = 0 To (rs.Fields.Count - 1)
sLinha = sLinha & rs.Fields(i) & vbTab
Next i
Print #iFile, sLinha
rs.MoveNext
Loop

Vale lembrar que se o resultado da consulta for maior que 65000 linhas é necessário quebrar em vários arquivos.

XML

Com o avanço da informática, cada vez mais as empresas integram seus dados e utilizam de várias maneiras e mais tradicional de todas é o arquivo texto. O arquivo texto é usado desde o começo da informática, sendo muitas vezes o colunado e com separador, com vírgulas, ponto e vírgula, tabulação, etc.

Com o advendo da internet, o XML trouxe uma melhoria muito grande neste processo. Usando o VB é possível gerar e ler arquivos XML com muito facilidade.

Abaixo um fragmento de um código para ler a tabela Clientes e depois salvar todo seu conteúdo no arquivo "clientes.xml":

sSql = "select * from clientes"
If rsCli.State = adStateOpen Then rsCli.Close
rsCli.Open sSql, db
If Not rsCli.EOF Then
rsCli.Save "c:\temp\Clientes.xml", adPersistXML
End If

Para ler um arquivo:

If rsCli.State = adStateOpen Then rsCli.Close
rsCli.Open "c:\temp\Clientes.xml"

Depois é só adaptar o seu programa para suas necessidades.

Com pouco de código é possível usar esta excelente tecnologia para trocar de informações.

Futuro profissional

A área de TI é muito dinâmica, muitos apostam em uma tendência e em pouco tempo, tudo muda. Atualmente para conseguir um novo emprego, muitas empresas exigem uma quantidade enorme de qualificações: inglês, espanhol, ERP, Java, etc. O profissional que está na área há muito tempo não consegue se atualizar. É difícil conseguir conciliar a equação: tempo e investimento. Para ser um bom profissional é necessário se dedicar bastante ao trabalho. E fazer cursos de aperfeiçoamento é preciso tempo e dinheiro.

Além do que, a área técnica, o que se refere a linguagem, muitas vezes fica obsoleta rapidamente. Um profissional faz um certificação e começa a trabalhar, só com o tempo, apanhando e aprendendo no dia-a-dia é que será um expert nesta ferramenta e, de repente, ela não está mais na onda do mercado.

Cada vez mais, as empresas exigem curso superior e fluência em várias línguas e, pagando cada vez menos.

É preciso muito critério e pensar de maneira sensata ao investir na carreira. Além do problema financeiro, muitas vezes o tempo será desperdiçado em algo, onde no futuro as portas estarão fechadas.

Trabalhar com informática

O trabalho na área de informática tem momentos gratificantes por tudo ser dinâmico, rápido e sempre existiram novidades. Existe o outro lado do stress e das frustrações quando aos resultados. Muitas vezes trabalha-se até a exaustão, para nada. Por mais que se faça, nunca a satisfação do cliente é atendida. Sempre existe algo por fazer e, isto é um dos motivos que muitos perdem o encanto pela informática.

A maior parte do trabalho é corrigir problemas e fazer com as coisas não parem. E hoje com tudo girando em torno da informática, as exigências são grandes. E é uma área que precisa melhor muito pois o índice de falhas e problemas é muito grande. O tempo disponível para o desenvolvimento e implantação de soluções é curta, fazendo com que os teste necessários, não sejam feitos da maneira adequada.